Discussion :

[derin]

Bonjour,

Je voudrait savoir si il est possible de sélectionner une cellule après avoir applique un filtre, pour être plus précis, j'aurais besoin que la macro puisse selectionner dans la colonne A la troisième cellule visible après le filtre (qui peut donc avoir n'importe quel numéro), j'ai fait plusieurs essais, mais rien ne fonctionne.

Merci d'avance Derin

[neupont]

Salut,
voilà un petit exemple à adapter :

Code :

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

1
2
3
4
For Each c In Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
   ...traitement
Next

[fring]

Bonjour,

Une autre solution possible (en supposant le filtre appliqué à la colonne A)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim i As Integer, x As Byte
 
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Rows(i).Hidden = False Then
        x = x + 1
        If x = 3 Then
            Cells(i, 1).Select
            Exit For
        End If
    End If
Next
End Sub