list box dynamique

Y compris Power BI, Power Query et toute autre question en lien avec Excel
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é 41 fois
a
archer
Membre impliqué
Membre impliqué
Messages : 1'258
Appréciations reçues : 102
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'359
Appréciations reçues : 397
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 Sujet précédentSujet suivant
  • 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
    182 Vues
    Dernier message par gmb
    31 janvier 2018, 12:34
  • Problème list box et check box
    par muratime » 17 janvier 2016, 21:06 » dans Excel - VBA
    21 Réponses
    1150 Vues
    Dernier message par stepaustras
    19 janvier 2016, 12:22
  • VBA Text Box / List Box
    par Ahah » 11 janvier 2018, 09:28 » dans Excel - VBA
    10 Réponses
    530 Vues
    Dernier message par Ahah
    16 janvier 2018, 14:17
  • List box question
    par oly111 » 31 octobre 2017, 00:05 » dans Excel - VBA
    3 Réponses
    197 Vues
    Dernier message par oly111
    31 octobre 2017, 15:51
  • List box, remplir
    par batoine » 21 avril 2015, 11:55 » dans Excel - VBA
    1 Réponses
    291 Vues
    Dernier message par batoine
    29 avril 2015, 11:19
  • List Box multiselection
    par hugo.c » 31 mai 2016, 06:04 » dans Excel - VBA
    2 Réponses
    304 Vues
    Dernier message par hugo.c
    1 juin 2016, 10:12