re
Après avoir ouvert ton fichier , l'avoir débugger (remplace time par timer), je me suis retrouver devant une quinzaine de feuilles......
Je lance VBA et me retrouve devant une quinzaine d'usf, je recherche un mot d'explication, surement bien caché car je ne l'ai pas trouvé.
Bon.....
Ce que tu appel des listbox doit être des textbox.
ton usf gestion des fournisseurs comprend 2 textbox pour renseigner l'adresse, par contre ta feuille de renvoi elle ne comprend qu'une colonne ????
Private Sub ComboBox1_Change()
Dim lig As Long
lig = ComboBox1.ListIndex + 8
With Sheets("Fiches Fournisseurs")
TextBox6.Value = .Cells(lig, 3)
TextBox8.Value = .Cells(lig, 4)
TextBox9.Value = .Cells(lig, 5)
TextBox2.Value = .Cells(lig, 6)
TextBox3.Value = .Cells(lig, 7)
End With
End Sub
Avec ce code, tu va renvoyer les valeurs de la feuille fournisseur vers les textbox de l'usf.
voila,
Salut
Hervé