XL 2010 Somme en fonction de la taille

[coline741]

Bonjour à tous,

Sur un fichier xl comportant plusieurs milliers de lignes, certaines cellules sont en gras de taille 14, d'autres en gras de taille 18

Je cherche sans succès à additionner le nombre de cellules de taille 14.

Voici la fonction qui ne fonctionne pas, après maints essais avec les variables Font, Size et Bold

Function cellgras14(plg As Range)
With Font.Size = 14
For Each C In plg
If C.Font.Bold Then x = x + 1
Next C
cellgras14 = x
End With
End Function

Je remercie d'avance La, Le Specialiste qui va trouver l'erreur.

 

[ChTi160]

Bonjour Coline741
Ce que tu testes est : si la cellule est en gras .
pas la taille du texte de la cellule
Font.Size correspond a la taille du texte de la cellule
soit

If c.font.size=14 then

pas besoin du With Font.Size et dinc du End With sui l accompagne
pas evident sans fichier
jean marie

 

[coline741]

Chapeau et merci à Chti160 pour sa réponse. Présentée comme cela c'est nickel !

Function cellgras14(plg As Range)
For Each C In plg
If C.Font.Size = 14 Then x = x + 1
Next C
cellgras14 = x
End Function