Alimenter une plage grace à une variable tableau - VB/VBA/VBS - Programmation
MarshPosté le 22-08-2010 à 07:46:09
Bonjour,
Est-il possible d'alimenter une plage de couleurs grace à une variable tableau, de manière à éviter une boucle sur toutes les cellules ? Quand je teste, la plage est alimentée uniquement par le 1er index.
Sub Couleur() Dim tblocouleur() As Variant Dim tblocouleurligne(2, 5) As Variant Dim i As Byte Dim j As Byte Dim k As Byte
tblocouleur = Array ("1", "3", "5", "4", "6", "6", "4", "1", "3", "5" ) k = 1 For i = 1 To UBound(tblocouleurligne, 1) For j = 1 To UBound(tblocouleurligne, 2) tblocouleurligne(i, j) = tblocouleur(k) k = k + 1 Next j Next i
Marsh Posté le 22-08-2010 à 07:46:09
Bonjour,
Est-il possible d'alimenter une plage de couleurs grace à une variable tableau, de manière à éviter une boucle sur toutes les cellules ?
Quand je teste, la plage est alimentée uniquement par le 1er index.
Sub Couleur()
Dim tblocouleur() As Variant
Dim tblocouleurligne(2, 5) As Variant
Dim i As Byte
Dim j As Byte
Dim k As Byte
tblocouleur = Array ("1", "3", "5", "4", "6", "6", "4", "1", "3", "5" )
k = 1
For i = 1 To UBound(tblocouleurligne, 1)
For j = 1 To UBound(tblocouleurligne, 2)
tblocouleurligne(i, j) = tblocouleur(k)
k = k + 1
Next j
Next i
Range("A1:E2" ).interior.colorIndex = tblocouleurligne
Merci pour votre aide.