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

maval · 9 Juillet 2013

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 · 9 Juillet 2013

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 · 9 Juillet 2013

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 · 9 Juillet 2013

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 · 9 Juillet 2013

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

Bonjour mavalm,

Voir deux exemples dans le fichier joint:

VB:

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 · 9 Juillet 2013

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 · 8 Novembre 2020

mapomme à dit:

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

Bonjour mavalm,

Voir deux exemples dans le fichier joint:

VB:

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

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

maval

XLDnaute Barbatruc

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

maval

XLDnaute Barbatruc

CHALET53

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

Discussions similaires