Fonction nbval en VBA

[Didier]

Bonjour,

Je cherche à dénombrer dans une plage de cellules définie le nombre de cellules qui sont écrites en italique. Quelqu'un pourrait-il m'aider.

Avec mes remerciements.

Didier

 

[Ti]

voilà une fonction qui fait ça. Directement utilisée dans Excel, elle renvoie Vrai ou Faux

Function ESTITALIQUE(Cel As Range) As Boolean
ESTITALIQUE = Cel.Font.Italic
End Function

 

[Ti]

Oups ! mauvaise version, voici celle que je devais te donner (l'autre peut quand même toujours servir)

Function NBITALIQUE(Plage As Range) As Long
Dim Cel As Range
For Each Cel In Plage
If Cel.Font.Italic Then NBITALIQUE = NBITALIQUE + 1
Next Cel
End Function