Info-bulle sur textbox hors user form

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:

---

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. :roll:


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

Merci

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

Code:

---

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:

---

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 ? :roll:

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

Code:

---

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.