VBA Combinaison de 2 range

[msingle]

Bonsoir,

Y a-t-il un moyen de regrouper ces 2 lignes en une seule :

Range("A5:N" & Range("N" & Rows.Count).End(xlUp).Row).Copy

Range("Q5:R" & Range("R" & Rows.Count).End(xlUp).Row).Copy

Merci de votre aide.

 

[eriiic]

Re : VBA Combinaison de 2 range

Bonjour,

Si N et R même longueur :

Intersect(Range("A:N,Q:R"), Rows("5:" & Range("R" & Rows.Count).End(xlUp).Row)).Copy

sinon utiliser Union(plage1,plage2)
eric

 

[msingle]

Re : VBA Combinaison de 2 range

Merci, c'est parfait!