Control conditionnel basé sur la taille de police

Bonjour tout le monde

J’aimerais développer une macro avec un control conditionnel basé sur la taille des caractères du texte dans une cellule.

Si le texte a une police supérieur à 15 il doit être copié dans une autre feuille de calcul. Sinon la macro continus de scanner la feuille de calcul actuelle.

Pour l’instant j’ai écrit ce code :

Dim ligne As Integer
Dim colun As Integer
Dim Frontvalue As Integer
ligne = 1
Do Until ligne > 500
Sheets("Feuil1").Select
Frontvalue = Cells(ligne, 1).Front.Size
If Frontvalue < 15 Then

Mais j’ai erreur pour l’avant dernière ligne (erreur 438 : méthode non géré)

Il y a-t-il un autre moyen de sauvegardé la valeur de police dans une variable ?

Merci d'avance

Salut Fabian,

À première vue, sans rentrer dedans, si tu remplaçais "front" par "font" ?

Ça me semble être une bonne piste parce que "Font" c'est "police" et "Front" c'est la partie de ta tête que tu frappes violemment quand tu as des problèmes de "font"...

Cordialement.

En effet...