Compter nombre de cases d'1 couleur selon couleur case adjacente
Julie
-
JvDo Messages postés 1978 Date d'inscription Statut Membre Dernière intervention -
JvDo Messages postés 1978 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche à créer une formule qui me permettrait de compter le nombre de cases roses pour chaque département (représentés par une couleur).
L’idée est de dire :
Pour les cases colonne A (département) de la même couleur que la case D3
COMPTABILISER les cellules roses dans la colonne B
Et écrire la somme de ces cellules (nombre de cellule) dans la case F3
J'ai essayé plusieurs combinaisons mais sans succès.
Ravie de lire vos propositions!
Lien vers le fichier:
https://www.dropbox.com/s/qquoi3aos81qhht/Table%20Example.xlsx?dl=0
Je cherche à créer une formule qui me permettrait de compter le nombre de cases roses pour chaque département (représentés par une couleur).
L’idée est de dire :
Pour les cases colonne A (département) de la même couleur que la case D3
COMPTABILISER les cellules roses dans la colonne B
Et écrire la somme de ces cellules (nombre de cellule) dans la case F3
J'ai essayé plusieurs combinaisons mais sans succès.
Ravie de lire vos propositions!
Lien vers le fichier:
https://www.dropbox.com/s/qquoi3aos81qhht/Table%20Example.xlsx?dl=0
A voir également:
- Compter nombre de cases d'1 couleur selon couleur case adjacente
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
- Changer la couleur de la barre des taches - Guide
- Iphone 14 couleur - Guide
- Nombre de jours entre deux dates excel - Guide
3 réponses
Bonjour.
Les formules ne peuvent pas reconnaître et gérer les couleurs.
Tu as donc le choix entre :
Les formules ne peuvent pas reconnaître et gérer les couleurs.
Tu as donc le choix entre :
- Obtenir les couleurs à l'aide de la Mise en forme conditionnelle
- Ecrire une macro en VBA.
Bonjour,
Oui, il s'agit ici de créer une VBA.
J'ai précédemment créé les deux formules suivantes pour d'autres calculs, mais cela ne me permets pas de résoudre mon problème:
Oui, il s'agit ici de créer une VBA.
J'ai précédemment créé les deux formules suivantes pour d'autres calculs, mais cela ne me permets pas de résoudre mon problème:
Function NbColor(ByRef plage As Range, Couleur As Byte) As Long
Dim c As Range
Dim nb As Long
nb = 0
For Each c In plage
If c.Interior.ColorIndex = Couleur Then
nb = nb + 1
End If
Next c
NbColor = nb
End Function
Function NbColorSameAs(ByRef plage As Range, ByRef Cellule As Range) As Long
NbColorSameAs = NbColor(plage, Cellule.Interior.ColorIndex)
End Function
Bonjour,
Ajuste ton code :
en F3, tu écriras :
cordialement
edit : en D1, j'ai mis un fond de couleur rose.
Ajuste ton code :
Function NbColor(ByRef plage As Range, Couleur As Byte, Rose As Byte) As Long
Dim c As Range
Dim nb As Long
nb = 0
For Each c In plage
If c.Interior.ColorIndex = Couleur And c.Offset(, 1).Interior.ColorIndex = Rose Then
nb = nb + 1
End If
Next c
NbColor = nb
End Function
Function NbColorSameAs(ByRef plage As Range, ByRef Cellule As Range, ByRef PinkRef As Range) As Long
NbColorSameAs = NbColor(plage, Cellule.Interior.ColorIndex, PinkRef.Interior.ColorIndex)
End Function
en F3, tu écriras :
=NbColorSameAs($A$1:$A$12;D3;$D$1)
cordialement
edit : en D1, j'ai mis un fond de couleur rose.
