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.
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.