Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
En faisant une petite recherche , tu trouveras de quoi solutionner ta question
EDITION: comme je m'ennuyais
je viens de réinventer la roue pour ce qui concerne le gras
Code:
Function NBGRAS(r As Range) As Long
Dim c As Range, cptGras&: cptGras = 0
For Each c In r
cptGras = cptGras - 1 * (c.Font.Bold = True)
Next
NBGRAS = cptGras
End Function
Je te laisse tester et trouver le petit désagrément contenu dans cette fonction.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.