[VBA]Utiliser une lettre dans une boucle For

Utiliser une lettre dans une boucle For [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 19-10-2006 à 16:21:07    

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

Reply

Marsh Posté le 19-10-2006 à 16:21:07   

Reply

Marsh Posté le 19-10-2006 à 19:53:30    

Bonsoir,
Je n'ai trouvé que ça:
 
Sub test()
Dim aaa As Variant
aaa = Array("B", "I", "M", "R", "T" )
For i = 0 To 4
X = aaa(i)
Columns(X).Select
 
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThick
            .ColorIndex = xlAutomatic
        End With
Next i
 
End Sub
Cordialement

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed