récuperation des valeur d'un tri (commande VBA) dans un controle ListBox

Le
lustrucru
Bonjour,

Je souhaite récuperer les valeur d'un tri dans une liste box

Voici ce que j'ai imaginé :


Dim MaPlage As Range
1 Columns("AV:AV").Select
2 Selection.AutoFilter
3 Selection.AutoFilter Field:=1, Criteria1:="1"
4 Set MaPlage = Worksheets("Atlantique").AutoFilter.Range
5 Set MaPlage = MaPlage.Offset(1, 0).Resize(MaPlage.Rows.Count - 1)
6 ListBox1.List = MaPlage

L'erreur se situe ligne 6

Pouvez vous m'aider, cela serait très sympa
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
patrick
Le #17679301
On 28 oct, 23:07, lustrucru wrote:
Bonjour,

Je souhaite récuperer les valeur d'un tri dans une liste box

Voici ce que j'ai imaginé :

Dim MaPlage As Range
 1   Columns("AV:AV").Select
 2  Selection.AutoFilter
 3  Selection.AutoFilter Field:=1, Criteria1:="1"
 4    Set MaPlage = Worksheets("Atlantique").AutoFilter.Range
 5  Set MaPlage = MaPlage.Offset(1, 0).Resize(MaPlage.Rows.Count - 1)
 6  ListBox1.List = MaPlage

L'erreur se situe ligne 6

Pouvez vous m'aider, cela serait très sympa



Il faut utiliser AddItem pour la listbox
Il y a plein d'ex sur le web , genre :

Dim Cell As Range
Dim Unique As New Collection
Dim Value As Range
Dim i As Integer

i = Range("A65536" ).End(xlUp).Row

On Error Resume Next
'loop column A
For Each Cell In Range("A1:A" & i)
If Not Cell.EntireRow.Hidden Then Unique.Add Cell, CStr(Cell)
Next Cell
On Error GoTo 0

'loop on collection
For Each Value In Unique
Me.ListBox1.AddItem Value
Next Value
Publicité
Poster une réponse
Anonyme