Range("C7:J50","K7:K50") en VBA

[jhofman]

Bonjour,


je cherche à parcourir 2 plages de cellulles.

Set range1 = Range("C7:J50")
Set range2 = Range("K7:K50")

avec un code du genre.
For Each Cel In range1...etc.

et en utilsant la variable
L = Sheets(ONGLET_name).Range("A65536").End(xlUp).Row
afin de définir le range précisément.


avec un seul groupe de cellules, c'est facile.
avec 2, j'ai du mal à écrire mon code de manière synthétique.
Range("C7:J50","K7:K50")
Merci de votre aide🙂

 

[Compte Supprimé 979]

Re : Range("C7:J50","K7:K50") en VBA

Bonjour Jhofman,

Tout dépend si tes 2 plages de cellules sont systématiquement de même longueur ou non !?

Si oui :

With [COLOR=black]Sheets(ONGLET_name)[/COLOR]
[COLOR=black]  L = .Range("A65536").End(xlUp).Row[/COLOR]
[COLOR=black]  Set MyRge = .Range("C7:K" & L)[/COLOR]
[COLOR=black]  For Each Cel In MyRge[/COLOR]
  Next Cel
End With

Voilà 😉

 

[jhofman]

Re : Range("C7:J50","K7:K50") en VBA

idiot que je suis, je voulais dire
2 plages non adjacentes (de même longueur)


Set range1 = Range("C7:J50")
Set range2 = Range("L7:L50")

 

[pierrejean]

Re : Range("C7:J50","K7:K50") en VBA

bonjour jhofman

Salut Bruno 🙂 🙂

une solution pour des ranges de dimension differentes et non contigues

[COLOR=black]L = Sheets(ONGLET_name).Range("A65536").End(xlUp).Row[/COLOR]
Set LeRange = Application.Union(Range("C7:E" & L), Range("K7:K" & L))
For Each cel In LeRange
   cel.value.......
Next cel

 

[jhofman]

Re : Range("C7:J50","K7:K50") en VBA

merci beaucoup pierrejean


c'est exactement la syntaxe que je cherchais.


🙂