Compter cellule couleur

Jacky

09/09/2006 à 19:25

Bonsoir,

Regarde un peu plus bas la réponse à "gabare13" ce jour.

Salutations
JJ

"Didier Novarin" a écrit dans le message de
news:

Bonjour
Je souhaite compter des cellules de couleur
Sur l'excellent site excelabo.net, en tapant "compter cellule couleur" ou
"compter couleur"
Cela donne aucun résultat
Je vous remercie
Didier

Didier Novarin

09/09/2006 à 19:37

Merci Jacky
En fait elles sont peinturlurée à l'aide de la MEFC ;-(
Didier

"Jacky" a écrit dans le message de news:

Bonsoir,

Regarde un peu plus bas la réponse à "gabare13" ce jour.

Salutations
JJ

"Didier Novarin" a écrit dans le message de
news:
Bonjour
Je souhaite compter des cellules de couleur
Sur l'excellent site excelabo.net, en tapant "compter cellule couleur" ou
"compter couleur"
Cela donne aucun résultat
Je vous remercie
Didier

Jacky

09/09/2006 à 19:42

Re...
Alors prend la même condition que tu utilises avec la Mfc pour le comptage

JJ

"Didier Novarin" a écrit dans le message de
news:

Merci Jacky
En fait elles sont peinturlurée à l'aide de la MEFC ;-(
Didier

"Jacky" a écrit dans le message de news:

Bonsoir,

Regarde un peu plus bas la réponse à "gabare13" ce jour.

Salutations
JJ

"Didier Novarin" a écrit dans le message de
news:
Bonjour
Je souhaite compter des cellules de couleur
Sur l'excellent site excelabo.net, en tapant "compter cellule couleur"
ou

"compter couleur"
Cela donne aucun résultat
Je vous remercie
Didier

Excel...lent

11/09/2006 à 03:42

Salut Didier,

Je ne sais pas si j'ai bien compris. En supposant que ta plage de vérif soit
de A1 à C10 et que tu veux compter les cellules en jaune :

Sub ComptCelCoul()
Dim c As Range
For Each c In [A1:C10]
If c.Interior.ColorIndex = 6 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules de couleur" _
& "jaune dans ma plage de vérification (A1 à C10)."
End Sub

Cordialement.

Marc

Jacky

11/09/2006 à 17:51

bonjour Marc

Ne fonctonne pas, elles sont peinturlurées avec la mise en forme
conditionnelle.
:-((

JJ

"Excel...lent" a écrit dans le message de news:
%23Q2o$

Salut Didier,

Je ne sais pas si j'ai bien compris. En supposant que ta plage de vérif
soit
de A1 à C10 et que tu veux compter les cellules en jaune :

Sub ComptCelCoul()
Dim c As Range
For Each c In [A1:C10]
If c.Interior.ColorIndex = 6 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules de couleur" _
& "jaune dans ma plage de vérification (A1 à C10)."
End Sub

Cordialement.

Marc

Didier Novarin

11/09/2006 à 20:46

Merci quand même...
Bonne soirée
Didier

"Excel...lent" a écrit dans le message de news:
%23Q2o$

Salut Didier,

Je ne sais pas si j'ai bien compris. En supposant que ta plage de vérif
soit
de A1 à C10 et que tu veux compter les cellules en jaune :

Sub ComptCelCoul()
Dim c As Range
For Each c In [A1:C10]
If c.Interior.ColorIndex = 6 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules de couleur" _
& "jaune dans ma plage de vérification (A1 à C10)."
End Sub

Cordialement.

Marc

Yannick P

10/10/2006 à 20:12

Quelqu'un aurait il la solution car c'est exactement la question que je
m'appretais a poser

MErci
"Jacky" a écrit dans le message de news:
Oq%

bonjour Marc

Ne fonctonne pas, elles sont peinturlurées avec la mise en forme
conditionnelle.
:-((

JJ

"Excel...lent" a écrit dans le message de news:
%23Q2o$
Salut Didier,

Je ne sais pas si j'ai bien compris. En supposant que ta plage de vérif
soit
de A1 à C10 et que tu veux compter les cellules en jaune :

Sub ComptCelCoul()
Dim c As Range
For Each c In [A1:C10]
If c.Interior.ColorIndex = 6 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules de couleur" _
& "jaune dans ma plage de vérification (A1 à C10)."
End Sub

Cordialement.

Marc

Jacky

10/10/2006 à 20:45

Re..
Ben.... regarde la réponse faite à Didier

JJ

"Yannick P" a écrit dans le message de news:
452be27c$0$5101$

Quelqu'un aurait il la solution car c'est exactement la question que je
m'appretais a poser

MErci
"Jacky" a écrit dans le message de news:
Oq%
bonjour Marc

Ne fonctonne pas, elles sont peinturlurées avec la mise en forme
conditionnelle.
:-((

JJ

"Excel...lent" a écrit dans le message de news:
%23Q2o$
Salut Didier,

Je ne sais pas si j'ai bien compris. En supposant que ta plage de vérif
soit
de A1 à C10 et que tu veux compter les cellules en jaune :

Sub ComptCelCoul()
Dim c As Range
For Each c In [A1:C10]
If c.Interior.ColorIndex = 6 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules de couleur" _
& "jaune dans ma plage de vérification (A1 à C10)."
End Sub

Cordialement.

Marc

Yannick P

11/10/2006 à 06:51

Elle marchait effectivement chose que je n'avais pas compris vu son post

Merci c'est super

"Jacky" a écrit dans le message de news:

Re..
Ben.... regarde la réponse faite à Didier

JJ

"Yannick P" a écrit dans le message de news:
452be27c$0$5101$
Quelqu'un aurait il la solution car c'est exactement la question que je
m'appretais a poser

MErci
"Jacky" a écrit dans le message de news:
Oq%
bonjour Marc

Ne fonctonne pas, elles sont peinturlurées avec la mise en forme
conditionnelle.
:-((

JJ

"Excel...lent" a écrit dans le message de news:
%23Q2o$
Salut Didier,

Je ne sais pas si j'ai bien compris. En supposant que ta plage de vérif
soit
de A1 à C10 et que tu veux compter les cellules en jaune :

Sub ComptCelCoul()
Dim c As Range
For Each c In [A1:C10]
If c.Interior.ColorIndex = 6 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules de couleur" _
& "jaune dans ma plage de vérification (A1 à C10)."
End Sub

Cordialement.

Marc

Compter cellule couleur

9 réponses

Veuillez sélectionner un problème