stéphanie123
XLDnaute Nouveau
salut
j'ai réalisé un petit programme qui permet de transférer des données d'une listbox principal dans plusieurs autres listbox en cliquant sur le bouton ajouter
mon petit souci;
quand j'ajoute la valeur sélectionnée , celle-ci est bien dirigée dans la listbox2
mais je ne sais pas comment dire pour que si je click sur le bouton ajouté
et que la listbox2 et pleine alors mettre la valeur dans la listbox3
ainsi de suite jusqu'à 9 listbox à remplir
voici mon programme qui fonctionne pour la valeur de la listbox1 vers la listbox2.
j'ai réalisé un petit programme qui permet de transférer des données d'une listbox principal dans plusieurs autres listbox en cliquant sur le bouton ajouter
mon petit souci;
quand j'ajoute la valeur sélectionnée , celle-ci est bien dirigée dans la listbox2
mais je ne sais pas comment dire pour que si je click sur le bouton ajouté
et que la listbox2 et pleine alors mettre la valeur dans la listbox3
ainsi de suite jusqu'à 9 listbox à remplir
voici mon programme qui fonctionne pour la valeur de la listbox1 vers la listbox2.
Code:
Private Sub Boutajouter_click()
Dim i As Integer
With UserForm4
'Pour chaque valeur de la liste 1
For i = 0 To .Liste1.ListCount - 1
'Si la valeur est sélectionnée
If .Liste1.Selected(i) Then
'On l'ajoute à la liste 2
.Liste2.AddItem .Liste1.List(i)
'On la supprime de la liste 1
.Liste1.RemoveItem (i)
End If
Next i
End With
End Sub