Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel cellule couleur

cellule couleur

9 réponses
Avatar
syleg35
Bonjour =E0 tous;

Je voudrais compter des cellules ayant la m=EAme couleur de fond ' rouge
' (D7:D500) mais dans ces cellules il y a une date d'incrit en couleur
blanc.

Merci
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
clyver
Sub total_rouge()
Dim Cellule As Range
Dim totalD As Variant
Range("D7:D500").Select
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 3 Then 'Rouge
totalD = totalD + Cellule.Count
End If
Next
Range("A1") = totalD
End Sub

a voir dans ton application!

Franck
Avatar
JB
Bonjour,


Function CompteCouleurFond(champ As Range, couleurfond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurfond Then
temp = temp + 1
End If
Next c
CompteCouleurFond = temp
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionComteCoule urFond.xls

JB
http://boisgontierjacques.free.fr/


On 19 mar, 15:26, wrote:
Bonjour à tous;

Je voudrais compter des cellules ayant la même couleur de fond ' rouge
' (D7:D500) mais dans ces cellules il y a une date d'incrit en couleur
blanc.

Merci


Avatar
syleg35
Bonjour JB ;

Merci pour ta réponse, mais sa fonctionne si j'applique le fond avec
la palette de couleur, mais cela ne fonctionne pas si j'applique le
fond de couleur par une MFC
ou alors j'ai mal fait quelques chose ?
@+



On 19 mar, 15:40, JB wrote:
Bonjour,

Function CompteCouleurFond(champ As Range, couleurfond)
   Application.Volatile
   Dim c, temp
   temp = 0
   For Each c In champ
     If c.Interior.ColorIndex = couleurfond Then
       temp = temp + 1
     End If
   Next c
   CompteCouleurFond = temp
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCom...

JBhttp://boisgontierjacques.free.fr/

On 19 mar, 15:26, wrote:



Bonjour à tous;

Je voudrais compter des cellules ayant la même couleur de fond ' rouge
' (D7:D500) mais dans ces cellules il y a une date d'incrit en couleur
blanc.

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
syleg35
Je joint exemple

http://cjoint.com/?dtrEenmjsZ





On 19 mar, 17:24, wrote:
Bonjour JB ;

Merci pour ta réponse, mais sa fonctionne si j'applique le fond avec
la palette de couleur, mais cela ne fonctionne pas si j'applique le
fond de couleur par une MFC
ou alors j'ai mal fait quelques chose ?
@+

On 19 mar, 15:40, JB wrote:



Bonjour,

Function CompteCouleurFond(champ As Range, couleurfond)
   Application.Volatile
   Dim c, temp
   temp = 0
   For Each c In champ
     If c.Interior.ColorIndex = couleurfond Then
       temp = temp + 1
     End If
   Next c
   CompteCouleurFond = temp
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCom...

JBhttp://boisgontierjacques.free.fr/

On 19 mar, 15:26, wrote:

Bonjour à tous;

Je voudrais compter des cellules ayant la même couleur de fond ' rou ge
' (D7:D500) mais dans ces cellules il y a une date d'incrit en couleur
blanc.

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Avatar
Jacky
Bonsoir,
ou alors j'ai mal fait quelques chose ?
Non, c'est normale, sauf à monter une usine à gaz, le comptage des couleurs


issue d'une MFC n'est pas possible

Utilise la même condition que pour la MFC
Ici une plage de date comparée à une date mini et une date maxi
'---------------
Function CompteCouleurFond2(champ As Range, DatMini, DatMaxi)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c > DatMini And c < DatMaxi Then temp = temp + 1 Next c
CompteCouleurFond2 = temp
End Function
'-------------
--
Salutations
JJ


a écrit dans le message de news:

Bonjour JB ;

Merci pour ta réponse, mais sa fonctionne si j'applique le fond avec
la palette de couleur, mais cela ne fonctionne pas si j'applique le
fond de couleur par une MFC
ou alors j'ai mal fait quelques chose ?
@+



On 19 mar, 15:40, JB wrote:
Bonjour,

Function CompteCouleurFond(champ As Range, couleurfond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurfond Then
temp = temp + 1
End If
Next c
CompteCouleurFond = temp
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCom...

JBhttp://boisgontierjacques.free.fr/

On 19 mar, 15:26, wrote:



Bonjour à tous;

Je voudrais compter des cellules ayant la même couleur de fond ' rouge
' (D7:D500) mais dans ces cellules il y a une date d'incrit en couleur
blanc.

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
syleg35
Bonsoir Jacky ;

Merci pour ta réponse, j'avais un doute à propos de MFC, alors je
tiens compte de ta réponse
Encore merci
@

On 19 mar, 18:04, "Jacky" wrote:
Bonsoir,>>ou alors j'ai mal fait quelques chose ?

Non, c'est normale, sauf à monter une usine à gaz, le comptage des cou leurs
issue d'une MFC n'est pas possible

Utilise la même condition que pour la MFC
Ici une plage de date comparée à une date mini et une date maxi
'---------------
Function CompteCouleurFond2(champ As Range, DatMini, DatMaxi)
   Application.Volatile
   Dim c, temp
   temp = 0
   For Each c In champ
     If c > DatMini And c < DatMaxi Then temp = temp + 1    Ne xt c
   CompteCouleurFond2 = temp
End Function
'-------------
--
Salutations
JJ

a écrit dans le message de news:

Bonjour JB ;

Merci pour ta réponse, mais sa fonctionne si j'applique le fond avec
la palette de couleur, mais cela ne fonctionne pas si j'applique le
fond de couleur par une MFC
ou alors j'ai mal fait quelques chose ?
@+

On 19 mar, 15:40, JB wrote:



Bonjour,

Function CompteCouleurFond(champ As Range, couleurfond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurfond Then
temp = temp + 1
End If
Next c
CompteCouleurFond = temp
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCom...

JBhttp://boisgontierjacques.free.fr/

On 19 mar, 15:26, wrote:

Bonjour à tous;

Je voudrais compter des cellules ayant la même couleur de fond ' rou ge
' (D7:D500) mais dans ces cellules il y a une date d'incrit en couleur
blanc.

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Avatar
Jacky
Bonsoir,
ou alors j'ai mal fait quelques chose ?
Non, c'est normal, sauf à monter une usine à gaz, le comptage des couleurs


issue d'une MFC n'est pas possible

Utilise la même condition que pour la MFC
Ici une plage de date comparée à une date mini et une date maxi
'---------------
Function CompteCouleurFond2(champ As Range, DatMini, DatMaxi)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c > DatMini And c < DatMaxi Then temp = temp + 1
Next c
CompteCouleurFond2 = temp
End Function
'-------------
--
Salutations
JJ


a écrit dans le message de news:

Bonjour JB ;

Merci pour ta réponse, mais sa fonctionne si j'applique le fond avec
la palette de couleur, mais cela ne fonctionne pas si j'applique le
fond de couleur par une MFC
ou alors j'ai mal fait quelques chose ?
@+



On 19 mar, 15:40, JB wrote:
Bonjour,

Function CompteCouleurFond(champ As Range, couleurfond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurfond Then
temp = temp + 1
End If
Next c
CompteCouleurFond = temp
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCom...

JBhttp://boisgontierjacques.free.fr/

On 19 mar, 15:26, wrote:



Bonjour à tous;

Je voudrais compter des cellules ayant la même couleur de fond ' rouge
' (D7:D500) mais dans ces cellules il y a une date d'incrit en couleur
blanc.

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
JB
Reprendre la condition MFC:

=SOMMEPROD((C2:F14>1)*(C2:F14<M4))

JB

On 19 mar, 17:30, wrote:
Je joint exemple

http://cjoint.com/?dtrEenmjsZ

On 19 mar, 17:24, wrote:



Bonjour JB ;

Merci pour ta réponse, mais sa fonctionne si j'applique le fond avec
la palette de couleur, mais cela ne fonctionne pas si j'applique le
fond de couleur par une MFC
ou alors j'ai mal fait quelques chose ?
@+

On 19 mar, 15:40, JB wrote:

Bonjour,

Function CompteCouleurFond(champ As Range, couleurfond)
   Application.Volatile
   Dim c, temp
   temp = 0
   For Each c In champ
     If c.Interior.ColorIndex = couleurfond Then
       temp = temp + 1
     End If
   Next c
   CompteCouleurFond = temp
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCom.. .

JBhttp://boisgontierjacques.free.fr/

On 19 mar, 15:26, wrote:

Bonjour à tous;

Je voudrais compter des cellules ayant la même couleur de fond ' r ouge
' (D7:D500) mais dans ces cellules il y a une date d'incrit en coule ur
blanc.

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -





Avatar
JB
http://cjoint.com/?dtsFGuhI7q

JB

On 19 mar, 18:26, JB wrote:
Reprendre la condition MFC:

=SOMMEPROD((C2:F14>1)*(C2:F14<M4))

JB

On 19 mar, 17:30, wrote:



Je joint exemple

http://cjoint.com/?dtrEenmjsZ

On 19 mar, 17:24, wrote:

Bonjour JB ;

Merci pour ta réponse, mais sa fonctionne si j'applique le fond avec
la palette de couleur, mais cela ne fonctionne pas si j'applique le
fond de couleur par une MFC
ou alors j'ai mal fait quelques chose ?
@+

On 19 mar, 15:40, JB wrote:

Bonjour,

Function CompteCouleurFond(champ As Range, couleurfond)
   Application.Volatile
   Dim c, temp
   temp = 0
   For Each c In champ
     If c.Interior.ColorIndex = couleurfond Then
       temp = temp + 1
     End If
   Next c
   CompteCouleurFond = temp
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCom ...

JBhttp://boisgontierjacques.free.fr/

On 19 mar, 15:26, wrote:

Bonjour à tous;

Je voudrais compter des cellules ayant la même couleur de fond ' rouge
' (D7:D500) mais dans ces cellules il y a une date d'incrit en cou leur
blanc.

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -