XL 2010 Copie de celldiscontinues

melchior · 5 Juin 2019

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 · 5 Juin 2019

Bonsoir Melchior, bonsoir le forum,

Une possibilité :

VB:

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

frangy · 5 Juin 2019

Bonsoir,

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

Cordialement.

melchior · 5 Juin 2019

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

XL 2010 Copie de celldiscontinues

melchior

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

frangy

XLDnaute Occasionnel

melchior

XLDnaute Nouveau

Discussions similaires