Compter nombre de cellules répondant à 2 critères

Bonjour le forum,

Je recherche une petite (ou pas) fonction qui me permet de compter le nombre de cellules répondant à 2 critères comme suit:

• une celllule contenant un texte spécifique
• La couleur de fond est rouge

Exemple :

J'ai deux colonne A et B --> si la cellule A1 dans la plage A1:A100 contient "toto"

et si la cellule B1 dans la plage B1:B100 est coloré en rouge

Alors la valeur de la cellule C1 = 1 sinon 0

Je vous remercie par avance pour vos réponses.

Bonjour,

est ce que les cellules de la plage B1:B100 sont colorées en rouge ou bien c'est une Mise en Forme Conditionnel ?

si c'est une MFC, quel est la condition ?

sabV a écrit :

Bonjour,

est ce que les cellules de la plage B1:B100 sont colorées en rouge ou bien c'est une Mise en Forme Conditionnel ?

si c'est une MFC, quel est la condition ?

c'est une mise en forme conditionnel, dans la colonne B j'ai des dates, et si la date est dépassée de 6 semains cela met la cellule en rouge.

Bonjour,

Pour le test.

Bonjour,

à tester,

Sub test()
Dim i As Integer, t As Boolean
For i = 1 To 3
 t = Evaluate(Range("B" & i).FormatConditions.Item(1).Formula1)
 If Range("A" & i) = "toto" And t Then
   Range("C" & i) = 1
 Else
   Range("C" & i) = 0
 End If
Next
End Sub

sabV a écrit :

Bonjour,

à tester,

Sub test()
Dim i As Integer, t As Boolean
For i = 1 To 3
 t = Evaluate(Range("B" & i).FormatConditions.Item(1).Formula1)
 If Range("A" & i) = "toto" And t Then
   Range("C" & i) = 1
 Else
   Range("C" & i) = 0
 End If
Next
End Sub

Re-salut,

J'ai testé sur mon fichier mais cela ne marche pas ca bloque au niveau de la ligne:

 t = Evaluate(Range("B" & i).FormatConditions.Item(1).Formula1)

Raja a écrit :

Bonjour,

Pour le test.

Je joins un fichier exemple pour une meilleure compréhension.

Merci par avance.

Re,

Formule suivante en I10 à copier vers le bas :

=SOMMEPROD(($E$8:$E$22<AUJOURDHUI()-42)*($D$8:$D$22=H10))

Raja a écrit :

Re,

Formule suivante en I10 à copier vers le bas :

=SOMMEPROD(($E$8:$E$22<AUJOURDHUI()-42)*($D$8:$D$22=H10))

Cela marche parfaitement Merci beaucoup pour ton aide Raja

Merci également à sabV pour ta proposition, que je garde sous la main et qui me servira surement dans le futur