j'aimerai utiliser le code ci dessous (merci JB) pour compter le nombre de
cellule rouge dans mon tableau.
Il compte bien les couleurs quand c'est moi qui les met
(format,cellules,....)
l'inconvénient est que je passe par une mefc et que là çà ne marche pas
Que faut-il faire?
Function CompteCouleur(champ As Range, couleur As Range)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleur.Interior.ColorIndex Then
temp = temp + 1
End If
Next c
CompteCouleur = temp
Calculate
End Function
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
JB
Bonsoir,
Cette fonction ne gère pas les couleurs obtenues par Mefc. Il faut créer une formule qui reprend la (ou les conditions) de la Mefc Si la Mefc n'utilise pas de formules (ce qui est peu fréquent), on peut créer une fonction qui compte des cellules coloriées par une Mefc)
Cordialement JB
Bonsoir
j'aimerai utiliser le code ci dessous (merci JB) pour compter le nombre de cellule rouge dans mon tableau. Il compte bien les couleurs quand c'est moi qui les met (format,cellules,....) l'inconvénient est que je passe par une mefc et que là çà ne marc he pas Que faut-il faire?
Function CompteCouleur(champ As Range, couleur As Range) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Interior.ColorIndex = couleur.Interior.ColorIndex Then temp = temp + 1 End If Next c CompteCouleur = temp Calculate End Function
merci à vous
Fred
Bonsoir,
Cette fonction ne gère pas les couleurs obtenues par Mefc. Il faut
créer une formule qui reprend la (ou les conditions) de la Mefc
Si la Mefc n'utilise pas de formules (ce qui est peu fréquent), on
peut créer une fonction qui compte des cellules coloriées par une
Mefc)
Cordialement JB
Bonsoir
j'aimerai utiliser le code ci dessous (merci JB) pour compter le nombre de
cellule rouge dans mon tableau.
Il compte bien les couleurs quand c'est moi qui les met
(format,cellules,....)
l'inconvénient est que je passe par une mefc et que là çà ne marc he pas
Que faut-il faire?
Function CompteCouleur(champ As Range, couleur As Range)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleur.Interior.ColorIndex Then
temp = temp + 1
End If
Next c
CompteCouleur = temp
Calculate
End Function
Cette fonction ne gère pas les couleurs obtenues par Mefc. Il faut créer une formule qui reprend la (ou les conditions) de la Mefc Si la Mefc n'utilise pas de formules (ce qui est peu fréquent), on peut créer une fonction qui compte des cellules coloriées par une Mefc)
Cordialement JB
Bonsoir
j'aimerai utiliser le code ci dessous (merci JB) pour compter le nombre de cellule rouge dans mon tableau. Il compte bien les couleurs quand c'est moi qui les met (format,cellules,....) l'inconvénient est que je passe par une mefc et que là çà ne marc he pas Que faut-il faire?
Function CompteCouleur(champ As Range, couleur As Range) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Interior.ColorIndex = couleur.Interior.ColorIndex Then temp = temp + 1 End If Next c CompteCouleur = temp Calculate End Function
merci à vous
Fred
fredbzr
Bonsoir JB merci du conseil, je vais essayer de faire çà bonne soirée "JB" a écrit dans le message de news:
Bonsoir,
Cette fonction ne gère pas les couleurs obtenues par Mefc. Il faut créer une formule qui reprend la (ou les conditions) de la Mefc Si la Mefc n'utilise pas de formules (ce qui est peu fréquent), on peut créer une fonction qui compte des cellules coloriées par une Mefc)
Cordialement JB
Bonsoir
j'aimerai utiliser le code ci dessous (merci JB) pour compter le nombre de cellule rouge dans mon tableau. Il compte bien les couleurs quand c'est moi qui les met (format,cellules,....) l'inconvénient est que je passe par une mefc et que là çà ne marche pas Que faut-il faire?
Function CompteCouleur(champ As Range, couleur As Range) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Interior.ColorIndex = couleur.Interior.ColorIndex Then temp = temp + 1 End If Next c CompteCouleur = temp Calculate End Function
merci à vous
Fred
Bonsoir JB
merci du conseil, je vais essayer de faire çà
bonne soirée
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1168976272.647578.323800@l53g2000cwa.googlegroups.com...
Bonsoir,
Cette fonction ne gère pas les couleurs obtenues par Mefc. Il faut
créer une formule qui reprend la (ou les conditions) de la Mefc
Si la Mefc n'utilise pas de formules (ce qui est peu fréquent), on
peut créer une fonction qui compte des cellules coloriées par une
Mefc)
Cordialement JB
Bonsoir
j'aimerai utiliser le code ci dessous (merci JB) pour compter le nombre de
cellule rouge dans mon tableau.
Il compte bien les couleurs quand c'est moi qui les met
(format,cellules,....)
l'inconvénient est que je passe par une mefc et que là çà ne marche pas
Que faut-il faire?
Function CompteCouleur(champ As Range, couleur As Range)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleur.Interior.ColorIndex Then
temp = temp + 1
End If
Next c
CompteCouleur = temp
Calculate
End Function
Bonsoir JB merci du conseil, je vais essayer de faire çà bonne soirée "JB" a écrit dans le message de news:
Bonsoir,
Cette fonction ne gère pas les couleurs obtenues par Mefc. Il faut créer une formule qui reprend la (ou les conditions) de la Mefc Si la Mefc n'utilise pas de formules (ce qui est peu fréquent), on peut créer une fonction qui compte des cellules coloriées par une Mefc)
Cordialement JB
Bonsoir
j'aimerai utiliser le code ci dessous (merci JB) pour compter le nombre de cellule rouge dans mon tableau. Il compte bien les couleurs quand c'est moi qui les met (format,cellules,....) l'inconvénient est que je passe par une mefc et que là çà ne marche pas Que faut-il faire?
Function CompteCouleur(champ As Range, couleur As Range) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Interior.ColorIndex = couleur.Interior.ColorIndex Then temp = temp + 1 End If Next c CompteCouleur = temp Calculate End Function
