Incrémenter les lignes d'un tableau excel par une variable

Bonjour,
Je viens de monter un tableau ou excel doit reconnaitre des couleurs et m'additionner les cases de la même couleur sur la ligne et ce sur plusieurs lignes. Pour ceci j'ai écrit le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9

Dim Cellule As Range Dim totATM As Variant Range("H9:AL9").Select For Each Cellule In Selection If Cellule.Interior.ColorIndex = 10 And Cellule.Value = "" Then totATM = totATM + Cellule.Count End If Next Range("BE9") = totATM

---

Je pensais pouvoir remplacer le n° de ligne en l'occurence 9 par une variable, mais je n'y arrive pas. Celà eviterai de réécrire le même code pour chaque ligne
Est ce que quelqu'un a une idée.
Merci

Bonsoir et bienvenue sur nos forums

Il faut reconstituer la chaine d'adresse en y incluant la variable

Code:

---

1 2 3

dim Ligne as long ligne = 9 Range("H" & ligne & ":AL" & ligne)

---

Tant qu'à améliorer le code, il n'est pas nécessaire de sélectionner la plage pour travailler avec

Code:

---

For each cellule in Range("H" & ligne & ":AL" & ligne)

---

fonctionne très bien, est plus rapide, et ne modifie pas la sélection des cellules.


Ok?