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 les cellules en jaune

Compter les cellules en jaune

17 réponses
Avatar
Albert
Bonjour

Je ne réussi pas à compter dans la colonne B3:B500 le nombre de cellules
colorées en jaune

pouvez-vous la formule svp

merci


--
albertri-at-videotron.ca.invalid
Signaler un problème avec ce contenu

7 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
1 2
Avatar
FS
Bonjour,

Si, par exemple, tu badigeonnes en rouge les cellules de la plage A1:C10
qui répondent à la condition :

¡>5

tu peux savoir combien sont effectivement rouges en comptant combien
répondent à la condition avec ce genre de code :

Application.CountIf(Range("A1:C10"), ">" & 5)

A moins que je n'ai mal compris la question ?

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

rthompson a écrit :
Bonsoir Daniel

Je me permets de plonger dans ce fil pour une petite demande supplémentaire

Comment ferais-tu pour compter les cellule coloriées par formatage
conditionel

Je testé ta macro et il ne compte que les cellules "peintes"
et pas si elles changent de couleurs par conditions

Si tu as une idée je suis preneur

Merci et à bientôt

Rex


"Daniel.C" a écrit dans le message de news:

Mets :

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End Sub

Daniel

"Daniel.C" a écrit dans le message de
news:
Pour connaître la couleur d'une cellule, sélectionne-la et exécute la
macro suivante :

Sub test2()
MsgBox ActiveCell.Interior.Color
End Sub

Note-la et remplace "vbred" de l'exemple par ce numéro.
Daniel



J'ai une erreur de compillation = End If sans bloc If
Sub inventaireRouge() est en jaune
End If avant dernière ligne est en bleu
la couleur est 6750207

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End If
End Sub

albert









Avatar
rthompson
Bonjour

C'était juste par curiosité

Merci pour tout ce que tu fais ici

A bientôt pour de nouvelles aventures

Rex

"Daniel.C" a écrit dans le message de news:
OKkWC%
Bonjour.
Même avant XL2007, on rentre dans des complications qui me passent par
dessus la tête. Désolé... J'espère qu'un gourou répondra à ta question.
Cordialement.
Daniel

Bonsoir Daniel

Je me permets de plonger dans ce fil pour une petite demande
supplémentaire

Comment ferais-tu pour compter les cellule coloriées par formatage
conditionel

Je testé ta macro et il ne compte que les cellules "peintes"
et pas si elles changent de couleurs par conditions

Si tu as une idée je suis preneur

Merci et à bientôt

Rex


"Daniel.C" a écrit dans le message de news:

Mets :

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End Sub

Daniel

"Daniel.C" a écrit dans le message de
news:
Pour connaître la couleur d'une cellule, sélectionne-la et exécute la
macro suivante :

Sub test2()
MsgBox ActiveCell.Interior.Color
End Sub

Note-la et remplace "vbred" de l'exemple par ce numéro.
Daniel



J'ai une erreur de compillation = End If sans bloc If
Sub inventaireRouge() est en jaune
End If avant dernière ligne est en bleu
la couleur est 6750207

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End If
End Sub

albert












Avatar
rthompson
Bonjour

Tu dois avoir un esprit qu'on appelle "Lateral thinking" en Anglais

Tu ne cherche pas la solution en regardant droit devant toi
Mais en la trouvant là ou elle se trouve

C'est PARFAIT

Merci beaucoup

Rex



"FS" a écrit dans le message de news:
uYlk$
Bonjour,

Si, par exemple, tu badigeonnes en rouge les cellules de la plage A1:C10
qui répondent à la condition :

¡>5

tu peux savoir combien sont effectivement rouges en comptant combien
répondent à la condition avec ce genre de code :

Application.CountIf(Range("A1:C10"), ">" & 5)

A moins que je n'ai mal compris la question ?

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

rthompson a écrit :
Bonsoir Daniel

Je me permets de plonger dans ce fil pour une petite demande
supplémentaire

Comment ferais-tu pour compter les cellule coloriées par formatage
conditionel

Je testé ta macro et il ne compte que les cellules "peintes"
et pas si elles changent de couleurs par conditions

Si tu as une idée je suis preneur

Merci et à bientôt

Rex


"Daniel.C" a écrit dans le message de news:

Mets :

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End Sub

Daniel

"Daniel.C" a écrit dans le message de
news:
Pour connaître la couleur d'une cellule, sélectionne-la et exécute la
macro suivante :

Sub test2()
MsgBox ActiveCell.Interior.Color
End Sub

Note-la et remplace "vbred" de l'exemple par ce numéro.
Daniel



J'ai une erreur de compillation = End If sans bloc If
Sub inventaireRouge() est en jaune
End If avant dernière ligne est en bleu
la couleur est 6750207

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End If
End Sub

albert










Avatar
Daniel.C
Bonjour.
Je pensais plus compliqué, avec toutes les possibilités des mises en
forme conditionnelle. Aurais-tu un code ?
Cordialement.
Daniel

Bonjour,

Si, par exemple, tu badigeonnes en rouge les cellules de la plage A1:C10 qui
répondent à la condition :

