Affichage d'un Texte au survol d'un bouton sur un formulaire

[maval]

Bonjour,

Je suis a la recherche d'un code pour avoir un texte au survol d'un bouton qui se trouve sur un formulaire.

Je vous remercie de votre aide

Cordialement

Max

 

[phlaurent55]

Re : Affichage d'un Texte au survol d'un bouton sur un formulaire

Bonjour Max,

il suffit de modifier la propriété ControlTipText du bouton en remplaçant la valeur actuelle (Info) par le mot "Bonjour"

à+
Philippe

 

[maval]

Re : Affichage d'un Texte au survol d'un bouton sur un formulaire

Bonjour Philippe,

Je te remercie mais je pense que je me suis mal exprimer.
Lorsque je survol le bouton sur le bouton on doit voir écris le texte "Bonjour"

@+

Max

 

[CHALET53]

Re : Affichage d'un Texte au survol d'un bouton sur un formulaire

Bonjour à tous,

Peut-être qu'en mettant ce code dans la procédure associée au USF :

Private Sub CommandButton6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.CommandButton6.Caption = "BOnjour"


a+
End Sub

 

[mapomme]

Re : Affichage d'un Texte au survol d'un bouton sur un formulaire

Bonjour mavalm,

Voir deux exemples dans le fichier joint:

Private Sub CommandButton6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  TextBox6.ZOrder 0
  Me.TextBox6.Left = Me.CommandButton6.Left + X - Me.TextBox6.Width / 2
  Me.TextBox6.Visible = True
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Me.TextBox6.Visible = False
  Me.CommandButton7.Caption = ""
End Sub

Private Sub CommandButton7_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Me.CommandButton7.Caption = "Bonjour!"
End Sub

 

[maval]

Re : Affichage d'un Texte au survol d'un bouton sur un formulaire

Bonjour Mapomme, Chalet53,

Je vous remercie beaucoup nickel

Je vous souhaite une bonne journée

@+
Max

 

[farid]

Re : Affichage d'un Texte au survol d'un bouton sur un formulaire

Bonjour mavalm,

Voir deux exemples dans le fichier joint:

Private Sub CommandButton6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  TextBox6.ZOrder 0
  Me.TextBox6.Left = Me.CommandButton6.Left + X - Me.TextBox6.Width / 2
  Me.TextBox6.Visible = True
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Me.TextBox6.Visible = False
  Me.CommandButton7.Caption = ""
End Sub

Private Sub CommandButton7_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Me.CommandButton7.Caption = "Bonjour!"
End Sub

Bonjour Mapomme,
ton exemple est nickel et je m'en suis régaler .Est ce possible d'utiliser mais avec un bouton contrôle activX sur ma feuil1,Jai essayé de reprendre ta formule en essayant de l'adapter sur ce que je souhaite mais pas possible.
merci encore pour la première solution.
bien a toi
Farid