Discussion :

[Freiya]

Bonjour,

Je cherche a placer une info bulle sur une textbox non située dans une user form, juste placée dans une feuille.

J'ai essayé d'utiliser

Code :

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

ListBox1.ControlTipText = "test infobulle1"

mais je ne sias pas trop sur quel evènement le placer.
j'ai essayé sur le ListBox1_MouseUp mais cela ne fonctionne pas.


Si ce n'est pas possible, avez-vous des astuces ?

Merci

[Freiya]

En attendant une vraie info-bulle, j'ai bidouillé en affichant une textbox lorsque la textbox a le focus.

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox1_GotFocus()
TextBox_Help.Visible = True
' Pour que mon "aide" soit à la même hauteur
TextBox_Help.Top = TextBox1.Top
'j'utilise une feuille à part avec le contenu des "aides"
TextBox_Help.Value = Sheets("Help").Range("help!A1")
End Sub

Code :

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

1
2
3
Private Sub TextBox1_LostFocus()
TextBox_Help.Visible = False
End Sub

Aie, j'ai pleins de texbox dans ma feuille mais je ne veux pas réecrire ce code pour toutes mes textbox ! comment faire ?

De la même façon je force en majuscule mes textbox et je ne veux pas réecrire à chaque fois

Code :

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

1
2
3
Private Sub TextBox1_Change()
TextBox1.Text = UCase(TextBox1.Text)
End Sub

merci d'avance, là j'ai vraiment besoin d'une réponse.