VBA & listbox

Salut Zoul67,

https://www.cjoint.com/?3FuaKNutOT8
Tu vas vite t'apercevoir du caractère amateur du fichier. L'organisation du code est à l'image de la clarté de mon premier message. Disons que je me qualifierais plus de bricoleur VBA que programmeur.
C'est la partie "annuaire" qui pose problème.

Merci de ton aide.

Salut Pascal-77,

Le VBA Excel est conçu pour faire du bricolage... Ton fichier est pas mal et les UserForms assez jolis.
Quelques conseils toutefois :
- indente le code ;
- nomme les objets pour clarifier le code (ex. OK_Click est plus clair que CommandButton1_Click)
- règle les valeurs de TabIndex pour faciliter la saisie au clavier (la touche Tabulation permet de passer d'un TextBox au suivant).
Comme je le pensais, le problème provenait d'un index qui se met à jour de façon erronée. Comme on fait bouger la ListBox1, je pense qu'il est plus simple de se baser sur ListBox1.Value.
Je n'ai pas trop aimé le principe du RowSource, parce que tu ne supprimais pas les dernières valeurs (ex saisir "daniel" ne supprime pas "zazie"). J'ai donc utilisé AddItem et basé le filtrage sur l'ensemble de la chaîne de caractères (des fois que tu te souviennes de "metro" et non de "zazie").

Le code :
Public derlig As Integer
Public Sub UserForm_Initialize()
derlig = Range("A65536").End(xlUp).Row
For i = 5 To derlig
ListBox1.AddItem Cells(i, 1).Value
Next i
End Sub

Private Sub CommandButton1_Click()
TextBox5.Value = ""
commerciaux.Hide
Menu.Show
End Sub

Private Sub CommandButton2_Click()
For i = 5 To derlig
If Cells(i, 1).Value = ListBox1.Value Then
Cells(i, 2).Value = TextBox2.Value
Cells(i, 3).Value = TextBox1.Value
Cells(i, 4).Value = TextBox3.Value
Cells(i, 5).Value = TextBox4.Value
Exit Sub
End If
Next
End Sub

Private Sub ListBox1_Change()
If ListBox1.ListIndex = -1 Then
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
Exit Sub
End If
For lig = 5 To derlig
If ListBox1.Value = Cells(lig, 1).Value Then
TextBox1.Value = Cells(lig, 3).Value
TextBox2.Value = Cells(lig, 2).Value
TextBox3.Value = Cells(lig, 4).Value
TextBox4.Value = Cells(lig, 5).Value
Exit Sub
End If
Next lig
End Sub

Public Sub TextBox5_Change()
ListBox1.ListIndex = -1
ListBox1.Clear
For i = 5 To derlig
If InStr(Cells(i, 1).Value, TextBox5.Value) > 0 Then ListBox1.AddItem Cells(i, 1).Value
Next i
End Sub

A+

Salut Zoul67,

Un grand, grand merci, c'est énorme.
Heureusemenbt qu'il y a des gens comme toi pour éclairer ceux qui se perdent dans l'obscurité des codes ...

Encore merci.

C'était un plaisir. Les ListBox sont toujours un peu "casse-gueule". Mieux vaut n'utiliser que les propriétés les plus simples de ces monstres.
Peux-tu passer le sujet en "Résolu" ?

Salut eriiic,

C'est noté. C'est vrai que je me lance dans le code sans faire d'organigramme et même parfois à l'aveuglette ce qui n'est très efficace.

Encore merci à tous.

Bien vu, eric ! En plus, je l'ai, ce plug-in, mais je n'ai ni pensé à l'utiliser en reprenant le fichier, ni conseillé à Pascal.