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

Phil69970

XLDnaute Barbatruc

• 27 Février 2022

• #2

Bonjour @chaelie2015

Je te propose ceci :

*Merci de ton retour

@Phil69970

 

Pièces jointes

• Info bulle sur Textbox V1.xlsm

  19.2 KB · Affichages: 26

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 27 Février 2022

• #3

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

 

Pièces jointes

• Charlie textbox date.xlsm

  32.7 KB · Affichages: 17

Vote positif 0 Vote négatif

Solution

chaelie2015

XLDnaute Accro

• 27 Février 2022

• #4

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Février 2022

• #5

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

 

Pièces jointes

• Charlie textbox date V2.xlsm

  27.9 KB · Affichages: 9

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Février 2022

• #6

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 :

VB:

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+

 

Pièces jointes

• TextBox(1).xlsm

  20.6 KB · Affichages: 10

Vote positif 0 Vote négatif