Info bulle sur un bouton

[Hugues]

Bonjour Le Forum,

Sur une feuille de calcul, j'ai inséré un bouton à l'aide de la boite à outils controles.

Je souhaiterais rajouter un info bulle lorsqu'on passe la souris sur ce bouton exemple "Noubliez pas de selectionner les lignes avant de cliquer sur le bouton "

Est ce faisable ? Si oui comment faire ?

Merci par avance pour votre aide,

Hugues

 

[jeanpierre]

Re : Info bulle sur un bouton

Bonsoir Hugues,

Regarde en bas de ce fil dans les cinq discussions similaires, il y a peut-être réponse à ta question.

Bonne soirée.

Jean-Pierre

 

[Hugues]

Re : Info bulle sur un bouton

Merci Jean Pierre pour l'aide.

Bonne nuit;

 

[kllmoon]

Re : Info bulle sur un bouton

Faire un bouton mouseover et clique je ne crois pas que c'est possible alors je ferais un bouton mouseover qui fait les deux commandes. Pour faire les 2, il faut simplement instaurer une variable qui est vrai ou fausse et que l'on change en fonction de ce que l'on veut faire.

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Valeur As String
'Tu peux mettre dans la cellule que tu veux
Valeur = Range("A1").Value
If Valeur = ("Rouge") Then
'insert ta commande ici
MsgBox ("Noubliez pas de selectionner les lignes avant de cliquer sur le bouton, repassez la souris sur le bouton une fois prêt")
Range("A1").Value = "Vert"
Else
'Insert ta commande pour ce que tu veux que le bouton fasse a la place de la msgbox
MsgBox ("test")
Range("A1").Value = "Rouge"
End If
End Sub

 

[BOISGONTIER]

Re : Info bulle sur un bouton

Bonjour,


Bulle d'aide au survol d'un bouton:

Private Sub Bouton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If X < 10 Or X > Bouton1.Width - 10 Or Y < 10 Or Y > Bouton1.Height - 10 Then
    ActiveSheet.Shapes("monshape").Visible = False
  Else
    ActiveSheet.Shapes("monshape").Visible = True
  End If
End Sub

http://boisgontierjacques.free.fr/fichiers/Evenementiel/BoutonSurvol.xls

JB
Formation Excel VBA JB

 

[Hugues]

Re : Info bulle sur un bouton

Merci à vous tous pour votre aide précieuse.

Hugues