Autres (RESOLU)Info bulle lors d'un passage du curseur sur textbox

[chaelie2015]

Bonsoir FORUM
J'ai une TextBox1 dans une feuille, je souhaite lui affecter info bulle "Rechercher"?
a+

 

[Phil69970]

Bonjour @chaelie2015

Je te propose ceci :

*Merci de ton retour

@Phil69970

 

[Hasco]

Bonjour,

J'ai supposé qu'il s'agissait du TextBox de votre fichier d'hier. Alors voici deux propositions de contournement du manque de tooltiptext sur les TextBox de feuille de calcul.

TextBox1 : Evènement MouseMouve un texte apparaît dans un shape qui s'affiche ou se cache.
Inconvénient : ne pas aller trop vite avec la souris, sinon le shape ne se cache pas.

TextBox2 : Evènement MouseMouve un texte apparaît ou se cache dans la cellule.

cordialement

 

[chaelie2015]

Bonjour @Phil69970, HASCO
@ Phil69970 : merci pour la réponse et pour l'info, mon souci était info bulle d'un texebox dans une feuille .
@ hasco : oui c'est par rapport ce fichier d'hier , c'est parfait et merci pour la réponse.
Merci a tous

 

[patricktoulon]

bonjour
une autre méthode consiste de jongler avec un label transparent pour la sortie
et sur dimensionné pour éviter les ratés avec des deplacement trop rapides avec la souris

pour la démo j'ai laissé le label opaque en rouge dans le classeur il est transparent bien sur
le move sur textbox affiche le label rouge et le tooltip
le move sur le label fait disparaître les deux
quand il invisible on retrouve donc l'accès au cellules

 

[job75]

Bonsoir à tous,

Une autre solution dans le fichier joint.

Elle consiste à placer devant la TextBox une forme (Rectangle) dotée d'un lien hypertexte avec info-bulle.

La macro dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$E$4" Then
    Shapes("Rectangle 1").Visible = False
    TextBox1.Activate
Else
    Shapes("Rectangle 1").Visible = True
End If
End Sub

A+