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

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