Discussion :

[Australia]

Bonjour à tous,

voila mon problème

j'ai une listBox dans laquelle je mets des chemins de fichiers...
Comme vous le savez tous, les chemins de fichier sont en général assez long,

je souhaiterai donc savoir s'il est possible lorsque la souris passe (ou au pire le selectionne) sur un élement de ma liste d'afficher l'équivalent d'un controlTipText (désolé je connais pas le terme en francais, déformation vba) pour afficher le chemin complet ...

j'espere avoir été clair

merci d'avance

[ouskel'n'or]

Oui, tu peux faire ça simplement en utilisant les événements MouseDown et MouseUp de ta liste. Et c'est très simple
Tu crées un label pour le message affichant ta sélection dans la liste
(dans l'exemple, Label22)
Un clic sur un item affiche le message, un autre clic sur le même item le masque

Code :

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

1
2
3
4
5
6
7
Private Sub ListBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.Label22.Visible = Not Me.Label22.Visible
End Sub
 
Private Sub ListBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.Label22.Caption = ListBox2
End Sub

Bonne journée

PS - Tu peux compléter en masquant le label dans l'exit de ta liste

Code :

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

1
2
3
Private Sub ListBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.Label22.Visible = False
End Sub

Ainsi, si tu as "oublié" de "cliquer" une seconde fois, le message est masqué quand tu quittes la liste

[ucfoutu]

Bonjour, tous,

Bonjour à toi également, Ousk,

Et en mettant "çà" en vrai tooltip ?

Je m'y mets ?

[ouskel'n'or]

Bonjour, tous,

Bonjour à toi également, Ousk,

Et en mettant "çà" en vrai tooltip ?

Je m'y mets ?

Bonjour ucfoutu,
Avec controltiptext, tu afficheras aussi bien une liste vide que renseignée (ce qui n'apporte peut-être pas grand chose)
Par contre, le temps d'attente est plus long et n'est pas aussi systématique. (ceci selon ma modeste expérience)
L'idéal serait-il de mettre les deux ?

[ucfoutu]

Re,

Avoir à cliquer pour "voir" ne correspond pas à l'esprit d'une info-bulle ...

Je sais parfaitement faire cette chose en Vb6

Pour l'adapter à VBA, qui ne possède pas certaines fonctions, il va falloir que je bûche un peu ... mais j'y parviendrai, c'est à peu près certain...

Je m'y mettrai donc en fin de soirée, après que j'en aurai terminé avec autre chose n'ayant rien à voir avec DVP...

[ouskel'n'or]

Code :

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

Listbox1.controltiptext = Listbox1

C'est de ça dont tu parles ?