Discussion :

[UDSP50]

Salut Every tout le monde

voila je cherche a faire un truc que je sais meme pas si ca existe

je m'explique j'ai un userform

sur celui ci un textbox1

j'aimerais qu'au survol de ce textbox s'affiche un genre d'infobule avec les information suivantes :

il regarde de N35 a N59 si il y a la lettre G si oui il m'affiche dans mon infobulle la valeur de la case de la meme ligne mais en A

par exemple :

s'il trouve un G en N10 alors il me met dans mon infobule la valeur qui est inscrite en A10

s'il trouve un G en N10 N13 et N59 alors il me met dans mon infobule les valeurs qui est inscrite en A10 A13 et A59

et le tout si possible les unes en dessous des autres.

est-ce faisable

merci

[HopPopPop]

Bonjour à tous,

Il faut utiliser la propriété ControlTipText du control TextBox, ex :

Code :

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

TextBox1.ControlTipText = "Bonjour"

[UDSP50]

D'accord mais pour qu'il affiche le resultata de ce que je demande

[Philippe Tulliez]

Bonjour,
La propriété ControlTipText ne permet pas d'écrire sur plusieurs lignes.
Tu peux toujours utiliser une astuce qui consisterait à utiliser un contrôle Label dont la propriété Visible serait à False sauf quand la souris passe au dessus du contrôle TextBox concerné. Mais le jeu en vaut-il la chandelle ?

[UDSP50]

Je sais pas mais j'aurais bien besoin de ce type d'infobule

[Philippe Tulliez]

Bonjour,
Attention ce n'est pas une infobulle, c'est un contrôle Label
Voici un code simplifié pour que tu comprennes comment cela fonctionne.
Dans cet exemple, nous avons un UserForm comprenant les contrôles suivants :

• TextBox1 qui sera celui au-dessus duquel si tu places la souris le Label2 affichera des valeurs
• Label2 qui contient les valeurs à afficher et dont la propriété Visible est à False au moment de l'ouverture du UserForm et la propriété Height à 50 pour pouvoir contenir les lignes à afficher.

Pour cet exemple simplifié, si dans la colonne C la valeur est égal à "Toto" on la concaténe avec celles des autres lignes en ajoutant le retour à la ligne (constante vbCrLf)
A l'initialisation du UserForm on charge la variable txt.

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
  Dim r As Long, txt As String, rng As Range
  Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A2:C10")
  For r = 1 To 10
    If rng.Cells(r, 3) = "Toto" Then txt = IIf(Len(txt), txt & vbCrLf & rng.Cells(r, 1), rng.Cells(r, 1))
  Next
  With Me.Label2: .Caption = txt: .Visible = False: End With
End Sub

L'événement MouseMove sur le contrôle TextBox1 permet d'afficher le contenu de Label2 par le fait que sa propriété Visible passe à True

Code :

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

1
2
3
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Me.Label2.Visible = True
End Sub

L'événement MouseMove sur le contrôle UserForm permet de masquer le contenu de Label2 par le fait que sa propriété Visible passe à False

Code :

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

1
2
3
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Me.Label2.Visible = False
End Sub