Discussion :

[Maxou 10]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[78chris]

BOnjour

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

[Maxou 10]

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

[Transitoire]

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement

[Maxou 10]

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

[Transitoire]

Bonsoir,

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

???
Je comprends pas la question désolé
Cordialement