Discussion :

[Dr walid]

Bonsoir,

Svp c'est quoi l'erreur dans ce code ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub btnRechercher_Click()
 
  Application.ScreenUpdating = False
  lstMoyens.Clear
 
  Sheets("TEST1").Select
  Range("Tableau4[[#Headers],[Famille]]").Select
  ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=4, Criteria1:="=" & cbFamille.SelText, Operator:=xlAnd
 
  Range("B1:C1").Select
  Range(Selection, Selection.End(xlDown)).Select
  Dim r As Range
    For Each r In Selection.Rows
        lstMoyens.AddItem (r.Cells(3) & " : " & r.Cells(4))
    Next r
 
End Sub

Je veux afficher deux colonnes l'un près de l'autre et qui sont filtrés
tout se déroule bien sauf cette partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("B1:C1").Select
  Range(Selection, Selection.End(xlDown)).Select
  Dim r As Range
    For Each r In Selection.Rows
        lstMoyens.AddItem (r.Cells(3) & " : " & r.Cells(4))
    Next r

Cordialement

Svp est-ce l'erreur vient de r.cells(3) ?

[AlainTech]

Bonjour,

Je n'ai pas testé ton filtrage mais, pour ce que j'en ai compris, voici ce que je te propose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btnRechercher_Click()
  Dim r As Range
  Dim c As Range
 
  ' Applique ici ton filtre
  lstMoyens.Clear
  With Sheets("TEST1")
    Set r = Range(.[B1], .[B1].End(xlDown))
    For Each c In r
      lstMoyens.AddItem c.Value & " : " & c.Offset(0, 1).Value
    Next c
  End With
End Sub