Sélect case en copy une autre

Bonjour,

Je débute et j’aimerais quand je sélectionne sur une case entre c7 et c20 cela me copy B2:B3

Voilà mon code

Code:

---

1 2 3 4 5

Private sub Worksheet_CopyClick (ByVal Target As Range) If Not Intersect (Target, Range("C7:C20")) Is Nothing Then Sheets("feuille1").Range("B2:B3").Copy End If End Sub

---

Merci et bonne journée

BOnjour

Il faudrait utilise l'événement SelectionChange
Copy cela met dans le presse papier mais après tu le colles où ?

Je le colle dans un autre programme
Le SelectionChange sert à quoi et tu le met ou ?

Bonjour,
en fait l'évènement "SelectionChange" est atteint en double cliquant sur Feuille1 dans le projet du VBA et en sélectionnant SelectionChange. voir ci-dessous.
Pièce jointe 501539
Attention sur mon document j'utilise Sheets("Feuil1"), mais il faudra le remplacer par votre nom de feuille a vous, ensuite vous n'aurez plus qu'a coller ou vous le souhaitez.

Code:

---

1 2 3

If Not Intersect(Target, Range("C7:C20")) Is Nothing Then Sheets("Feuil1").Range("B2:B3").Copy End If

---

Cordialement :weird:

Et si j’ai d’autres code cela les fera Bug ou pas ?

Bonsoir,

Citation:

---

Et si j’ai d’autres code cela les fera Bug ou pas ?

---

??? :aie:
Je comprends pas la question désolé :weird:
Cordialement 8-)

Le fait de mettre en sélectionchange peut-il faire changer le fonctionnement de mes autres code VBA qui sont dans la même feuille ?

Bonjour,

Citation:

---

Envoyé par Maxou 10

Le fait de mettre en sélectionchange peut-il faire changer le fonctionnement de mes autres code VBA qui sont dans la même feuille ?

---

Impossible de répondre si tu ne publie pas tes autres codes !

Ceci dit c'est une mauvaise méthode que ne pas copier / coller dans la même procédure.
Et il est préférable d'utiliser une seule instruction pour éviter de passer par le presse papier.