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

Le
FrancisLUTZ
Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #6596251
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"
Merci


FrancisLUTZ
Le #6596681
Merci ; 0 ))



"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"
Merci





Publicité
Poster une réponse
Anonyme