Compter des cases dont la police est rouge

bonjour Mike-31

Quelle serait la macro si la couleur de police est bleue?
J'ai remplacé dans la macro ci-dessus "Rouge" par "Bleu" et "Red" par "Blue", mais ça ne marche pas.
Il faut préciser que c'est ma première macro :)

Merci par avance pour ta réponse

salut,

alors essaye d'écrire avec les index couleurs primaires ce sera plus facile. l'index du bleu est 5

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.Range("A18:A24") 'plage de cellule à compter
If cell.Font.ColorIndex = 5 Then '5 est l'index d'une couleur bleue
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge 'Affiche boite compteur
Worksheets("feuil1").Range("G25").Value = compterRouge 'Affiche compteur dans ma cellule ici G25
End Sub

Bjr Mike-31,

Tout d'abord merci mille fois d'avoir répondu aussi rapidement à ma requête.
C'est vraiment très sympa de ta part.
En essai, dans la feuille1 d'un classeur acceptant les macros, j'ai renseigné une suite de nombres de B2 à B9.
B3, B5, B8 sont de police bleue
B2, B4, B6, B7, B9 sont de police noire

Quand j'exécute ma macro, la fenêtre qui apparait affiche:
0 cellules-- total = 0

Voila comment j'ai transposé ta formule de rouge en bleu:

Sub inventaire5()
somme5 = 0
compter5 = 0
For Each cell In ActiveSheet.Range("B2:B9") 'plage de cellule à compter
If cell.Font.ColorIndex = 5 Then '5 est l'index d'une couleur bleue
On Error Resume Next
somme5 = somme5 + cell.Value
On Error GoTo 0
compter5 = compter5 + 1
End If
Next
If compter5 = 1 Then c = "cellule" Else c = "cellules"
MsgBox compter5 & " " & c & " -- Total = " & somme5 'Affiche boite compteur
Worksheets("feuil1").Range("C10").Value = compter5 'Affiche compteur dans ma cellule ici C10
End Sub

Je pense que vu le résultat j'ai du faire une erreur quelque part. Peux tu voir ce qui ne va pas?
Encore merci d'aider un débutant.

Re,

Explique exactement ce que tu veux faire, le code que tu as glané compte le nombre de cellules formatées (police de couleur déterminée) et faisait la somme des valeurs formatées de couleur déterminée.
Que veux-tu compter ou additionner !
Il faut faire attention au code couleur, depuis Excel 2007 nous en avons une multitude

si tu bidouilles le code il faut être précis, une variante

Sub inventaire5()
som = 0
compt = 0
For Each cell In ActiveSheet.Range("B2:B9") 'plage de cellule à compter
If cell.Font.ColorIndex = 5 Then '5 est l'index d'une couleur bleue
On Error Resume Next
som = som + cell.Value
On Error GoTo 0
compt = compt + 1
End If
Next
If compt = 1 Then c = "cellule" Else c = "cellules"
MsgBox compt & " " & c & " -- Total = " & som 'Affiche boite compteur
Worksheets("feuil1").Range("C10").Value = compt 'Affiche compteur dans ma cellule ici C10
Worksheets("feuil1").Range("C12").Value = som 'Affiche la somme dans ma cellule ici C12
End Sub

bjr Mike-31

J'ai utilisé votre variante ci dessus mais je n'arrive toujours pas à solutionner le problème.
Est-il possible de vous faire parvenir le fichier afin que vous puissiez regarder quelle erreur je commets?
Merci par avance pour votre réponse

Salut,

En effet j'aurai pu écrire le code comme ci dessous, et tu peux le modifier si tu veux

If compterRouge = 1 Then c = "ligne"

Par contre dans la ligne ci dessous, je te conseille de réduire le champ de balayage pour gagner en rapidté

For Each cell In ActiveSheet.Range("B:B")

et l'écrire comme cela

For Each cell In ActiveSheet.Range("B1:B100") de ta première cellule à la dernière

A+
__________________________________________________________________

Besoin d’aide. Auprès du forum, des bénévoles prennent le temps de décrypter vos explications parfois confuses, et proposent leur connaissance.
Solution trouvée, ayez la courtoisie de porter votre statut résolu. Afin que votre problème soit classé, et serve de référence pour d’autres cas similaires.

Bonjour tout le monde,

car les lignes rouges sont les commandes dont nous n'avons pas encore le retour
Juste une question : le rouge est mis manuellement ou par une mise en forme conditionnelle ?
Si c'est une MFC il te faut compter les lignes en utilisant les même conditions que la MFC.

eric