Compte de cellules colorées

Bonjour Olivier

En faisant une recherche avec Laetys en nom d'auteur et pour la date du 28/01/04 tu trouveras comme elle .... ton bonheur ou du moins une piste, un boulevard, une avenue pour te promener avec tes cellules colorées.
Bonne journée
@+
GD

Salut"Olivier"
Salut le "FORUM"
Peut être as tu déjà ta solution mais j'ai bidouillé celle ci
tu vois ,tu l'adapte tu l'oublies au choix n'hésites pas
A+++
Jean Marie

Merci à tous les deux, je vais plutôt utiliser la solution de Jean-Marie qui me convient tout à fait 🙂
Et je ne vais pas l'adapter, je ne connais rien au langage VB... Il faudrait que je me documente sérieusement un jour ou l'autre.

Thanks again !

A bientôt

Olivier

Bonjour Olivier
Bonjour le CH'TI
J'ai essayé de modifier la solution de J-M histoire de pinailler un peu. Le Msgbox devant afficher un accord orthographique cohérent : des pluriels si plusieurs lignes et .... la suite.

Cela fonctionne avec

If compteur > 1 Then
MsgBox "Il y a " & compteur & " cellules Rouges", vbExclamation + vbOKOnly, "COMPTEUR"
End If
If compteur = 1 Then
MsgBox "Il y a une seule cellule Rouge", vbExclamation + vbOKOnly, "COMPTEUR"
End If
If compteur = 0 Then
MsgBox "Il n'y a pas de cellule Rouge", vbExclamation + vbOKOnly, "COMPTEUR"
End If
End Sub

Mais cela me semble bien lourd ! J'ai bcp a apprendre alors si JM ou une autre personne peut me renseigner sur cette éventuelle cure d'amaigrissement de code ....
Merci d'avance à toutes et tous.
Bine sincèrement
GD

Salut à tous
avec un peu de retard en esperant qu'Olivier et Gerard repasseront par là c'est avec une petite fonction que je dégraisse
Sub CompteCellRouge()
Dim Cell As Range
Dim NbcelluleRouge As Long
Dim MaPlage As Range
Dim L As Long
Dim Compteur As Long, I As Long
Dim Test As Long

Compteur = 0
L = Range("A65536").End(xlUp).Row
Set MaPlage = Range("A2:A" & L)
For Each Cell In MaPlage.Cells
If Cell.Font.ColorIndex = 3 Then
Compteur = Compteur + 1
I = Compteur
End If
Next
MsgBox "il y a " & Compteur & Cpteur(I) & " Rouge", vbExclamation + vbOKOnly, "COMPTEUR"
End Sub
Private Function Cpteur(I As Long) As String
If I < 2 Then
Cpteur = " cellule"
Else
Cpteur = " cellules"
End If
End Function
A+++
Jean Marie