bonjour,
je souhaite trouver une fonction qui puisse m'aider à compter les chiffres
d'une certaine couleur dans une colonne. Par exemple, si jai un "1" de
couleur rouge dans les cellules A1;A5; A10 je souhaite faire le calcul en bas
de la colonne du nombre de "1" de couleur rouge. Maintenant si j'ai des "1"
de couleur bleue, je souhaite aussi faire le décompte. Merci de votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour enirakenna,
Dans un module du classeur:
Function Pfff(Zone As Range, critere, couleur As String) Application.Volatile Select Case couleur Case "rouge": couleur = 3 Case "vert": couleur = 50 Case "jaune": couleur = 6 Case "bleu": couleur = 5 Case "gris": couleur = 15 Case "orange": couleur = 40 End Select For Each c In Zone If c.Font.ColorIndex = couleur And c = critere Then cvSomme = _ cvSomme + 1 Next Pfff = cvSomme End Function
Dans une cellule de l'onglet concerné: (avec par ex. la plage de données sur A1:A10)
=Pfff(A1:A10;1;"rouge")
nb: mise à jour nécessaire de la fonction, en cas de modif couleur dans la plage de données, par F9.
ChrisV
"enirakenna" a écrit dans le message de news:
bonjour, je souhaite trouver une fonction qui puisse m'aider à compter les chiffres d'une certaine couleur dans une colonne. Par exemple, si jai un "1" de couleur rouge dans les cellules A1;A5; A10 je souhaite faire le calcul en bas de la colonne du nombre de "1" de couleur rouge. Maintenant si j'ai des "1" de couleur bleue, je souhaite aussi faire le décompte. Merci de votre aide
Bonjour enirakenna,
Dans un module du classeur:
Function Pfff(Zone As Range, critere, couleur As String)
Application.Volatile
Select Case couleur
Case "rouge": couleur = 3
Case "vert": couleur = 50
Case "jaune": couleur = 6
Case "bleu": couleur = 5
Case "gris": couleur = 15
Case "orange": couleur = 40
End Select
For Each c In Zone
If c.Font.ColorIndex = couleur And c = critere Then cvSomme = _
cvSomme + 1
Next
Pfff = cvSomme
End Function
Dans une cellule de l'onglet concerné:
(avec par ex. la plage de données sur A1:A10)
=Pfff(A1:A10;1;"rouge")
nb: mise à jour nécessaire de la fonction, en cas de modif couleur dans la
plage de données, par F9.
ChrisV
"enirakenna" <enirakenna@discussions.microsoft.com> a écrit dans le message
de news: 1C3BEAC2-3109-4388-8658-978295DCD43F@microsoft.com...
bonjour,
je souhaite trouver une fonction qui puisse m'aider à compter les chiffres
d'une certaine couleur dans une colonne. Par exemple, si jai un "1" de
couleur rouge dans les cellules A1;A5; A10 je souhaite faire le calcul en
bas
de la colonne du nombre de "1" de couleur rouge. Maintenant si j'ai des
"1"
de couleur bleue, je souhaite aussi faire le décompte. Merci de votre aide
Function Pfff(Zone As Range, critere, couleur As String) Application.Volatile Select Case couleur Case "rouge": couleur = 3 Case "vert": couleur = 50 Case "jaune": couleur = 6 Case "bleu": couleur = 5 Case "gris": couleur = 15 Case "orange": couleur = 40 End Select For Each c In Zone If c.Font.ColorIndex = couleur And c = critere Then cvSomme = _ cvSomme + 1 Next Pfff = cvSomme End Function
Dans une cellule de l'onglet concerné: (avec par ex. la plage de données sur A1:A10)
=Pfff(A1:A10;1;"rouge")
nb: mise à jour nécessaire de la fonction, en cas de modif couleur dans la plage de données, par F9.
ChrisV
"enirakenna" a écrit dans le message de news:
bonjour, je souhaite trouver une fonction qui puisse m'aider à compter les chiffres d'une certaine couleur dans une colonne. Par exemple, si jai un "1" de couleur rouge dans les cellules A1;A5; A10 je souhaite faire le calcul en bas de la colonne du nombre de "1" de couleur rouge. Maintenant si j'ai des "1" de couleur bleue, je souhaite aussi faire le décompte. Merci de votre aide
