list box dynamique

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
o
oly111
Membre habitué
Membre habitué
Messages : 129
Inscrit le : 26 mars 2017
Version d'Excel : 2016

Message par oly111 » 3 novembre 2017, 21:22

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
listbox dynamique.xlsm
(19.29 Kio) Téléchargé 42 fois
a
archer
Membre impliqué
Membre impliqué
Messages : 1'267
Appréciations reçues : 104
Inscrit le : 8 avril 2017
Version d'Excel : 2010

Message par archer » 3 novembre 2017, 21:42

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
o
oly111
Membre habitué
Membre habitué
Messages : 129
Inscrit le : 26 mars 2017
Version d'Excel : 2016

Message par oly111 » 3 novembre 2017, 21:50

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
Avatar du membre
grisan29
Membre impliqué
Membre impliqué
Messages : 1'201
Appréciation reçue : 1
Inscrit le : 26 janvier 2010
Version d'Excel : 2013 pro FR

Message par grisan29 » 3 novembre 2017, 22:22

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
Pascal
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'727
Appréciations reçues : 453
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 3 novembre 2017, 23:17

Bonjour,

et si tu suivais tes questions plutôt que de créer inutilement des doublons ?
excel/listbox-remove-item-t100685.html#p588921
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • List Box Dynamique avec 2 Comboboxs
    par louyotj » 23 janvier 2018, 12:20 » dans Excel - VBA
    11 Réponses
    185 Vues
    Dernier message par gmb
    31 janvier 2018, 12:34
  • Formule utilisant contenu dynamique (drop down list)
    par edouardclep » 19 juin 2014, 16:21 » dans Excel - VBA
    4 Réponses
    343 Vues
    Dernier message par eriiic
    19 juin 2014, 17:44
  • propriété list
    par b.vincent » 8 mars 2018, 15:48 » dans Excel - VBA
    8 Réponses
    223 Vues
    Dernier message par b.vincent
    21 mars 2018, 16:25
  • List view
    par jahman » 1 mars 2019, 10:59 » dans Excel - VBA
    5 Réponses
    98 Vues
    Dernier message par jahman
    1 mars 2019, 13:39
  • List box, remplir
    par batoine » 21 avril 2015, 11:55 » dans Excel - VBA
    1 Réponses
    296 Vues
    Dernier message par batoine
    29 avril 2015, 11:19
  • List Box VBA
    par kent2206 » 20 septembre 2019, 22:24 » dans Excel - VBA
    2 Réponses
    94 Vues
    Dernier message par thev
    21 septembre 2019, 10:37