Nb max de Polices

Bonjour,

J'ai concocté un LOTO que j'utilise depuis plusieurs années sans problèmes.

Ce n'est qu'un tirage aléatoire, réalisé plusieurs fois pour faire durer, qui se termine par un effet de zoom sur le dernier numéro.

Pour cela, la formule alea est répétée en boucle. Le résultat qui s'affiche à chaque fois donne un effet de brassage.

Puis la taille de police descend à 20, augmentant ensuite d'un Pas à chaque fois. Ce pas est paramétrable.

Une fois la taille 310 atteinte, on passe à la ligne suivant pour arrêter la formule aléa, et afficher en taille 315, et en rouge pour avoir le N° gagnant.

Depuis peu, pendant cet effet zoom, la macro s'interrompt et le débogueur me signale un problème dans la boucle suivante :

Do

'Effet zoom

If Taille >= 310 Then GoTo Line300

Range("B1").Formula = "=Int(Rand()*(91-1)+1)"

' Grossissement

Taille = Taille + Pas

Range("B1").Font.Size = Taille

Loop

C'est la dernière ligne (Range("B1").Font.Size=Taille) qui est surlignée en jaune.

Pour essayer de comprendre, j'ai voulu changer "manuellement" la taille de la police de cette cellule pour relancer le compteru, mais je reçois le message suivant :

"Nombre Maximum de Polices de Caractère atteint pour ce classeur".

Je suis perplexe car ce problème ne m'était pas arrivé auparavant.

Si quelqu'un a une idée...

Merci

Bonjour

En fouinant un peu j'ai trouvé ça http://support.microsoft.com/kb/215573/fr

Mais c'est en rapport avec des graphiques, et comme tu n'en parles pas

A vérifier si il y a des éléments de réponse