Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
patrick
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
On 28 oct, 23:07, lustrucru <nospam_jeanfrancois.jo...@nexans.com>
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
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
