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