¡>5

tu peux savoir combien sont effectivement rouges en comptant combien
répondent à la condition avec ce genre de code :

Application.CountIf(Range("A1:C10"), ">" & 5)

A moins que je n'ai mal compris la question ?

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

rthompson a écrit :
Bonsoir Daniel

Je me permets de plonger dans ce fil pour une petite demande supplémentaire

Comment ferais-tu pour compter les cellule coloriées par formatage
conditionel

Je testé ta macro et il ne compte que les cellules "peintes"
et pas si elles changent de couleurs par conditions

Si tu as une idée je suis preneur

Merci et à bientôt

Rex


"Daniel.C" a écrit dans le message de news:

Mets :

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End Sub

Daniel

"Daniel.C" a écrit dans le message de
news:
Pour connaître la couleur d'une cellule, sélectionne-la et exécute la
macro suivante :

Sub test2()
MsgBox ActiveCell.Interior.Color
End Sub

Note-la et remplace "vbred" de l'exemple par ce numéro.
Daniel



J'ai une erreur de compillation = End If sans bloc If
Sub inventaireRouge() est en jaune
End If avant dernière ligne est en bleu
la couleur est 6750207

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End If
End Sub

albert











Avatar
FS
Bonjour,

J'ai ce bout de code qui permet de sommer des cellules qui satisfont à
la première condition d'une MEFC, quelle qu'elle soit. Ça peut sans
doute servir de point de départ pour mettre au point des solutions à
d'autres questions sur les MEFC :

'==================== Sub SommeCondi()
Dim F$, cell As Range, Plage As Range, resultat

On Error Resume Next
Set Plage = Application.InputBox("Plage à sommer :", , , , , , , 8)
If Plage Is Nothing Then Exit Sub

For Each cell In Plage
cell.Activate 'c'est cette ligne qui rend impossible la
'transformation en fonction personnalisée
F = cell.FormatConditions(1).Formula1
If Evaluate(F) Then
resultat = resultat + cell.Value
End If
Next cell

Set Plage = Nothing
Set Plage = Application.InputBox _
("Envoyer le résultat dans la cellule :", , , , , , , 8)
If Plage Is Nothing Then Exit Sub
Plage.Value = resultat

End Sub
'====================
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

Daniel.C a écrit :
Bonjour.
Je pensais plus compliqué, avec toutes les possibilités des mises en
forme conditionnelle. Aurais-tu un code ?
Cordialement.
Daniel

Bonjour,

Si, par exemple, tu badigeonnes en rouge les cellules de la plage
A1:C10 qui répondent à la condition :

¡>5

tu peux savoir combien sont effectivement rouges en comptant combien
répondent à la condition avec ce genre de code :

Application.CountIf(Range("A1:C10"), ">" & 5)

A moins que je n'ai mal compris la question ?

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

rthompson a écrit :
Bonsoir Daniel

Je me permets de plonger dans ce fil pour une petite demande
supplémentaire

Comment ferais-tu pour compter les cellule coloriées par formatage
conditionel

Je testé ta macro et il ne compte que les cellules "peintes"
et pas si elles changent de couleurs par conditions

Si tu as une idée je suis preneur

Merci et à bientôt

Rex


"Daniel.C" a écrit dans le message de
news:
Mets :

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End Sub

Daniel

"Daniel.C" a écrit dans le message de
news:
Pour connaître la couleur d'une cellule, sélectionne-la et exécute
la macro suivante :

Sub test2()
MsgBox ActiveCell.Interior.Color
End Sub

Note-la et remplace "vbred" de l'exemple par ce numéro.
Daniel



J'ai une erreur de compillation = End If sans bloc If
Sub inventaireRouge() est en jaune
End If avant dernière ligne est en bleu
la couleur est 6750207

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End If
End Sub

albert















Avatar
Daniel.C
Merci.
Je vais tâcher de l'appliquer aux valeurs qui se révèlent plus coriaces
que les formules.
Daniel

Bonjour,

J'ai ce bout de code qui permet de sommer des cellules qui satisfont à la
première condition d'une MEFC, quelle qu'elle soit. Ça peut sans doute servir
de point de départ pour mettre au point des solutions à d'autres questions
sur les MEFC :

'==================== > Sub SommeCondi()
Dim F$, cell As Range, Plage As Range, resultat

On Error Resume Next
Set Plage = Application.InputBox("Plage à sommer :", , , , , , , 8)
If Plage Is Nothing Then Exit Sub

For Each cell In Plage
cell.Activate 'c'est cette ligne qui rend impossible la
'transformation en fonction personnalisée
F = cell.FormatConditions(1).Formula1
If Evaluate(F) Then
resultat = resultat + cell.Value
End If
Next cell

Set Plage = Nothing
Set Plage = Application.InputBox _
("Envoyer le résultat dans la cellule :", , , , , , , 8)
If Plage Is Nothing Then Exit Sub
Plage.Value = resultat

End Sub
'==================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

Daniel.C a écrit :
Bonjour.
Je pensais plus compliqué, avec toutes les possibilités des mises en forme
conditionnelle. Aurais-tu un code ?
Cordialement.
Daniel

