Re bonjour à tous et toutes

Mon projet avance bien, je suis à la recherche désormais d'une petite amélioration

J'ai un UserForm qui affiche 1300 lignes issues d'un fichier excel par le biais d'une ListBox

Voici le code de ce UserForm

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub UserForm_Initialize()
     Workbooks.Open "e:\1-AFF\AAA\00Base\BaseMateriels\NovoMaterBAse.xls"
    ActiveWindow.WindowState = xlMinimized
    ListBox1.RowSource = "[NovoMaterBAse.xls]BAseListe!B3:B1300"
End Sub
Naviguer dans cette listbox n'est pas chose aisée, vu sa longueur

D'ailleurs, la roulette de la souris n'a pas d'effet sur le défilement

J'ai une TextBox dans ce UserForm

Je souhaite pouvoir modifier l'affichage dans la listBox en fonction de ce qui est saisi dans la TextBox

Par exemple, je saisis "M", l'affichage de la liste box se positionne sur "machine", si je tape "mo" cela passe à "moteur" ....

Avez vous une piste ?

De nouveau merci par avance pour votre aide

Daniel