XL03 VBA: syntaxe Range()

[Christian22]

Bonjour à tous,
je voudrais faire un copier coller, dans lequel je sélectionne plusieurs groupes de cellules non connexes, pour les copier.
Si les adresses de mes cellules sont fixes, la sélection s'écrit par exemple:

Range("D7:D9,G7:G9").Select

j'aimerais faire la même sélection avec un adressage variable de mes cellules, du type

Range(cells(7,4):cells(i,4), cells(7,7):cells(i,7)).Select

ce qui ne fonctionne pas car il ne reconnait pas le : dans ce cas.

Connaissez vous une solution pour réaliser cette sélection multiple ( car cela ne pose pas de problème si je sélectionne juste Range(cells(7,4),cells(i,4)))

Merci de votre aide

Christian

 

[gwenlorin]

Re : XL03 VBA: syntaxe Range()

Bonjour,

avec le terme "UNION" tu peux regrouper plusieurs range dans une même sélection.

dans ton cas çà donnerait quelque chose comme :

Union(Range(Cells(7, 4), Cells(i, 4)), Range(Cells(7, 7), Cells(i, 7))).Select

Solution extensible à plus de 2 range selectionnés en même temps

A+

 

[pierrejean]

Re : XL03 VBA: syntaxe Range()

bonjour Christian

Il doit y avoir mieux mais ceci semble fonctionner

Range(Cells(7, 4).Address & ":" & Cells(i, 4).Address & "," & Cells(7, 7).Address & ":" & Cells(i, 7).Address).Select

Edit Salut gwenlorin (j'aurais du actuliser !!!)

 

[gwenlorin]

Re : XL03 VBA: syntaxe Range()

Salut Pierrejean,

2 solutions valent mieux qu'une !
Christian choisira celle qui l'attire le plus 🙂

A+

 

[Christian22]

Re : XL03 VBA: syntaxe Range()

Merci à tous les deux pour vos réponses,

et votre rapidité,

Union me semble parfait dans mon cas (c'est un peu plus lisible si je selectionne plusieurs range)

A bientôt,

Christian