Discussion :

[Mél3790]

Bonjour Le Forum,

Je possède 2 listbox (multiselect), l'une avec des données, l'autre vide.

Je sélectionne un ou plusieurs éléments dans ma première listbox et en cliquant sur un bouton, les élements se transfert dans la 2ème listbox et se suppriment de la première.

J'ai une combobox qui filtre ma première listbox. Et selon mon choix, les éléments que j'ai transféré dans ma 2ème listbox réapparaissent dans la 1ère (c'est volontaire par rapport à mon projet, bref)

Du coup, lorsque je clique sur mon bouton qui transfert l'éléments ou les éléments sélectionné(s) de ma 1ère listbox à ma 2ème, j'aimerais qu'un msgbox apparaissent en disant : l'élément ou les éléments sélectionné(s) sont déjà présents dans la 2ème liste.

J'ai essayé un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
For i = ListboxQualif.ListCount - 1 To 0 Step -1
 
   If ListboxQualif2.ListIndex = ListboxQualif.Selected(i) Then 
    MsgBox "Cet élément est déjà présent": Exit Sub
    End If
 
       If ListboxQualif.Selected(i) = True Then
           ListboxQualif2.AddItem ListboxQualif.List(i)
           ListboxQualif.Selected(i) = True
            ListboxQualif.RemoveItem i
            End If
    Next i

Mais ça ne fonctionne pas (à cause du .listindex je pense), il comprend juste qu'un élement (peu importe lequel) figure dans la 2ème liste.

Merci beaucoup.

[unparia]

Bonjour

Je vais aller en ce qui me concerne directement à la question technique, seule concernée, de la vérification de ce qu'un article est ou non déjà présent dans une listbox.
Méthode :
- 1) donner à la propriété Text de la listbox la valeur de l'article à vérifier
- 2) lire ensuite la propriété listindex de cette listbox --->> si = -1 -->> l'article n'y est pas . Si >=0, cet article y est déjà.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
ListBox1.AddItem "toto"
  ListBox1.AddItem "titi"
 
  ' on vérifie si toto y est déjà ou non :
 
  ListBox1.ListIndex = -1 ' de sorte à ce que rien n'y reste sélectionné)
  On Error Resume Next
  ListBox1.Text = "toto"
  If ListBox1.ListIndex = -1 Then
     MsgBox "toto non déjà dans la listbox"
  Else
     MsgBox "toto est déjà présent dans la listbox"
  End If
  On Error GoTo 0
 
 
  'voyons si "tutu" y figure
 
   ListBox1.ListIndex = -1 ' de sorte à ce que rien n'y reste sélectionné)
  On Error Resume Next
  ListBox1.Value = "tutu"
  If ListBox1.ListIndex = -1 Then
     MsgBox "tutu non déjà dans la listbox"
  Else
     MsgBox "tutu est déjà présent dans la listbox"
  End If
On Error GoTo 0

La gestion d'erreur est ici nécessaire (les On error ...)

