Intégrer un fonction concernant le format de cellule

Bonjour,

Il y a peut-être plus simple mais une macro avec une boucle sur la colonne peut faire l'affaire

Sub essai()
'
j = 0
For i = 1 To 10
Cells(i, 1).Select

If Selection.Interior.ColorIndex = 3 Then j = j + 1
Next i
Cells(1, 4) = j

End Sub

Attention au code Couleur (dans l'aide intuitive de visual basic: une recherche sur "pattern color index" donne tous les codes des couleurs

Bon courage

Bonjour à tous,

Mag380 si tu veux une fonction type excel, colles cela dans un module:

Public Function NbC(Plage As Range, Couleur As Byte) As Long
On Error GoTo Errr
Dim C As Range
For Each C In Plage
If C.Interior.ColorIndex = Couleur Then NbC = NbC + 1
Next C
Errr:
If Err <> 0 Then NbC = -1
End Function


Dans ta feuille de calcul, dans les cellules où tu veux le résultat par exemple en B2 pour compter les les cellules qui ont le motif rouge en A1:A10
=nbc(A1:A10;3)

Pour les autres couleurs suis les conseils de Marc.

A+++

Merci à tous les deux !

J'ai essayé les deux solutions, et ça me renvoie désespérement 0 !

Je crois avoir compris le principe, mais ne vois pas d'où vient l'erreur !


Merci encore pour vos réponses

Mag

Re,

Si tu as écrit la macro comme je l'ai indiqué, ça doit marcher.

Utilise-tu le bon code pour la couleur ?

Salut