Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Help: Office 2007 - Compter les cellules d'un tableau par la couleur de la police ??

Help: Office 2007 - Compter les cellules d'un tableau par la couleur de la police ??

2 réponses
Avatar
FrancisLUTZ
Merci
Signaler un problème avec ce contenu

2 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
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


Avatar
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