Boucle avec cerveau kaput

yop les loulous

j'ai attribué des nom à mes cellule pour pas avoir à retaper tout à chaque fois car elles sont dans 2 boucles imbriquées avec des valeur de colonne et ligne dépendante de i et de j.

exemple que je donne est tout à fait arbitraire et ne reflète pas la difficulté réelle du fichier mais juste de mon souci.

je n'arrive pas à boucler sur mon cel pour éviter de retaper Cel1, 2 et 3 a chaque fois.

exemple

dim cel1 as range, cel2 as range, cel3 as range.
set cel1 = range("A8")
set cel2 = range("B18")
set cel2 = range("C9")

for i=1 to 3
cel(i).interior.colorindex = 4
next i

je n'arrive pas à appliquer i à mon cel.

ça doit etre possible surement.

++

Troph

PS de la même manière est-il possible de regrouper les cellules comme je l'ai fait cel1 cel2 cel 3 pour appliquer une modif un ensemble comme si on mettait les cel en facteur.

du style (cel1, cel2, cel3). interior.colorindex = 4 un peu comme la boucle, mais sur un nombre plus petit

Bonjour

Pour ta première interrogation

Sub Test()
Dim Cellules, I As Integer

  Cellules = Array("A8", "B18", "C9")

  For I = 0 To UBound(Cellules)
    Range(Cellules(I)).Interior.ColorIndex = 4
  Next I
End Sub

Et pour la seconde

Sub Test2()
  Range("A8,B18,C9").Interior.ColorIndex = 4
End Sub