Listbox identiquesRésolu

Question

Bonjour, je suis nouveau sur le forum alors je sais pas trop si c'est ici que l'on pose une question mais bon j'essais. Alors voila moi j'aimerais bien savoir comment je peu fair pour que quand je clique sur un bouton et bien toutes les donnes d'un listbox se mettent dans un autre (copier coller quoi) j'ai test&#233; pleins de trucs mais rien ne marche, sa a pourtant pas l'air tr&#233;s dur.

Je vous remerci d'avance

jpleroisse · Accepted Answer

Bonjour,



Private Sub Command1_Click()

Dim n

   For n = 0 To (List1.ListCount - 1)

         List2.AddItem List1.List(n)

       Next

   End Sub



Si tu veux choisir un &#233;l&#233;ment &#224; copier, tu le s&#233;lectionnes et tu cliques

Private Sub Command1_Click()

Dim n

For n = 0 To (List1.ListCount - 1)
' Si s&#233;lectionn&#233;, ajoute &#224; la liste.
      If List1.Selected(n) = True Then

 List2AddItem List1.List(n)
      End IF

 Next 


End Sub



jpleroisse

jpleroisse · Answer

re, le End If est mal plac&#233;, il doit-&#234;tre juste avant Next et j'ai oubli&#233; le . entre List2.AddItem (tapp&#233; trop vite).



jpleroisse

comtention · Answer

Alaise sa marche impec, merci beaucoup !!!!!

jpleroisse · Answer

OK, si cela conviens, coche r&#233;ponse accept&#233;e, cela &#233;vite d'ouvrir le post plusieurs fois.



jpleroisse

Listbox identiques

4 réponses

Discussions similaires