Ajouter items listbox1à lisbox2 sans doublon
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
Configuration: Windows XP Firefox 3.0.13
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.
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 -
merci
il faut définir la fonction de vérification d'abord.
merci pour votre aide.
