Public Function IsBoldItalic(ByVal MyRange As Range) As String
Dim rCell As Range
For Each rCell In MyRange
IsBoldItalic = IsBoldItalic & rCell.Address & " :" & vbCrLf
IsBoldItalic = IsBoldItalic & vbTab & "Gras : " & CBool(rCell.Font.Bold) & vbCrLf
IsBoldItalic = IsBoldItalic & vbTab & "Italique : " & CBool(rCell.Font.Italic) & vbCrLf
Next rCell
End Function
Sub EXEMPLE()
Debug.Print IsBoldItalic(Range("A1:A4"))
' *** RESULTAT : ***
'$A$1 :
' Gras : Faux
' Italique : Faux
'$A$2 :
' Gras : Vrai
' Italique : Faux
'$A$3 :
' Gras : Faux
' Italique : Vrai
'$A$4 :
' Gras : Vrai
' Italique : Vrai
End Sub