Ajouter uniquement des cellules avec des caractères gras dans Excel VBA

Cet exemple concerne l’ajout uniquement de cellules dans une plage qui contiennent des valeurs numériques d’une part et d’autre part ont été formatées avec le style de police Gras.

Function FormatAjouter(r As Range)
Application.volatile
For Each r In r.Cells
If IsNumeric(r) Then
If r.Font.Bold = True Then
FormatAjouter = FormatAjouter + r.Value
End If
End If
Next r
End Function

Commentaires:
 Une plage entière peut être spécifiée pour la fonction ci-dessus. Chaque cellule de la zone adressée est ensuite vérifiée d’une part pour le contenu numérique et d’autre part pour le style de police correct.

 Pour la vérification du contenu numérique utilise la fonction IsNumeric.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x