Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel compter le nombre de cellules rouges

compter le nombre de cellules rouges

9 réponses
Avatar
philippe
Bonjour

Malgrés mes recherches je n'arrive pas à trouver comment compter le nombre
de cellules mises en rouge par une mise en forme conditionnelle . Je
souhaiterais mettre ce nombre dans une cellule
Merci de votre aide

PS: j'ai bien trouvé cette formule dans Excelabomais cela ne fonctionne pas
et comme je debute je ne sais pas l'exploiter
Sub Format_Conditionnel()
Dim FC As FormatCondition, F1, F2
For Each FC In ActiveCell.FormatConditions
If FC.Type = xlCellValue Then
F1 = Evaluate(FC.Formula1)
Select Case FC.Operator
Case xlBetween: If ActiveCell >= F1 _
And ActiveCell <= Evaluate(FC.Formula2) Then Exit For
Case xlEqual: If ActiveCell = F1 Then Exit For
Case xlGreater: If ActiveCell > F1 Then Exit For
Case xlGreaterEqual: If ActiveCell >= F1 Then Exit For
Case xlLess: If ActiveCell < F1 Then Exit For
Case xlLessEqual: If ActiveCell <= F1 Then Exit For
Case xlNotBetween: If ActiveCell < F1 _
Or ActiveCell > Evaluate(FC.Formula2) Then Exit For
Case xlNotEqual: If ActiveCell <> F1 Then Exit For
End Select
Else
If Evaluate(FC.Formula1) Then Exit For
End If
Next FC
If Not FC Is Nothing Then
MsgBox FC.Font.ColorIndex
Else: MsgBox ActiveCell.Font.ColorIndex
End If
End Sub
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
Avatar
Jacky
bonsoir,
Malgrés mes recherches je n'arrive pas à trouver
Cherche pas .....on ne peut pas.


Salutations
JJ
"philippe" a écrit dans le message de news:

Bonjour

Malgrés mes recherches je n'arrive pas à trouver comment compter le nombre
de cellules mises en rouge par une mise en forme conditionnelle . Je
souhaiterais mettre ce nombre dans une cellule
Merci de votre aide

PS: j'ai bien trouvé cette formule dans Excelabomais cela ne fonctionne
pas et comme je debute je ne sais pas l'exploiter
Sub Format_Conditionnel()
Dim FC As FormatCondition, F1, F2
For Each FC In ActiveCell.FormatConditions
If FC.Type = xlCellValue Then
F1 = Evaluate(FC.Formula1)
Select Case FC.Operator
Case xlBetween: If ActiveCell >= F1 _
And ActiveCell <= Evaluate(FC.Formula2) Then Exit For
Case xlEqual: If ActiveCell = F1 Then Exit For
Case xlGreater: If ActiveCell > F1 Then Exit For
Case xlGreaterEqual: If ActiveCell >= F1 Then Exit For
Case xlLess: If ActiveCell < F1 Then Exit For
Case xlLessEqual: If ActiveCell <= F1 Then Exit For
Case xlNotBetween: If ActiveCell < F1 _
Or ActiveCell > Evaluate(FC.Formula2) Then Exit For
Case xlNotEqual: If ActiveCell <> F1 Then Exit For
End Select
Else
If Evaluate(FC.Formula1) Then Exit For
End If
Next FC
If Not FC Is Nothing Then
MsgBox FC.Font.ColorIndex
Else: MsgBox ActiveCell.Font.ColorIndex
End If
End Sub



