Copié collé spécial

[Jean-Baptiste]

Bonjour le forum, Bonjour à tous,

Je voudrais que ma macro execute un copie collé lorsque ma cellule indique une selection et qu'elle ne copie rien si ma selection est vide.
Cf pièce jointe (exemple)

Merci pour votre aide.

 

[CBernardT]

Bonjour Jean-Baptiste


Et une macro qui fait des trucs !

Sub Selection()
Dim C As Byte
C = 1 + Application.Count(Range("H2:H4"))
If Range("C2") <> "" Then
Range("B8") = "E" & C & ",H" & 2 & ":I" & C
Else
Range("B8").ClearContents
End If
End Sub

Cordialement

CBernardT

 

[Jean-Baptiste]

Merci CBernardT pour tes conseils

Salutations Jean-Baptiste