ListBox à la suite

Mady

XLDnaute Nouveau
Bonjour à tous,

Je reviens pour un nouveau problème .. Je pars d'une listBox1 contenant divers items que je souhaite afficher dans deux nouvelles listes. Au premier clic de souris, j'ajoute le premier dans ListBox2 puis les suivants dans ListBox3 en évitant que ceux rajouter dans la liste 3 ne correspondent a celui ajouté en List 2..mais je dois rater quelque chose

Private Sub ListBox1_Click()
Dim i As String
i = 1
ListBox2.AddItem (Me.ListBox1)
i = i + 1
If i > 1 Then
If Me.ListBox1 <> Me.ListBox2 Then
ListBox3.AddItem (Me.ListBox1)
End If
End If
End Sub

Cordialement
 

Discussions similaires

Réponses
4
Affichages
257

Statistiques des forums

Discussions
312 896
Messages
2 093 387
Membres
105 716
dernier inscrit
jrmdprt