Discussion :

[Unknow28]

Bonjour,
Avez-vous un code qui afficherait un contrôle Label lors du passage de la souris sur un autre contrôle (sous VBA Excel)?
Bien sur, ce contrôle Label devra disparaître dès que la souris ne survole plus l'autre contrôle.
Mon but est d'afficher des infos complémentaires (de type aide) lorsque l'utilisateur survole l'un des contrôles.
Je ne veux pas utiliser la propriété ControlTipText car le texte s'étale en longueur, on ne peux pas choisir la taille de la bulle ni la taille de la police.
Merci beaucoup de votre aide.
Je débute de chez débute dans le VBA

[ouskel'n'or]

Dans un userform ou sur une feuille de calculs ?

[Jean-Pierre49]

Bonjour,

Si c'est dans un USF
Procédure événementielle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
End sub

regarde ds l'aide Vba, sinon ds le forum, je l'utilise et ça marche bien,
la procedure n'est pas unique pour l'USF, mais pour chaque contrôle survolé.

Bon courage

[Unknow28]

Dans un userform ou sur une feuille de calculs ?

Merci,
C'est dans un UserForm, j'ai bien vu l'instruction MouseMove qui fonctionne pour afficher le contrôle Label que je désire, mais je n'ai pas trouvé le moyen de faire disparaître ce contrôle dès que la souris quitte l'autre contrôle survolé.
J'ai trouvé une petite astuce pour faire ce que je voudrais mais ça bug un peu (le contrôle Label affiché scintille lorsque la souris bouge sur le contrôle survolé et reste parfois affiché même quand la souris ne le survole pas).

Je pense qu'il doit y avoir bien mieux que ce qui suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub OptionButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label65.Visible = False Then
Label65.Visible = True
Else
Label65.Visible = False
End If
End Sub

[Unknow28]

Bonjour,

Si c'est dans un USF
Procédure événementielle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
End sub

regarde ds l'aide Vba, sinon ds le forum, je l'utilise et ça marche bien,
la procedure n'est pas unique pour l'USF, mais pour chaque contrôle survolé.

Bon courage

Merci,

Regardes ma citation faite sur le post d'Ouskel'n'or ci-dessus.

[ouskel'n'or]

L'userform a aussi une propriété mousemove. Utilise-la pour mettre l'affichage de ton label à false quand tu sors du contrôle.
Bonne soirée

[Unknow28]

L'userform a aussi une propriété mousemove. Utilise-la pour mettre l'affichage de ton label à false quand tu sors du contrôle.
Bonne soirée

Merci !, c'était simple, j'ai compris et ça marche impécablement.

Autre question: est-il possible d'afficher un message ou une image lorsque la souris survole une cellule ou une plage de cellules dans une feuille Excel?

[Invité]

Bonjour

Il n'y a pas de MouseMove sur les feuilles de calculs.
Pour les images je ne sais pas, mais pour le texte tu as les commentaires des cellules.