|
|
|
|
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 |
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. toujours zen |
|
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. Amicales salutations Jean-Pierre |
Résultats pour EXCEL: COMPTER DES CELLULES
Résultats pour EXCEL: COMPTER DES CELLULES
Résultats pour EXCEL: COMPTER DES CELLULES
Résultats pour EXCEL: COMPTER DES CELLULES