Bonjour,
Voici mon nouveau problème, j'ai des données sur 2 colonnes et je souhaiterais après les avoir filtrées, les copier dans une listbox à 2 colonnes.
J'ai essayée cette procédure que j'ai trouvé sur le site et bidouillé pour moi mais cela ne fonctionne pas.
Sheets("Données").Select
Set plage = Sheets("Données").Range("a2", [b65536].End(xlUp))
Set PlageFiltree = plage.SpecialCells(xlCellTypeVisible)
For Each cell In PlageFiltree
DonneesCB2.Add cell.Text, cell.Text
Next cell
For Each Item In DonneesCB2
TextBox2 = TextBox2
ListBox3.AddItem Item
Listbox3.List(ListBox3.listCount -1,1) = item ' Ici ça ne fonctionne pas mais Quoi mettre
TextBox2 = TextBox2 + 1
Next Item
Sheets("Données").AutoFilterMode = False
Sheets("Interface").Select
Merci de votre aide
Bon Dimanche
@+ Patbart
Voici mon nouveau problème, j'ai des données sur 2 colonnes et je souhaiterais après les avoir filtrées, les copier dans une listbox à 2 colonnes.
J'ai essayée cette procédure que j'ai trouvé sur le site et bidouillé pour moi mais cela ne fonctionne pas.
Sheets("Données").Select
Set plage = Sheets("Données").Range("a2", [b65536].End(xlUp))
Set PlageFiltree = plage.SpecialCells(xlCellTypeVisible)
For Each cell In PlageFiltree
DonneesCB2.Add cell.Text, cell.Text
Next cell
For Each Item In DonneesCB2
TextBox2 = TextBox2
ListBox3.AddItem Item
Listbox3.List(ListBox3.listCount -1,1) = item ' Ici ça ne fonctionne pas mais Quoi mettre
TextBox2 = TextBox2 + 1
Next Item
Sheets("Données").AutoFilterMode = False
Sheets("Interface").Select
Merci de votre aide
Bon Dimanche
@+ Patbart