Bonjour,

Si, par exemple, tu badigeonnes en rouge les cellules de la plage A1:C10
qui répondent à la condition :

¡>5

tu peux savoir combien sont effectivement rouges en comptant combien
répondent à la condition avec ce genre de code :

Application.CountIf(Range("A1:C10"), ">" & 5)

A moins que je n'ai mal compris la question ?

FS
-- Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

rthompson a écrit :
Bonsoir Daniel

Je me permets de plonger dans ce fil pour une petite demande
supplémentaire

Comment ferais-tu pour compter les cellule coloriées par formatage
conditionel

Je testé ta macro et il ne compte que les cellules "peintes"
et pas si elles changent de couleurs par conditions

Si tu as une idée je suis preneur

Merci et à bientôt

Rex


"Daniel.C" a écrit dans le message de news:

Mets :

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End Sub

Daniel

"Daniel.C" a écrit dans le message de
news:
Pour connaître la couleur d'une cellule, sélectionne-la et exécute la
macro suivante :

Sub test2()
MsgBox ActiveCell.Interior.Color
End Sub

Note-la et remplace "vbred" de l'exemple par ce numéro.
Daniel



J'ai une erreur de compillation = End If sans bloc If
Sub inventaireRouge() est en jaune
End If avant dernière ligne est en bleu
la couleur est 6750207

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End If
End Sub

albert

















Avatar
FS
Re Daniel,

Pour compter le nombre de cellules dont la valeur correspond à la
première condition d'une MEFC :

'======================== Sub SommeCondi2()
Dim F$, cell As Range, Plage As Range, resultat

On Error Resume Next
Set Plage = Application.InputBox("Plage à sommer :", , , , , , , 8)
If Plage Is Nothing Then Exit Sub

For Each cell In Plage
cell.Activate 'c'est cette ligne qui rend impossible la
'transformation en fonction personnalisée
F = cell.FormatConditions(1).Formula1
If Evaluate(F) = cell.Value Then
resultat = resultat + 1
End If
Next cell

Set Plage = Nothing
Set Plage = Application.InputBox _
("Envoyer le résultat dans la cellule :", , , , , , , 8)
If Plage Is Nothing Then Exit Sub
Plage.Value = resultat

End Sub
'========================
Si cela peut te donner une piste.

FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

Daniel.C a écrit :
Merci.
Je vais tâcher de l'appliquer aux valeurs qui se révèlent plus coriaces
que les formules.
Daniel

Bonjour,

J'ai ce bout de code qui permet de sommer des cellules qui satisfont à
la première condition d'une MEFC, quelle qu'elle soit. Ça peut sans
doute servir de point de départ pour mettre au point des solutions à
d'autres questions sur les MEFC :

'==================== >> Sub SommeCondi()
Dim F$, cell As Range, Plage As Range, resultat

On Error Resume Next
Set Plage = Application.InputBox("Plage à sommer :", , , , , , , 8)
If Plage Is Nothing Then Exit Sub

For Each cell In Plage
cell.Activate 'c'est cette ligne qui rend impossible la
'transformation en fonction personnalisée
F = cell.FormatConditions(1).Formula1
If Evaluate(F) Then
resultat = resultat + cell.Value
End If
Next cell

Set Plage = Nothing
Set Plage = Application.InputBox _
("Envoyer le résultat dans la cellule :", , , , , , , 8)
If Plage Is Nothing Then Exit Sub
Plage.Value = resultat

End Sub
'==================== >>
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

Daniel.C a écrit :
Bonjour.
Je pensais plus compliqué, avec toutes les possibilités des mises en
forme conditionnelle. Aurais-tu un code ?
Cordialement.
Daniel

Bonjour,

Si, par exemple, tu badigeonnes en rouge les cellules de la plage
A1:C10 qui répondent à la condition :

¡>5

tu peux savoir combien sont effectivement rouges en comptant combien
répondent à la condition avec ce genre de code :

Application.CountIf(Range("A1:C10"), ">" & 5)

A moins que je n'ai mal compris la question ?

FS
-- Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

rthompson a écrit :
Bonsoir Daniel

Je me permets de plonger dans ce fil pour une petite demande
supplémentaire

Comment ferais-tu pour compter les cellule coloriées par formatage
conditionel

Je testé ta macro et il ne compte que les cellules "peintes"
et pas si elles changent de couleurs par conditions

Si tu as une idée je suis preneur

Merci et à bientôt

Rex


"Daniel.C" a écrit dans le message de
news:
Mets :

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End Sub

Daniel

"Daniel.C" a écrit dans le message de
news:
Pour connaître la couleur d'une cellule, sélectionne-la et
exécute la macro suivante :

Sub test2()
MsgBox ActiveCell.Interior.Color
End Sub

Note-la et remplace "vbred" de l'exemple par ce numéro.
Daniel



J'ai une erreur de compillation = End If sans bloc If
Sub inventaireRouge() est en jaune
End If avant dernière ligne est en bleu
la couleur est 6750207

Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = 6750207 Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
End If
End Sub

albert





















1 2