Gestion de stock - Problème pour vider des TextBox

Bonsoir à tous,

Grâce à votre aide, j'ai pu terminer la partie fournisseurs/contacts de mon projet de gestion de stock.

J'ai pu appliquer pour la suite du projet ce que j'ai appris pour les produits en stock, j'attaque maintenant la partie "entrées

et sorties" des produits et je butte déjà sur un problème avec mon UserForm pour rentrer les agents.

Je rentre l'unité de l'agent, son nom, son prénom et ses initiales, cela fonctionne, les agents sont inscrits sur une feuille du

classeur et dans une ListBox et je peux les sélectionner dans ma partie "Mouvements".

Le problème, que j'avais déjà rencontré avec les "contacts" et que j'ai réussi à éviter avec les "produits" est que je n'arrive pas

à vider mes TextBox dans le UserForm des agents quand je choisis "Unité A,B,C,..." dans la ComboBox "Unité".

Cela fait plusieurs jours que je cherche, et rien n'y fait.

Je me tourne une nouvelle fois vers vous pour m'aider dans cette tâche.

Je vous remercie par avance si vous acceptez de m'aider.

Bonsoir

Supprimes la partie en commentaire

Private Sub Cbb_agent_unité_Change()
Dim ligne As Long
Dim Cel As Range, Depart As String

  Nettoyage
  If Me.Cbb_agent_unité.ListIndex = -1 Then Exit Sub
  Init_ListBox
'  ligne = Me.Cbb_agent_unité.ListIndex + 2
'  With Ws_Agents
'    Me.Tb_agent_nom = .Cells(ligne, "B")
'    'Me.Cbb_agent_unité = .Range("A" & ligne)
'    'Me.Tb_agent_nom = .Range("B" & ligne)
'    Me.Tb_agent_prénom = .Range("C" & ligne)
'    Me.Tb_agent_initiales = .Range("D" & ligne)
'  End With

End Sub

Bonsoir Banzaï64,

Encore une fois, merci pour ton aide, cela fonctionne.

Je commence tout doucement à apprendre, mais c'est long et fastidieux.

Grâce à ton aide et à tes corrections, grâce à l'aide d'autres membres de ce forum, cela me donne vraiment l'envie de

continuer et de ne pas baisser les bras dans ce travail passionnant.

Bonne fin de soirée, et encore un grand merci.

PS : je joint le fichier corrigé.