Ajouter items listbox1à lisbox2 sans doublon
salim2020
-
salim2020 -
salim2020 -
Bonjour,
Private Sub cmdselect_Click()
Dim i As Integer
Dim ii As Integer
'---------------------------------------------------------
'Pour chaque valeur de la liste 1
For i = 0 To exadispo.ListCount - 1
'Si la valeur est sélectionnée
If exadispo.Selected(i) Then
exaselect.AddItem exadispo.List(i)
'------------------------------------------------------------------
End If
Next
End Sub
Private Sub cmdselect_Click()
Dim i As Integer
Dim ii As Integer
'---------------------------------------------------------
'Pour chaque valeur de la liste 1
For i = 0 To exadispo.ListCount - 1
'Si la valeur est sélectionnée
If exadispo.Selected(i) Then
exaselect.AddItem exadispo.List(i)
'------------------------------------------------------------------
End If
Next
End Sub
A voir également:
- Ajouter items listbox1à lisbox2 sans doublon
- Doublon photo - Guide
- Ajouter liste déroulante excel - Guide
- Ajouter signature word - Guide
- Ajouter à l'écran d'accueil iphone - Guide
- Impossible d'ajouter un ami sur facebook - Guide
3 réponses
Slt
tu fais une petite function qui te renvoie vrai ou faux et qui prend en parametre un String (en occurence ton Item) et là juste avant d'ajouter dans la liste tu passes l'Item dans la function et là determine s'il existe ou pas dans ta liste de destination s'il existe on n'ajoute pas sinon on ajoute.
ta fonction s'appelle ici itemExiste(...) essaie de l'écrire voir
cdlt.
;-)
tu fais une petite function qui te renvoie vrai ou faux et qui prend en parametre un String (en occurence ton Item) et là juste avant d'ajouter dans la liste tu passes l'Item dans la function et là determine s'il existe ou pas dans ta liste de destination s'il existe on n'ajoute pas sinon on ajoute.
For i = 0 To exadispo.ListCount - 1
'Si la valeur est sélectionnée
If exadispo.Selected(i) Then
if itemExiste(exadispo.List(i)) = False then
exaselect.AddItem exadispo.List(i)
else
msgbox "L'element " & exadispo.List(i) & " Existe deja"
End If
End If
Next
ta fonction s'appelle ici itemExiste(...) essaie de l'écrire voir
cdlt.
;-)
Je suis débutant en vb6 et j’ai un petit problème avec des listbox, je voudrai ajouter des items d’un listbox1 vers un listbox2 et ça marche avec mon code sauf que lorsque click sur le bouton select il ajoute l’items (n) fois. Mois je ne veux pas de doublons dans le listbox2.
Je voudrais que lorsque l’élément existe déjà dans le listbox2, il m’affiche un msgbox qui me préviendra que l’élément existe déjà. Comment le faire ?
Merci de votre aide
voila le code:
Private Sub cmdselect_Click()
Dim i As Integer
Dim ii As Integer
'---------------------------------------------------------
'Pour chaque valeur de la liste 1
For i = 0 To exadispo.ListCount - 1
'Si la valeur est sélectionnée
If exadispo.Selected(i) Then
exaselect.AddItem exadispo.List(i)
'------------------------------------------------------------------
End If
Next
End Sub
Je voudrais que lorsque l’élément existe déjà dans le listbox2, il m’affiche un msgbox qui me préviendra que l’élément existe déjà. Comment le faire ?
Merci de votre aide
voila le code:
Private Sub cmdselect_Click()
Dim i As Integer
Dim ii As Integer
'---------------------------------------------------------
'Pour chaque valeur de la liste 1
For i = 0 To exadispo.ListCount - 1
'Si la valeur est sélectionnée
If exadispo.Selected(i) Then
exaselect.AddItem exadispo.List(i)
'------------------------------------------------------------------
End If
Next
End Sub
