Discussion :

[victoire0]

Bonjour à tous,

J'ai une table de données sur laquelle j'ai filtré la colonne A (le filtre se trouve en A3)
Après filtrage, j'aimerais pouvoir sélectionner la première cellule visible en colonne H en dessous de la ligne 3 (qui est ma ligne d'en-têtes avec les filtres).

Voici mon code qui ne marche pas...

Code :

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

1
2
3
4
5
6
7
With wsSource
    On Error Resume Next
    .ShowAllData
    Err.Clear
    .Range("A3").AutoFilter Field:=1, Criteria1:="*" & numero & "*"
    .Range("H3").SpecialCells(xlCellTypeVisible).Offset(1, 0).Select
End With

Je vous remercie par avance pour votre aide !

[BENNASR]

à tester

Code :

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

1
2
 
.Range("H3", Cells(Rows.Count, "H").End(xlUp)).SpecialCells(xlCellTypeVisible).Offset(1, 0).Select

[victoire0]

Bonjour BENNASR et merci pour ton code, malheureusement il ne convient pas, en l'executant il me selectionne la cellule "A3"...

[anasecu]

Bonjour,

Après filtrage, j'aimerais pouvoir sélectionner la première cellule visible en colonne H en dessous de la ligne 3

Comme ceci cela devrait fonctionner :

Code :

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

1
2
3
4
5
With wsSource
    If .FilterMode Then .ShowAllData
    .Range("A3").AutoFilter Field:=1, Criteria1:="*" & numero & "*"
    .Range("H4:H1000").SpecialCells(xlCellTypeVisible).Select
End With

Si tu testes la présence du filtre tu n'as pas besoin de mettre des 'on error'

[victoire0]

Bonjour anasecu,

Merci pour ta proposition !

Entre temps j'ai pu trouver sur un forum cette proposition qui fonctionne :

Code :

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

1
2
3
4
5
With ActiveCell
    With .Offset(1, 0).Resize(Rows.Count - .Row, 1)
        .SpecialCells(xlCellTypeVisible).Cells(1, 1).Select
    End With
End With

J'ai testé ta proposition et malheureusement ça ne fonctionne pas ça me selectionne la cellule A1....

J'aimerais cependant comprendre cette ligne :

Code :

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

.Range("H4:H1000").SpecialCells(xlCellTypeVisible).Select

Pourquoi avoir pris une plage de H4 à H1000 ? Une fois mon filtre appliqué en colonne A, je ne connais ni le nombre de lignes de mon tableau; ni si la première valeur est en 4ème linge ....

Merci pour ton conseil avec on error

Merci !

[anasecu]

Bonjour

J'ai testé ta proposition et malheureusement ça ne fonctionne pas ça me selectionne la cellule A1...

Sans doute que tu n'as pas copié correctement le code car il a été testé et en aucun cas il ne peut te positionner en A1 ;-)