Bouton de commande qui grossit

Basslo

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 

Pièces jointes

  • Prop_Bouton.JPG
    Prop_Bouton.JPG
    36.8 KB · Affichages: 217

Discussions similaires

Réponses
27
Affichages
962

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna