Utiliser une lettre dans une boucle For [VBA] - VB/VBA/VBS - Programmation
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
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