Bouton de commande qui grossit

[Basslo]

Bonjour

J'ai un classeur Excel VBA avec un code assez lourd. Dans une des feuilles j'ai des boutons de commandes qui servent à exécuter certaines des fonctionnalités. des fois quand je clique sur les boutons ils grossissent et cela à chaque exécution ou encore la police devient de plus en plus petite. Le plus extraordinaire dans tout cela, c'est que les propriétés des boutons ne changent pas! Et je n'arrive pas à reproduire cela, sur certains ordinateurs ça n'arrive jamais, est ce que quelqu'un aurait une idée de quoi ça peut venir? et comment faire pour que ça ne se reproduisent pas? en général pour résoudre ce problème je me met en mode création et je redimensionne le bouton, mais j'aimerais ne pas intervenir à chaque fois que ça arrive.
Merci.

 

[Basslo]

Re : Bouton de commande qui grossit

Bonjour

Code derrière le Bouton:

Private Sub Bouton_Calculer_Click()
Dim str_Commentaire As String
Dim lng_Rep As Long

Application.ScreenUpdating = False
str_Commentaire = LCase(Me.Range(str_NomRBRuleName).Value)
If InStr(str_Commentaire, "complementaire") > 0 Then
lng_Rep = MsgBox("Le calcul est en mode complémentaire!" & vbCrLf & _
"Voulez-vous un calcul en mode normal?", vbYesNo, "Quinten France")
If lng_Rep = vbYes Then
str_Commentaire = Replace(str_Commentaire, "complementaire", " ")
str_Commentaire = Replace(str_Commentaire, "complémentaire", " ")
Me.Range(str_NomRBRuleName).Value = Trim(str_Commentaire)
End If
End If

Run_CalculerRegleDansLeCristal

Call ReveillerLaMatrice

End Sub


Propriété du bouton

En pièce jointe

Merci d'avance