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.