compter cellules coloriées

[Pierrot]

Bonsoir au Forum

Dans la fonction suivant j'ai toujour une valeur total=0, alors que je recherche le nbre de cellules coloriées en blanc.
J'ai beau avoir fait des recherches sur le forum, je ne trouve rien.

private sub comptecellulecouleur

Set MaPlage = Sheets("Feuil1").range("C3:C18").
Total = 0
For Each cell In MaPlage
If cell.interior.ColorIndex = 2 Then
total = total + 1
End If
Next
Sheets("Feuil1").Range("C20") = Total

end sub

Merci d'avance pour votre aide

Pierrot

 

[Emmanuel]

bonjour Pierrot

Voici une petite macro créé par TI, que j'ai trouvé, peut être cela va t'il d'aider!!.

Bonne soirée
Emmanuel

 

[dan]

Bonjour,

Essaie cette macro. cela devrait fonctionner.

Sub NombredeCellBlanc()
Dim Cellule As Range
Dim total As Variant
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 2 Then 'blanc
total = total + Cellule.Count
End If
Next
MsgBox "Il y a " & total & " Cellules Blanches"
Range("A1") = total
End Sub

Bon Travail

@+
Dan

 

[Mytå]

salut Pierrot, Emmanuel et dan

Si ta couleur est posé par mise en forme conditionnelle

oublie le calcul du nombre total de cellule de couleurs.

Mytå

 

[Pierrot]

Bonsoir au forum.

Merci à tous pour vos solutions, j'ai cependant remplacé la valeur 2 qui correspond au blanc par la valeur xlnone, qui correspond en fait que les cellules sont vides.


Pierrot

A+