Comment utiliser la molette de la souris dans un listebox
Comment utiliser la molette de la souris dans un listebox
merci
Bonsoir, (Et oui, cela se dit encore..)
si tu te sens, un fichier de Thierry Pourtier (connu sous le pseudo de Ti)
Bon courage
J'ai déjà essayé ce dossier il y a quelque temps et je n'ai pas réussi à le faire fonctionner en tous les cas merci pour votre réponse
Re-Bonsoir (il doit te manquer des lignes, pour faire apparaitre ces quelques lignes....)
C'est la seule solution, AMHA (A Mon Humble Avis)
Si tu ne t'en sors pas avec ce fichier, j'ai bien peur que tu ne trouves d'autres solutions
Sinon, je suis preneur
Maintenant, si tu ne sais pas comment l'adapter, c'est différent
Autre solution, manuelle :
Tu cliques sur un Item de ta ListBox, et tu descends, tout en maintenant l'appui sur ton clic gauche........
Je suis vraiment novice en la matière alors je vous joins le code de ma listeboxe
Private Sub CommandButton1_Click()
Dim element_select As Boolean
Dim nb_elements
Dim i As Integer, j As Integer
Dim nb_elements_selectionnés As Integer
'Nombre d'élément dans listbox1
nb_elements = UserForm1.ListBox1.ListCount
For i = 0 To nb_elements - 1
If UserForm1.ListBox1.Selected(i) = True Then
For j = 27 To 158
If j >= 27 And j <= 78 Or j >= 113 And j <= 158 Then
If Trim(Cells(j, 1).Value) = "" Then
Cells(j, 1).Value = UserForm1.ListBox1.List(i)
Exit For
End If
End If
Next j
End If
Next i
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
Sub bonjour_toi()
UserForm1.Show
End Sub
Salut le forum
Corgol, as-tu lu les commentaires dans les macros ?
'cette procédure gère la propriété Listindex des contrôles définis
'dans MouseWheel via la propriété .Tag de ces contrôlesTu dois définir un Tag dans les propriétés de ta ListBox1 avec comme nom Liste1
Mytå
Sinon poste ton fichier pas juste ton code qui ne nous sert hélas à rien ici.
Merci pour la réponse, mais comme je le disais je suis vraiment nul en Visual Basic, je ne sais pas exactement ce qu'il faut que je vous envoie pour que vous compreniez où est mon problème, ceci dit je vous souhaite une bonne soirée
Re le forum
Corgol, ton fichier sans données confidentielles.
Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle.
Mytå
Voilà je vous ai joint le fichier, si vous pouviez avoir la gentillesse de me de me dépanner, ce serait sympa de votre part . je vous avais prévenu je suis vraiment nul.
Merci
Re le forum
Corgol, tu as oublié de recopier l'url qui t'as été fourni !
Mytå
https://www.excel-pratique.com/~files/doc/sEsbyDEVIS.xls
Je n'avais pas compris ce qu'il fallait que je fasse pour vous faire parvenir mon fichiers .
Ne passez pas la nuit dessus, cela ne présente pas un caractère d'urgence.
Même si vous n'avez pas la solution je vous remercie d'avance.