Discussion :

[rch05]

Bonsoir,

Comment faire avec la fonction NB, pour compter le nombre de chiffre en rouge (par exemple) dans une plage (A1:H100)

Merci d'avance

Cordialement

[casefayere]

Bonsoir,
je pense que tu dois passer par l'éditeur VBA

Bonne soirée

[rch05]

Bonsoir casefayere,

J'ai essayé avec l'éditeur VBA en définissant la valeur rechercé Font.size=255.
Ca ne fonctionne pas.
Dois-je passer par du code VBA?

Merci d'avance

[casefayere]

Oui, il faut passer par un code VBA, si tu ne sais pas, je t'expliquerai pas à pas

première question est-ce que c'est ta police qui est rouge ou le fond de la cellule ?

[rch05]

Re,

c'est juste la police qui est en rouge.

Merci

[casefayere]

commences déjà par vérifier ton numéro de couleur avec ce test,
selectionnes une cellule avec la police en rouge et regardes le résultat en executant ce code que tu pourras supprimer par la suite
dans un module standart

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub verif()
MsgBox ActiveCell.Font.ColorIndex
End Sub

donnes moi ce résultat

[rch05]

Le résultat est 3

[casefayere]

ok,
maintenat essayes ce code, j'ai mis le résultat dans une box mais on pourra adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub couleur()
Dim plage As Range, cel As Range, Nbcouleur As Integer
Set plage = Range("a1:h100")
Nbcouleur = 0
For Each cel In plage
   If cel.Font.ColorIndex = 3 Then Nbcouleur = Nbcouleur + 1
Next cel
MsgBox Nbcouleur
End Sub

[rch05]

Et bien, cela fonctionne bien.
J'ai le résultat que je voulais.

A la place de msgbox, j'ai mis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
range("L1").value = NBcouleur

et j'ai bien le résultat
C'est parfait

Un grand merci de ton aide casefayere.

Bonne soirée

Christian