rainbow69006
XLDnaute Occasionnel
Bonjour
Je souhaiterais compter le nomre de cellule qui sont colorie est ce possible?
Merci
Je souhaiterais compter le nomre de cellule qui sont colorie est ce possible?
Merci
sub macro()
dim cellu as range
Dim celluleCouleur as integer
for each cellu in selection
if cellu.interior.colorindex <> 2 then celluleCouleur = celluleCouleur + 1
next
msgbox "Nombre de cellules colorés :" & celluleCouleur
end sub
Bonjour
Je souhaiterais compter le nomre de cellule qui sont colorie est ce possible?
Merci
Sub additionne_si_couleur_fond()
Dim c As Range
Dim total
Range("a1:e10").Select
For Each c In Selection
If c.Interior.ColorIndex = 3 Then
totalrouge = totalrouge + 1
End If
Next c
For Each c In Selection
If c.Interior.ColorIndex = 43 Then
totalvert = totalvert + 1
End If
Next c
For Each c In Selection
If c.Interior.ColorIndex = 41 Then
totalbleu = totalbleu + 1
End If
Next c
[f1] = totalrouge
[G1] = totalvert
[H1] = totalbleu
[a3].Select
End Sub
'Si tu additionnes du texte en couleur remplace interior.colorindex par Font.Color