Discussion :

[lucien(67)]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Bonsoir et bienvenue sur nos forums

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?