pjm

3 réponses

JMP

12/05/2006 à 15:36

bonjour à tous,

Quelqu' un pourrait il me fournir le moyen de comptabiliser dans une colonne
le nombre de cellules contenant du texte avec font rouge.

Cette colonne contient principalement des cellules avec texte font normal
(noir )et les cellules font rouge sont disseminées parmis parmis les
cellules font noir.

merci d' avance

3 réponses

12/05/2006 à 16:37

Bonjour,

http://cjoint.com/?fmqKsJgZKz

Compte le nombre de cellules ayant une couleur de fond

=comptecouleur(B2:G2;3)

Function CompteCouleur(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
CompteCouleur = temp
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

JMP

12/05/2006 à 21:15

Merci mais ce n' est pas tout à fait ce que je désire : il s' agit
de comptabiliser le nombre de cellules contenant du texte avec font (police)
rouge et
non pas avec un fond rouge. Si texte et fonT rouge alors somme des cellules.
Toute cette colonne contient des cellules avec texte ( font noire ou
rouge ).

En attente réponse, merci d' avance

"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?fmqKsJgZKz

Compte le nombre de cellules ayant une couleur de fond

=comptecouleur(B2:G2;3)

Function CompteCouleur(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
CompteCouleur = temp
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

12/05/2006 à 21:22

Compte les cellules ayant une couleur de texte

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
End If
Next c
CompteCouleurTexte = temp
End Function

JB

pjm

3 réponses

Veuillez sélectionner un problème