[Phil'oche]

Bonjour,

Autre méthode via une petite fonction, puisque la propriété List d'une ListBox renvoie un tableau de Variant, sous forme de (ligne, colonne) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function In_Listbox(lblst As Variant, Col as Integer, recherche As Variant) As Boolean
 
    In_Listbox = False
 
    For i = LBound(lblst) To UBound(lblst)
        If lblst(i, Col) = recherche Then 'Si valeur trouvée
            In_Listbox = True
            Exit For
        End If
    Next
 
End Function

que tu appelle ensuite par In_Listbox(ListboxQualif2.list,0,"Toto") qui renvoie vrai ou faux si la valeur est présente ou non.

Ca peut être utile, si tu utilises une ListBox à plusieurs colonnes (dont certaines éventuellement masquées), il suffit de passer le n° de colonne Col à la fonction.

[Mél3790]

Bonjour,

J'ai essayé vos deux solutions, mais je n'y arrive pas :s
Comment faire pour ne pas dire "toto" mais "la sélection" (car je ne peux pas lister tous les éléments de ma listbox, il y en a + de 20 en fonction de chaque changement dans ma combobox.

Où doisj-je placer ça dans mon code ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

In_Listbox(ListboxQualif2.list,0,"Toto")

Merci pour le temps que vous m'accordez.

[Phil'oche]

Simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
sChoixListe1 = ListboxQualif.Selected(i)
If In_Listbox(ListboxQualif2.list,0,sChoixListe1) Then 
    MsgBox "Cet élément est déjà présent": Exit Sub
    End If

Avec les For... Next de ton 1er message, pour traiter tous les éléments sélectionnés dans ta 1ère liste, puisque tu peux faire de la sélection multiple

[Mél3790]

Merci beaucoup, mais j'ai un message d'erreur : "Type d'argument ByRef incompatible" sur "schoixliste1" de cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If In_Listbox(ListboxQualif2.List, 0, schoixliste1) Then

Voici le code en entier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Function In_Listbox(i As Long, lblst As Variant, Col As Integer, recherche As Variant) As Boolean
 
    In_Listbox = False
 
    For i = LBound(lblst) To UBound(lblst)
        If lblst(i, Col) = recherche Then 'Si valeur trouvée
            In_Listbox = True
            Exit For
        End If
    Next
 
End Function
Private Sub FlècheAjout_click()
 
Dim i As Long
 
For i = ListboxQualif.ListCount - 1 To 0 Step -1
 
schoixliste1 = ListboxQualif.Selected(i)
 
If In_Listbox(ListboxQualif2.List, 0, schoixliste1) Then
    MsgBox "Cet élément est déjà présent": Exit Sub
End If
 
If ListboxQualif.Selected(i) = True Then
   ListboxQualif2.AddItem ListboxQualif.List(i)
   ListboxQualif.Selected(i) = True
   ListboxQualif.RemoveItem i
End If
Next i
 
End Sub

Dans la fonction entre parenthèse j'ai rajouté "i As Long" car le i n'était pas déclaré, je ne sais pas s'il fallait bien faire comme ça :s

Merci

[Phil'oche]

Ca semble logique vu que ListboxQualif.Selected(i) renvoie un booleen (vrai ou faux), et non la chaine à rechercher...

[Mél3790]

Bonjour,

Je ne sais pas ce que je dois faire du coup (je ne suis pas une experte en VBA..)
Merci

[eriiic]

Bonjour,

Je ne sais pas ce que je dois faire du coup

Tu peux essayer la proposition de unparia qui parait être une très bonne idée.
eric

[Mél3790]

Je l'ai essayé également mais ça ne fonctionne pas.
C'est dans ma seconde listbox que je veux savoir si l'élément est déjà présente, afin de ne pas le déplacer de la 1ère LB à la 2ème une seconde fois.
Et il ne faut pas "Toto", mais "LA sélection" de la 1ère LB.

Je galère

[unparia]

Et alors, Mél3790 ?
le code exemple que je t'ai montré :
- montre comment on vérifie si un article existe déjà dans UNE listbox, qu'elle soit Listbox1, listbmachin ou ce que tu voudras !
- "toto" n'y est qu'un exemple de vérification d'existence. Tu peux le remplacer par tout ce que tu veux, autre chaine de caractères en dur ou variable, ou propriété de ceci ou de cela ...
Où est donc ton problème ? Tu ne sais pas non plus, donc, parcourir en boucle les articles de ta première liste, y relever ceux qui sont sélectionnés et pour chacun d'entre eux, vérifier (mon code te le montre) s'il existe déjà dans l'autre liste ?
Si c'est cela, je t'abandonne tout net car cela voudrait dire que tu ne sais pas non plus ce que fait le code que tu as mis dans ton tout premier message !
Désolé, mais c'est ainsi.

[Mél3790]

Effectivement je ne sais pas tout. Je l'ai dit, je ne suis pas une pro.
Je pioche sur internet des codes qui peuvent m'aider et je les adapte.
Là pour le coup, je n'arrive pas à l'adapter.
J'ai essayé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim i As Integer
Dim selection
 
selection = ListboxQualif.Selected(i)
ListboxQualif.AddItem = selection
 
 
For i = ListboxQualif.ListCount - 1 To 0 Step -1
If ListboxQualif.Selected(i) = True Then
ListboxQualif2.AddItem ListboxQualif.List(i)
ListboxQualif.Selected(i) = True
ListboxQualif.RemoveItem i
Else
  ListboxQualif.ListIndex = -1 ' de sorte à ce que rien n'y reste sélectionné)
  On Error Resume Next
  ListboxQualif.Text = selection
  If ListboxQualif2.ListIndex = -1 Then
     MsgBox "Cet élément n'est pas présent"
  Else
     MsgBox "Cet élément est déjà présent"
  End If
  On Error GoTo 0
Exit For
End If
Next i

Je pense que je tourne mal les choses.

Et pas la peine de s’agacer ! on est pas tous des experts ! Si je viens demander de l'aide c'est justement parce que je suis bloquée.

Merci d'avance,

[unparia]

Vraiment désolé, mais :
je ne m'agace pas du tout.
Tout simplement :

Je pioche sur internet des codes qui peuvent m'aider et je les adapte.

Alors sans moi sur une telle voie.

[pijaku]

Bonjour,

@Mel :
Au lieu de piquer des bouts de rustine à droite à gauche et de les assembler, la réponse à nombre de tes questions est ici :
Lecture saine

A lire également : UserForm

Et comme tu es sur Mac : Un complément de lecture s'impose...

[Mél3790]

J'ai dit que je n'étais pas une pro mais pas une neuneu non plus. Je sais ce que je recherche, et si j'arrive à adapter c'est que je comprend ...
Les projets sur lesquels je travail c'est pour mon employeur, donc j'ai tout de même des bases...

BREF
Je ne suis pas venue me quereller.

J'ai repris ce que unparia m'a proposé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
ListboxQualif.ListIndex = -1
On Error Resume Next
ListboxQualif.Text = "toto"
If ListboxQualif.ListIndex = -1 Then
MsgBox "élement non présent"
Else 'If ListboxQualif.ListIndex >= 0 Then
MsgBox "élément déjà présent"
End If
On Error GoTo 0

J'ai enlevé la première ligne que tu me proposais Unparia :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListboxQualif.AddItem "toto

car le problème était que "toto" s'ajoutait dans la listbox, donc forcément j'avais le message : "élément présent".

Donc avec tout ce que vous m'avez proposé, je devrais pouvoir faire le lien avec ma seconde listbox.

Je reviendrais poster le code définitif.

Merci pour votre aide. J'espère que vous m'accueillerez mieux la prochaine fois...

Mél.

[pijaku]

Mel,
Ne prends pas la mouche lorsque l'on vient t'aider. La meilleure méthode pour toi et de suivre un guide, pas d'ingerer un code tout fait.
Tu as tout ce qu'il te faut dans mes liens.
1- boucle sur ta listbox1
2- si ligne sélectionnée, tu extraies sa valeur.
Cette valeur c'est le "toto" de unparia.
3- tu verifies grâce au code d'unparia si cette valeur est présente dans ta listbox2 en faisant :
ListBox2.AddItem MaValeurTrouvee
Etc....
Tout y est, à toi d'essayer et de revenir, avec peut être un bout de code qui ne fonctionne pas.
C'est comme ça qu'on apprend également.

D'autant plus que tout ceci est relativement simple.
Bonne soirée à toi.

[Mél3790]

Bonjour tout le monde,
Je reviens donc vers vous, j'ai réussi à bidouiller un code qui fonctionne, grâce à vos éléments, puis en reprenant des bases :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub FlècheAjout2_click()
 
Dim i As Integer, J As Integer, K As Integer
 
For K = ListboxQualif.ListCount - 1 To 0 Step -1
    If ListboxQualif2.ListCount = 0 Then
        If ListboxQualif.Selected(K) = True Then
            ListboxQualif2.AddItem ListboxQualif.List(K)
            ListboxQualif.Selected(K) = True
            ListboxQualif.RemoveItem K
          Exit For
        End If
    End If
Next K
 
For i = ListboxQualif.ListCount - 1 To 0 Step -1
For J = ListboxQualif2.ListCount - 1 To 0 Step -1
    If Not ListboxQualif2.ListCount = 0 Then
        If ListboxQualif.Selected(i) = True Then
            If ListboxQualif2.List(J) = ListboxQualif.List(i) Then
              MsgBox ListboxQualif.List(i) & " Existe dans la LB2"
              Exit For 
              ElseIf ListboxQualif.List(i) <> ListboxQualif2.List(J) Then
              MsgBox ListboxQualif.List(i) & "Cet élément n'existe pas dans la LB2"
              ListboxQualif2.AddItem ListboxQualif.List(i)
              ListboxQualif.RemoveItem i
              Exit For
            End If
        End If
    End If
Next
Next
End Sub

Par contre, en faisant le test, je fais un changement dans ma combobox puis je reviens sur la liste précédente, les items qui sont déjà présents dans la listboxqualif2 réapparaissent dans la 1ère listboxqualif (ce qui est normal par rapport à mon projet, comme je vous l'avez signalé). Par contre, dans ce cas, le code ne fonctionne plus. Il ne reconnait plus les items identiques de la listboxqualif à la listboxqualif2. Donc quand je clique sur mon bouton (FlècheAJout2) il me les ajoute dans la listboxqualif2 alors qu'ils y sont déjà ...
Je ne comprend pas ...

Du coup, j'ai revu mon projet, et je supprime les items de la listboxqualif, à chaque fois que je charge une liste dont j'ai déjà transféré des items sélectionnés dans la listboxqualif2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim m As Integer, n As Integer
 
For m = ListboxQualif2.ListCount - 1 To 0 Step -1
For n = ListboxQualif.ListCount - 1 To 0 Step -1
If ListboxQualif2.List(m) = ListboxQualif.List(n) Then
ListboxQualif.RemoveItem n
End If
Next
Next

J'espère que j'ai été claire dans mes explications :s

Par contre, si vous avez des propositions pour le premier code, je suis preneuse, ça m'embête de le laisser tomber :s

Merci !