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
Bonjour,
Function CompteCouleurTexte(champ As Range, couleurTexte) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Font.ColorIndex = couleurTexte Then temp = temp + 1 Next c CompteCouleurTexte = temp End Function
http://cjoint.com/?flq6Gk5Dit
JB http://boisgontierjacques.free.fr/
On 11 mai, 16:43, "FrancisLUTZ" wrote:
Merci
Bonjour,
Function CompteCouleurTexte(champ As Range, couleurTexte)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Font.ColorIndex = couleurTexte Then temp = temp + 1
Next c
CompteCouleurTexte = temp
End Function
http://cjoint.com/?flq6Gk5Dit
JB
http://boisgontierjacques.free.fr/
On 11 mai, 16:43, "FrancisLUTZ" <gto...@wanadoo.fr> wrote:
Function CompteCouleurTexte(champ As Range, couleurTexte) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Font.ColorIndex = couleurTexte Then temp = temp + 1 Next c CompteCouleurTexte = temp End Function
http://cjoint.com/?flq6Gk5Dit
JB http://boisgontierjacques.free.fr/
On 11 mai, 16:43, "FrancisLUTZ" wrote:
Merci
FrancisLUTZ
Merci ; 0 ))
"JB" a écrit dans le message de news:
Bonjour,
Function CompteCouleurTexte(champ As Range, couleurTexte) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Font.ColorIndex = couleurTexte Then temp = temp + 1 Next c CompteCouleurTexte = temp End Function
http://cjoint.com/?flq6Gk5Dit
JB http://boisgontierjacques.free.fr/
On 11 mai, 16:43, "FrancisLUTZ" wrote:
Merci
Merci ; 0 ))
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
7f110981-9025-4be2-902c-5c5c9698f0e9@m44g2000hsc.googlegroups.com...
Bonjour,
Function CompteCouleurTexte(champ As Range, couleurTexte)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Font.ColorIndex = couleurTexte Then temp = temp + 1
Next c
CompteCouleurTexte = temp
End Function
http://cjoint.com/?flq6Gk5Dit
JB
http://boisgontierjacques.free.fr/
On 11 mai, 16:43, "FrancisLUTZ" <gto...@wanadoo.fr> wrote:
Function CompteCouleurTexte(champ As Range, couleurTexte) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Font.ColorIndex = couleurTexte Then temp = temp + 1 Next c CompteCouleurTexte = temp End Function