Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Bonjour,
If Not Intersect(target, [B16:I17]) Is Nothing Then
If target = "" Then
UF_Coller.Show
Else
UF_Supprimer.Show
End If
End If
Avec ce code, si je clique dans la cellule B16 par exemple et que celle-ci est vide, apparait le UserForm UF_Coller pour me demander si je veux coller une valeur copiée. Cela fonctionne. Le problème est que UF_Coller apparait même si je n’ai rien à copier. C’est normal.
Ma question est : est-il possible d’identifier si une valeur a été copiée pour marquer dans ma condition : If target = "" and si valeur copiée = "" Then ?
Merci pour votre aide. Cordialement
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Réponse acceptée par l’auteur de la question
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Les deux commandes sont équivalentes. Il n'y a aucune différence.
Daniel
Réponse acceptée par l’auteur de la question
J'ai aussi laissé "variant", vu qu'on peut copier n'importe quoi.
Daniel
OK. Merci Daniel et bonne soirée.
Cordialement
Cela fonctionne mais il a fallu que je déclare une variable pour "clipo". Comme je ne savais pas, je l'ai déclaré en type "Variant".
Sinon, quel serait le type ?
Bonjour,
Dim TextClip
Set clipo = CreateObject("htmlfile")
TextClip = clipo.parentwindow.clipboardData.GetData("Text")
Le texte copié apparaît dans TextClip.
Cordialement.
Daniel