calcul du nombre de chifres en rouge ds une plage

job75 à dit:

Bonjour à tous,

If IsNumeric(Cel) And Cel.Font.ColorIndex = 3 Then i = i + 1

A+

Cliquez pour agrandir...

job75 à dit:

Code:

Sub NombreRouge()
Dim Cel As Range, i As Long
i = 0
For Each Cel In Range("B2:B50") [COLOR=seagreen]' Va regarder les celules une par une[/COLOR]
If IsNumeric(Cel) And Cel.Font.ColorIndex = 3 Then i = i + 1 [COLOR=seagreen]' Additionne 1 si la condition est remplie[/COLOR]
Next [COLOR=seagreen]' Suivante[/COLOR]
MsgBox i [COLOR=seagreen]' Affiche donc le nombre de cellules numériques en rouge[/COLOR]
End Sub

Cliquez pour agrandir...

[COLOR=red]Function[/COLOR] NombreRouge([COLOR=red]MaPlage As Range[/COLOR]) [COLOR=red]As Integer[/COLOR]
Dim Cel As Range, i As Long
i = 0
For Each Cel In [COLOR=red]MaPlage[/COLOR] ' Va regarder les celules une par une
If IsNumeric(Cel) And Cel.Font.ColorIndex = 3 Then i = i + 1 ' Additionne 1 si la condition est remplie
Next ' Suivante
[COLOR=red]NombreRouge =[/COLOR] i ' Renvoie le nombre de cellules numériques en rouge
End [COLOR=red]Function[/COLOR]