OVH Cloud OVH Cloud

Compter des cellules en couleur

1 réponse
Avatar
Jerome FOURNET
Bonjour,
Lorsque je valide une intervention, je met la ligne corespondante en vert.
En bas de mon tableau, je souhaiterai avoir le nombre total de mes lignes
vertes..
Comment est ce possible ??

Merci

Jerom

1 réponse

Avatar
tictok
Bonjour Jerome.
Essaies ca (je garantis rien :D)

Sub NombredeLigneVertes()
Dim Ligne As Row
Dim total As Variant
For Each Ligne In Selection
If Ligne.Interior.ColorIndex = ZZ Then 'rouge
total = total + Ligne.Count
End If
Next
MsgBox "Il y a " & total & " lignes vertes"
Range("A1") = total
End Sub

ZZ correspond au code de la couleur. Noir = 1, Vert = ?

"Jerome FOURNET" escreveu na mensagem
news:
Bonjour,
Lorsque je valide une intervention, je met la ligne corespondante en vert.
En bas de mon tableau, je souhaiterai avoir le nombre total de mes lignes
vertes..
Comment est ce possible ??

Merci

Jerom