Balayage des cellules dans 2 colonnes contigues ou non contigues d'un tableau

[peper_eliot]

Bonsoir à tous

Alors, voici ma petite question du soir...

Dim cel As Range
Set MaListe = Sheets("DATA").ListObjects("Tableau2")
'Je balaye TOUTES les cellules de mon tableau
    For Each cel In MaListe.DataBodyRange.Cells        
'action
    Next cel

'Je balaye TOUTES les cellules d'UNE COLONNE de mon tableau
    For Each cel In MaListe.DataBodyRange.Columns(3).Cells
'action    
    Next cel

'COMMENT BALAYER TOUTES LES CELLULES DE 2 COLONNES NON CONTIGUES ??

'COMMENT BALAYER TOUTES LES CELLULES DE 2 COLONNES CONTIGUES ??

Voilà, c'est pas grand chose, mais je vous remercie par avance pour vos lumières

 

[Guest]

Re : Balayage des cellules dans 2 colonnes contigues ou non contigues d'un tableau

Bonjour,

With MaListe.DataBodyRange
For Each cel In Union(.Columns(3),.Columns(7)).cells
'action 
Next cel
End With

a+

 

[peper_eliot]

Re : Balayage des cellules dans 2 colonnes contigues ou non contigues d'un tableau

MAGNIFIQUE !
Et désolé de n'avoir pas répondu plus tôt... Dès hier 8h30, j'étais sur ta soluce dans le RER
J'ai déjà vu des post parlant de UNION, mais c'est comme tout, si on ne pratique pas...

Alors un grand merci à toi Hasco, tu m'a évité de prendre un Aspro