Microsoft 365 Compter cellule de couleur.

[Anto35200]

Bonjour au forum,

Malgré les recherches sur internet, je ne trouve pas comment je peux faire pour compter le nombre de cellule de la couleur verte de mon fichier.
Je vous transmet en fichier joint le cas.

Je vous remercie à tous.

 

[Phil69970]

Bonjour @Anto35200

Je te propose ce fichier

Merci de ton retour

 

[Lolote83]

Bonjour,
Voici ton fichier en retour
Clic sur GO et résultat en cellule G28
@+ Lolote83

 

[Anto35200]

Bonjour @Anto35200

Je te propose ce fichier

Merci de ton retour

Merci Phil69970 de ta proposition, mais je ne comprends pas la formule
=@nbCouleurs(A2:C24;E28)
la cellule indique #NOM?

 

[Anto35200]

Bonjour,
Voici ton fichier en retour
Clic sur GO et résultat en cellule G28
@+ Lolote83

 

[Anto35200]

Merci Lolote83 de ta proposition de réponse.
A quoi correspond les nombres 146,208,80 ? Je suppose que ce sont les codes couleurs. Si oui, où est -ce qu'on les trouve ?

 If xCell.Interior.Color = RGB(146, 208, 80) Then

 

[Lolote83]

Re bonjour,
Voir cette petite animation
@+ Lolote83

 

[Phil69970]

Re

@Anto35200

Merci Phil69970 de ta proposition, mais je ne comprends pas la formule
=@nbCouleurs(A2:C24;E28)
la cellule indique #NOM?

Pourtant dans le fichier du post #2 cela fonctionne bien et donne le bon résultat

La formule fonctionne grâce à une fonction personnalisée

Si tu as accepté les macros elle fonctionne sur tous les PC

Et comment fonctionne t'elle ?

C'est simple elle compte toutes les couleurs identiques à la couleur de référence indiqué en E28

 

[Anto35200]

Re

@Anto35200


Pourtant dans le fichier du post #2 cela fonctionne bien et donne le bon résultat

Regarde la pièce jointe 1196951

La formule fonctionne grâce à une fonction personnalisée

Regarde la pièce jointe 1196952

Si tu as accepté les macros elle fonctionne sur tous les PC

Et comment fonctionne t'elle ?

C'est simple elle compte toutes les couleurs identiques à la couleur de référence indiqué en E28

C'est bon çà fonctionne maintenant !
Dans le cas ou je dois rajouter de la couleur verte dans la même plage de cellule, comment on actualise le Total ?

 

[Anto35200]

Existe-il une formule sans Macros ?

 

[Phil69970]

Re

@Anto35200

Dans le cas ou je dois rajouter de la couleur verte dans la même plage de cellule, comment on actualise le Total ?

C'est automatique

 

[Lolote83]

Bonjour,

Existe t-il une solution sans macros ?

Non, je ne pense pas, c'est pourquoi, que ce soit moi ou @Phil69970 (que je salue au passage) t'avons proposé une solution via VBA.
@+ Lolote83

 

[Phil69970]

Bonjour @Anto35200 et @Lolote83

Je pense aussi comme @Lolote83 (ce n'est pas possible)
Tu as le choix entre nos 2 réponses et toutes les 2 avec VBA
A toi de choisir celle que tu préfères

 

[Lolote83]

Re bonjour,
L'avantage de la solution proposée par @Phil69970 est que c'est une fonction personnalisée donc elle se recalcule automatiquement. La mienne, tu es obligé de cliquer sur le bouton pour avoir le résultat. De plus, dans la version de Phil69970, il prend référence à la couleur de la cellule en E28 alors que, de mon coté, j'ai figé la couleur sur son RGB. Avec celle de Phil69970, si tu changes la couleur de la cellule E28, cela te recalculera les cellules associées à cette couleur donc à mon sens, beaucoup plus pratique. A toi de voir
@+ Lolote83

 

[Nicolas JACQUIN]

Bonjour,

Sub CompterCellulesEnvert()
Dim PlageTest As Range, iCell As Range
Set PlageTest = Range("A2:C24")
For Each iCell In PlageTest
    If iCell.Interior.color = RGB(146, 208, 80) Then
        CompterCellules = CompterCellules + 1
    End If
Next iCell
MsgBox "Il y a " & CompterCellules & " cellules vert."
[G28].Value = CompterCellules
End Sub

ou

Private Sub Worksheet_Change(ByVal Target As Range)
Dim PlageTest As Range, iCell As Range
Set PlageTest = Range("A2:C24")
For Each iCell In PlageTest
    If iCell.Interior.Color = RGB(146, 208, 80) Then
        CompterCellules = CompterCellules + 1
    End If
Next iCell
MsgBox "Il y a " & CompterCellules & " cellules vert."
[G28].Value = CompterCellules
End Sub

Bonne soirée.
Nicolas