Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Bouton de commande qui grossit

  • Initiateur de la discussion Initiateur de la discussion Basslo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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
    36.8 KB · Affichages: 222
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
609
Réponses
2
Affichages
555
Réponses
0
Affichages
725
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…