Avatar
G. L
Bonsoir Philippe,
Ce sujet est délicat et récurrent, aussi j'ai déjà vu passer une fonction
parmi les sujets traités ici.
Je l'ai testée et ç'était bon ! mais voilà ;( je ne l'ai pas sous la main.
Voir ce lien peut-être :
http://minilien.com/?gbJoOfqnL8
Cordialement
Gérard

"philippe" a écrit dans le message de
news:
Bonjour

Malgrés mes recherches je n'arrive pas à trouver comment compter le nombre
de cellules mises en rouge par une mise en forme conditionnelle . Je
souhaiterais mettre ce nombre dans une cellule
Merci de votre aide

PS: j'ai bien trouvé cette formule dans Excelabomais cela ne fonctionne
pas

et comme je debute je ne sais pas l'exploiter
Sub Format_Conditionnel()
Dim FC As FormatCondition, F1, F2
For Each FC In ActiveCell.FormatConditions
If FC.Type = xlCellValue Then
F1 = Evaluate(FC.Formula1)
Select Case FC.Operator
Case xlBetween: If ActiveCell >= F1 _
And ActiveCell <= Evaluate(FC.Formula2) Then Exit For
Case xlEqual: If ActiveCell = F1 Then Exit For
Case xlGreater: If ActiveCell > F1 Then Exit For
Case xlGreaterEqual: If ActiveCell >= F1 Then Exit For
Case xlLess: If ActiveCell < F1 Then Exit For
Case xlLessEqual: If ActiveCell <= F1 Then Exit For
Case xlNotBetween: If ActiveCell < F1 _
Or ActiveCell > Evaluate(FC.Formula2) Then Exit For
Case xlNotEqual: If ActiveCell <> F1 Then Exit For
End Select
Else
If Evaluate(FC.Formula1) Then Exit For
End If
Next FC
If Not FC Is Nothing Then
MsgBox FC.Font.ColorIndex
Else: MsgBox ActiveCell.Font.ColorIndex
End If
End Sub




Avatar
Jacky
Bonsoir Gérard

Je l'ai testée et ç'était bon !

compter le nombre de cellules mises en rouge par une mise en forme
conditionnelle



Tu es sûr de toi avec des couleurs issues de la mise forme conditionnelle ?

JJ


"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news:

Bonsoir Philippe,
Ce sujet est délicat et récurrent, aussi j'ai déjà vu passer une fonction
parmi les sujets traités ici.
Je l'ai testée et ç'était bon ! mais voilà ;( je ne l'ai pas sous la main.
Voir ce lien peut-être :
http://minilien.com/?gbJoOfqnL8
Cordialement
Gérard



Avatar
Patrick BASTARD
Bonjour, *philippe*

Utilise la condition que tu as définie dans la MEFC pour compter les
cellules qui remplissent cette condition.
En cas de besoin, publie ici ta mefc et nous t'aiderons pour ta formule de
comptage.


--
Bien amicordialement,
P. Bastard



Bonjour

Malgrés mes recherches je n'arrive pas à trouver comment compter le
nombre de cellules mises en rouge par une mise en forme
conditionnelle . Je souhaiterais mettre ce nombre dans une cellule
Merci de votre aide

PS: j'ai bien trouvé cette formule dans Excelabomais cela ne
fonctionne pas et comme je debute je ne sais pas l'exploiter
Sub Format_Conditionnel()
Dim FC As FormatCondition, F1, F2
For Each FC In ActiveCell.FormatConditions
If FC.Type = xlCellValue Then
F1 = Evaluate(FC.Formula1)
Select Case FC.Operator
Case xlBetween: If ActiveCell >= F1 _
And ActiveCell <= Evaluate(FC.Formula2) Then Exit For
Case xlEqual: If ActiveCell = F1 Then Exit For
Case xlGreater: If ActiveCell > F1 Then Exit For
Case xlGreaterEqual: If ActiveCell >= F1 Then Exit For
Case xlLess: If ActiveCell < F1 Then Exit For
Case xlLessEqual: If ActiveCell <= F1 Then Exit For
Case xlNotBetween: If ActiveCell < F1 _
Or ActiveCell > Evaluate(FC.Formula2) Then Exit For
Case xlNotEqual: If ActiveCell <> F1 Then Exit For
End Select
Else
If Evaluate(FC.Formula1) Then Exit For
End If
Next FC
If Not FC Is Nothing Then
MsgBox FC.Font.ColorIndex
Else: MsgBox ActiveCell.Font.ColorIndex
End If
End Sub


Avatar
G. L
Bonsoir Jacky,
Effectivement, après recherche, ce n'était pas avec MEFC, méa culpa !
Cordialement
Gérard



"Jacky" a écrit dans le message de
news:
Bonsoir Gérard

Je l'ai testée et ç'était bon !

compter le nombre de cellules mises en rouge par une mise en forme
conditionnelle



Tu es sûr de toi avec des couleurs issues de la mise forme conditionnelle
?


JJ


"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news:

Bonsoir Philippe,
Ce sujet est délicat et récurrent, aussi j'ai déjà vu passer une
fonction


parmi les sujets traités ici.
Je l'ai testée et ç'était bon ! mais voilà ;( je ne l'ai pas sous la
main.


Voir ce lien peut-être :
http://minilien.com/?gbJoOfqnL8
Cordialement
Gérard







Avatar
AV
| Malgrés mes recherches je n'arrive pas à trouver comment compter le nombre
| de cellules mises en rouge par une mise en forme conditionnelle .

Dans la sélection, compter si la police est rouge (Index 3) (par MEFC)
Pour compter avec motif cellule en rouge (3), remplacer
"Font.ColorIndex" par "Interior.ColorIndex"

Sub Compte_FC()
For Each c In Selection
Dim FC As FormatCondition, F1, F2
For Each FC In c.FormatConditions
If FC.Type = xlCellValue Then
F1 = Evaluate(FC.Formula1)
Select Case FC.Operator
Case xlBetween: If c >= F1 _
And c <= Evaluate(FC.Formula2) Then Exit For
Case xlEqual: If c = F1 Then Exit For
Case xlGreater: If c > F1 Then Exit For
Case xlGreaterEqual: If c >= F1 Then Exit For
Case xlLess: If c < F1 Then Exit For
Case xlLessEqual: If c <= F1 Then Exit For
Case xlNotBetween: If c < F1 _
Or c > Evaluate(FC.Formula2) Then Exit For
Case xlNotEqual: If c <> F1 Then Exit For
End Select
Else
If Evaluate(FC.Formula1) Then Exit For
End If
Next FC
If Not FC Is Nothing Then
'If FC.Font.ColorIndex = 3 Then x = x + 1
If FC.Interior.ColorIndex = 3 Then x = x + 1
End If
Next
MsgBox x
End Sub

AV
Avatar
AV
PS : Il est prudent d'ajouter
On Error Resume Next
avant
If Evaluate(FC.Formula1) Then Exit For

AV
Avatar
Sylvain/11XX
Bonjour,

Mise en forme conditionnelle. Le nom me plait mais comment on fait ca.
Par exemple tout simplement pour que le fond de la cellule soit vert pour un
solde positif et rouge pour un solde négatif ?

merci

"philippe" a écrit dans le message de
news:
Bonjour

Malgrés mes recherches je n'arrive pas à trouver comment compter le nombre
de cellules mises en rouge par une mise en forme conditionnelle . Je
souhaiterais mettre ce nombre dans une cellule
Merci de votre aide

PS: j'ai bien trouvé cette formule dans Excelabomais cela ne fonctionne
pas

et comme je debute je ne sais pas l'exploiter
Sub Format_Conditionnel()
Dim FC As FormatCondition, F1, F2
For Each FC In ActiveCell.FormatConditions
If FC.Type = xlCellValue Then
F1 = Evaluate(FC.Formula1)
Select Case FC.Operator
Case xlBetween: If ActiveCell >= F1 _
And ActiveCell <= Evaluate(FC.Formula2) Then Exit For
Case xlEqual: If ActiveCell = F1 Then Exit For
Case xlGreater: If ActiveCell > F1 Then Exit For
Case xlGreaterEqual: If ActiveCell >= F1 Then Exit For
Case xlLess: If ActiveCell < F1 Then Exit For
Case xlLessEqual: If ActiveCell <= F1 Then Exit For
Case xlNotBetween: If ActiveCell < F1 _
Or ActiveCell > Evaluate(FC.Formula2) Then Exit For
Case xlNotEqual: If ActiveCell <> F1 Then Exit For
End Select
Else
If Evaluate(FC.Formula1) Then Exit For
End If
Next FC
If Not FC Is Nothing Then
MsgBox FC.Font.ColorIndex
Else: MsgBox ActiveCell.Font.ColorIndex
End If
End Sub




Avatar
Sylvain/11XX
C'est bon j'ai trouvé ma reponse dans un thread en dessous.

merci

"Sylvain/11XX" a écrit dans le message de
news:43df2997$0$6647$
Bonjour,

Mise en forme conditionnelle. Le nom me plait mais comment on fait ca.
Par exemple tout simplement pour que le fond de la cellule soit vert pour
un

solde positif et rouge pour un solde négatif ?

merci

"philippe" a écrit dans le message de
news:
Bonjour

Malgrés mes recherches je n'arrive pas à trouver comment compter le
nombre


de cellules mises en rouge par une mise en forme conditionnelle . Je
souhaiterais mettre ce nombre dans une cellule
Merci de votre aide

PS: j'ai bien trouvé cette formule dans Excelabomais cela ne fonctionne
pas

et comme je debute je ne sais pas l'exploiter
Sub Format_Conditionnel()
Dim FC As FormatCondition, F1, F2
For Each FC In ActiveCell.FormatConditions
If FC.Type = xlCellValue Then
F1 = Evaluate(FC.Formula1)
Select Case FC.Operator
Case xlBetween: If ActiveCell >= F1 _
And ActiveCell <= Evaluate(FC.Formula2) Then Exit For
Case xlEqual: If ActiveCell = F1 Then Exit For
Case xlGreater: If ActiveCell > F1 Then Exit For
Case xlGreaterEqual: If ActiveCell >= F1 Then Exit For
Case xlLess: If ActiveCell < F1 Then Exit For
Case xlLessEqual: If ActiveCell <= F1 Then Exit For
Case xlNotBetween: If ActiveCell < F1 _
Or ActiveCell > Evaluate(FC.Formula2) Then Exit For
Case xlNotEqual: If ActiveCell <> F1 Then Exit For
End Select
Else
If Evaluate(FC.Formula1) Then Exit For
End If
Next FC
If Not FC Is Nothing Then
MsgBox FC.Font.ColorIndex
Else: MsgBox ActiveCell.Font.ColorIndex
End If
End Sub