EXCEL: COMPTER DES CELLULES
Résolu/Fermé
Vincent
-
5 mai 2005 à 18:17
purrofixe Messages postés 490 Date d'inscription dimanche 14 mars 2004 Statut Membre Dernière intervention 12 septembre 2007 - 5 mai 2005 à 23:28
purrofixe Messages postés 490 Date d'inscription dimanche 14 mars 2004 Statut Membre Dernière intervention 12 septembre 2007 - 5 mai 2005 à 23:28
A voir également:
- EXCEL: COMPTER DES CELLULES
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
3 réponses
purrofixe
Messages postés
490
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
12 septembre 2007
94
5 mai 2005 à 23:28
5 mai 2005 à 23:28
Bonsoir Vincent,
Juste en passant: si votre texte est écrit en vert je suppose qu'il rempli une condition ( si égal Oui --> vert, si Non reste noir)
De ce fait vous utilisez la fonction NB.SI(B1:B12;"oui")
ou --> B1:B12 -->> la plage qui contient votre texte
et --> "oui" est la condition.
Bonne chance.
Juste en passant: si votre texte est écrit en vert je suppose qu'il rempli une condition ( si égal Oui --> vert, si Non reste noir)
De ce fait vous utilisez la fonction NB.SI(B1:B12;"oui")
ou --> B1:B12 -->> la plage qui contient votre texte
et --> "oui" est la condition.
Bonne chance.
Salut,
Voilà une petite macro :
sub cell_text_vert ()
Dim plage as Range
Dim cel as Range
Dim n as Long
'On travaille sur la feuille 1
Set plage = Application.Sheets(1).Range("A1:B5") 'on cherche dans la plage A1:B5 par exemple
n=0
For Each cel In plage
If cel.Font.ColorIndex = 4 Then 'la couleur verte
n = n + 1 'compteur
End If
Next
MsgBox "Il y a " & n & " cellules avec le texte écrit en vert."
End Sub
Voilà une petite macro :
sub cell_text_vert ()
Dim plage as Range
Dim cel as Range
Dim n as Long
'On travaille sur la feuille 1
Set plage = Application.Sheets(1).Range("A1:B5") 'on cherche dans la plage A1:B5 par exemple
n=0
For Each cel In plage
If cel.Font.ColorIndex = 4 Then 'la couleur verte
n = n + 1 'compteur
End If
Next
MsgBox "Il y a " & n & " cellules avec le texte écrit en vert."
End Sub
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
5 mai 2005 à 23:26
5 mai 2005 à 23:26
bonjour
regardes ceci :
http://www.commentcamarche.net/forum/affich-277269-compter-q-cel-qui-contiennent-mots-en-rouge#9
il suffit de changer de couleur : 4 remplace 3.
regardes ceci :
http://www.commentcamarche.net/forum/affich-277269-compter-q-cel-qui-contiennent-mots-en-rouge#9
il suffit de changer de couleur : 4 remplace 3.