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

peper_eliot · 17 Septembre 2013

Bonsoir à tous

Alors, voici ma petite question du soir...

Code:

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 · 17 Septembre 2013

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

Bonjour,

Code:

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

a+

peper_eliot · 18 Septembre 2013

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

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

peper_eliot

XLDnaute Junior

Guest

Guest

peper_eliot

XLDnaute Junior

Discussions similaires