Vider autre lisbox

[bernard91]

Bonjour le Forum,

J'ai utilisé un bout de code de _Thierry pour gérer le remplissage de listboxs d'après d'autres listboxs.
Mon problème se situe sur un point particulier.
Le fichier de base est trop imposant et me prendrait un peu de temps pour le faire entrer dans un zip de 50K. alors je vais essayer d'être clair
j'ai une listbox (lbx5) qui peut être remplie avec une info X ou une Info Y
si c'est X, Lbx6 est visible,
sinon si c'est Y, Lbx8 est visible.
Mais dans les 2 cas Lbx6 ou Lbx8 doivent remplir Lbx7.
les mouvements se font par dbclick.
de Lbx3 à Lbx5 et inversement
de Lbx6 à Lbx7 et inversement
de Lbx8 à Lbx7 et inversement.
je voudrais que le retour de X de Lbx5 à Lbx3 vide Lbx7 au profit de Lbx6. de même le retour de Y de Lbx5 à Lbx3 vide Lbx7 au profit de Lbx8. Ci dessous un bout du code.
Merci de votre patience


Case 5
With Me.Controls('Lbx' & Num)
If .ListCount >= 1 Then
If .ListIndex = -1 Then
.ListIndex = .ListCount - 1
End If
Me.Lbx3.AddItem .List(.ListIndex, 0)
.RemoveItem (.ListIndex)
If Me.Lbx6.Visible = True Then
UserForm1.Lbx6.AddItem .List(Lbx7.ListIndex, 0)
UserForm1.Lbx7.RemoveItem (.ListIndex)
Else
UserForm1.Lbx8.AddItem .List(Lbx7.ListIndex, 0)
UserForm1.Lbx7.RemoveItem (.ListIndex)
End If
End if
End With

 

[Bernard91]

Bonjour le Forum,
J'ai pu résoudre mon problème et pour info, ci dessous la modif apportée
UserForm1.Lbx6.AddItem Lbx7.List(Lbx7.ListIndex)
UserForm1.Lbx7.RemoveItem (Lbx7.ListIndex)
Merci