XL 2010 Copie de celldiscontinues

[melchior]

Bonsoir tout le monde ....
Sub Yo_Man()
Yo = ActiveCell.Row
Range("A" & Yo & ":Q" & Yo).copy
End Sub

Bonjour dans un exemple sur le forum j ai trouve ça
Donc copie ligne active de A à Q
Ma question est : comment copier de A à Q plus V par exemple
Merci d avance pour toutes vos sujetions ....
Evelynetfrancois

 

[Robert]

Bonsoir Melchior, bonsoir le forum,

Une possibilité :

Application.Union(Cells(yo, "A").Resize(1, 17), Cells(yo, "Z")).Copy

 

[frangy]

Bonsoir,

Range("A" & Yo & ":Q" & Yo & ", V" & Yo).Copy

Cordialement.

 

[melchior]

Merci Robert et Frangy pour vos solutions super rapide , je teste tt ça
Pour frangy : juste devant le V je mettais deux petits points au lieu d une virgule , c est là que ca devait pecher je pense
Encore mille mercis