boutton formulaire changement de couleur du texte quand on clique dessus

[greg954]

Bonjour à tous.

J'ai créé un bouton dans un formulaire , est il possible avec une macro de changer la couleur du texte en bleu , de le metre en gras et en italique quand je clique dessus.


Merci pour votre aide

Greg

 

[13GIBE59]

Re : boutton formulaire changement de couleur du texte quand on clique dessus

Bonjour greg954.

As tu essayé l'enregistreur de macro, tout simplement ?

 

[job75]

Re : boutton formulaire changement de couleur du texte quand on clique dessus

Bonjour,

Bien d'accord avec Jean-Bernard, ensuite faut simplifier en évitant de sélectionner...

Affectez par exemple cette macro au bouton :

Sub FormatBouton()
With ActiveSheet.Shapes(Application.Caller).TextFrame
  With .Characters(1, Len(.Characters.Text)).Font
    .FontStyle = "Gras italique"
    .ColorIndex = 5 'couleur bleu
  End With
End With
End Sub

A+

 

[job75]

Re : boutton formulaire changement de couleur du texte quand on clique dessus

Re,

Bon puisqu'on prend tout le texte, utiliser :

Sub FormatBouton()
With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Font
  .FontStyle = "Gras italique"
  .ColorIndex = 5 'couleur bleu
End With
End Sub

A+

 

[greg954]

Re : boutton formulaire changement de couleur du texte quand on clique dessus

Oui je sais qu'on peut enregistrer une macro automatiquement sur une feuille excel mais j'ai pas trouvé pour enregistrer une macro dans une userform dans visual basic, d'apres ce que j'ai pu voir les commandes macro ne sont pas toutes les memes entre par exemple un bouton sur une feuille excel et un bouton sur une userform, moi c'est un formulaire créé dans une userform.

.ColorIndex = 5---> macro pour changer la couleur sur une feuille excel
Me.bouton.BackColor = RGB(200, 200, 255)-->macro pour changer la couleur d'un bouton dans userform

mais je sais pas comment faire pour mettre en gras et en italique pour un boution sur une userform

je m'etais peut mal expliquer, desolé
encore merci pour votre aide

Greg

 

[job75]

Re : boutton formulaire changement de couleur du texte quand on clique dessus

Re,

Dans un UserForm, il suffit d'ajuster les propriétés ForeColor et Font du bouton.

Donc si l'on veut modifier les valeurs d'origine, faire exécuter ce code :

With Commandbutton1 'nom (Name) du bouton
  .ForeColor = &HC00000 'une des couleurs bleues...
  .Font.Bold = True
  .Font.Italic = True
End With

A+

 

[greg954]

Re : boutton formulaire changement de couleur du texte quand on clique dessus

Bonjour,

Merci beaucoup , c'est parfait

Greg