Bonjour le Forum,

je vous sollicite aujourd'hui car je ne trouve pas la solution lorsque je dois
afficher la 1ere ligne résultante d'un filtre

Box1 alimente Box 2 puis BOx2 alimente Box3

j'ai donc dans le code suivant 3 Box qui s'alimentent et lorsque le filtre
résultant ne comporte qu'une seule ligne ( = 5 ) cela ne marche pas
par contre il fonctionne parfaitement pour toutes les autres lignes et je ne trouve pas la solution

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
18
19
 
Application.ScreenUpdating = False
Me.Box3.Clear
If Me.Box1.ListIndex > -1 Then
    With Sheets("TR" & Box1.Value)
       If .AutoFilterMode Then .Range("A4").AutoFilter
       NbLignes = .Cells(Rows.Count, "A").End(xlUp).Row
       .Range("A4").AutoFilter Field:=1, Criteria1:=Me.Box2.Value
       For Each c In .Range("B4:B" & NbLignes).SpecialCells(xlCellTypeVisible)
          With Me.Box3
            If c.Offset(0, 0) <> Empty Then
             .AddItem c.Offset(0, 0)
             .List(.ListCount - 1, 1) = c.Row
            End If
          End With
       Next c
      .Range("A4").AutoFilter
    End With
End If

merci de bien vouloir m'éclairer
A+