Utiliser une lettre dans une boucle For

3 réponses

Lycaon

19/10/2006 à 16:19

Bonjour =E0 tous,

Je voudrais r=E9aliser de la mise en forme sur plusieurs colonnes non
adjacentes.

For Each X In [B,I,M,R,T]

Columns("X:X").Select

With Selection.Borders(xlEdgeRight)
.LineStyle =3D xlContinuous
.Weight =3D xlThick
.ColorIndex =3D xlAutomatic
End With
Next X

Mais cette syntaxe n'est pas fonctionnelle. Quelle est la bonne syntaxe
?

Merci pour votre aide,

Lycaon

3 réponses

19/10/2006 à 16:32

For Each X In [B,I,M,R,T]

For Each X In Range("B:B,I:I,M:M,.....")
Si j'étais toi j'éviterais de boucler sur chaque cellule de chacune de ces
colonnes....
Mais c'est comme tu veux...

AV

Jacky

19/10/2006 à 16:39

Bonsoir,
Ceci peut-être
'----------
With Range("B:B,I:I,M:M,R:R").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
'-------------

--
Salutations
JJ

"Lycaon" a écrit dans le message de news:

Bonjour à tous,

Je voudrais réaliser de la mise en forme sur plusieurs colonnes non
adjacentes.

For Each X In [B,I,M,R,T]

Columns("X:X").Select

With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Next X

Mais cette syntaxe n'est pas fonctionnelle. Quelle est la bonne syntaxe
?

Merci pour votre aide,

Lycaon

Lycaon

19/10/2006 à 16:53

Merci à tous les deux pour votre aide.

J'ai un peu surfé et voilà une autre solution :

Dim X As Variant

For Each X In Array("B", "I", "M", "R", "T")
Columns(X & ":" & X).Select

... suite de mon code

Utiliser une lettre dans une boucle For

3 réponses

Veuillez sélectionner un problème