Bonjour
j'ai ceci dasn ma feuille :  
-un combobo (avec une liste de fichier dedans)
-une picture (qui affiche le fichier selectionné dans le combo)
 
voici le code
 
Private Sub ComboBox1_Change()
im1 = "c:\home\cgm\" & ComboBox1.Value
Image1.Picture = LoadPicture(im1)
End Sub
 
Private Sub UserForm_Initialize()
ChDir "c:\home\cgm\"
MyName = Dir("*.JPG", vbDirectory)
Do While MyName <> ""
    ComboBox1.AddItem (MyName)
    MyName = Dir
Loop
End Sub
 
je suis obligé de cliquer sur le combo a CHAQUE fois que je veux changer l'image
mon objectif est de rendre cette manipulation plus simple en utilisant la roulette de la souris
 
Savez vous comment faire ?
 
j'ai essayé mousedown ou mouseup, mais c'est pas la solution visiblement    
 
 
 

up

Private Sub ComboBox_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox.MouseWheel
        For i = 0 To sender.item.count - 1
            If e.Delta = sender.item(i) Then
                sender.item(i).show()
            End If
        Next
    End Sub
 
 
Par exemple.

salut
désolé pour la réponse tardive ...
 
 
j'ai essayé et ca n'a pas l'air de fonctionner
 
 
mon programme et en VBA, et non pas en VB
c'est peut être cas le problème,  non ?
 
quand je liste les évènements utilisables avec un combobox, je n'ai pas de mousewheel
 
j'ai mousedown, mouseup, mousemove, pas plus

Ah en effet ^^
Le code évènement que je t'ai filé existe en VB.NEt. Apparemment pas en VBA comme tu dis. Essaye de créer un évènement sur MouseDown et de voir si tu peux pas récupérer un champ mousewheel ou quelque chose d'approchant dans MouseEventArgs (e).
 
GL HF

J'ai vu que mes collègues utilisent une .dll pour cet effet dans leurs .vb
Je suppose donc que cet évènement n'est pas géré...

Dommage, ça aurait été pratique
Merci quand même

Si jamais ça peut t'être utilie, cherche AutoItX3.dll sur le net tu y trouvera ton bonheur

Merci, je vais voir ça