List box dynamique

Bonjour,

Je tente de faire une list box dynamique. En fait j'ai comme dans l'exemple une liste de fruit , une liste de fruit acheté. et je voudrais que mon autre liste soit les fruit qui reste à acheté . Donc les valeurs de la list box 1 - les valeurs de la list box 2 ..

est-ce faisable

Merci

    ListBox1.List() = Range("A2:A6").Value
    ListBox2.List() = Range("B2:B3").Value

    For i = 0 To Me.ListBox2.ListCount - 1

    ListBox3.List = ListBox1.RemoveItem(i)

    Next i

ne marche pas

bonjour

je ses pas faire les listbox

mes voila une solution

a oui évite de mettre UserForm1_initialize

A+

Maurice

Private Sub UserForm_initialize()
Set Sh = Feuil1
   With ListBox1
      .Clear
      .List = Sh.Range("A2:A" & Sh.Range("A" & Rows.Count).End(xlUp).Row).Value
   End With
   With ListBox2
      .Clear
      .List = Sh.Range("B2:B" & Sh.Range("B" & Rows.Count).End(xlUp).Row).Value
   End With
End Sub

Bonjour Maurice,

Ca ne répond pas à mon problème. Car mon problème est de remplir la listbox 3 avec la soustraction de la list 2 à la list 1

Si j'ai 5 fruits en list 1 et 3 fruit en list 2 je voudrais que la list 3 soit automatiquement les 2 fruits restant.

Merci

bonsoir a vous

voila déja pour remplir la 1ère listbox, mais ce n'est pas la bonne solution

Dim TabFilter() As Variant

Private Sub UserForm_Initialize()
Dim L As Integer
Dim Plage As Range
Dim Cell As Range

Sheets("Feuil1").AutoFilterMode = False 'je mets l'auto filter OFF

L = Sheets("feuil1").Range("A65536").End(xlUp).Row 'je pense que tu connais
Set Plage = Sheets("Feuil1").Range("A1:A" & L) ' pour connaitre la plage

For Each Cell In Plage
ListBox1.AddItem Cell ' je remplis la ListBox
Next
End Sub

Bonjour,

et si tu suivais tes questions plutôt que de créer inutilement des doublons ?

https://forum.excel-pratique.com/excel/listbox-remove-item-t100685.html#p588921

eric

Rechercher des sujets similaires à "list box dynamique"