Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
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.
Conséquence ==> J'ai fait la macro en fonction du fichier fournit et pas en fonction du post # 17
3) Une seule macro fait tout avec le résultat demandé directement
4) J'ai fait des essais ET tu vas rire mais cela fonctionne (!!!! 🤣 ==> Cela fonctionne avec le fichier fournit au post # 17 ==> Extraction du 21.05.2024.xlsx
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 ?
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 ?
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 😉
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
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
VB:
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
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD