Discussion :

[fanfan89]

Bonjour a tous!
Voila je suis encore novice en vba et je souhaite grace a une macro selectionner des lignes d'une table filtrée. Le filtre se fait par date et le resultat se trouve donc a des lignes a chaque fois differentes.
Mon filtre est en A3 et je souhaite selectionner la premiere case du resultat du filtre pour pouvoir ensuite extraire certaines données...

Pouvez vous m'aider svp?

Merci!

[Fvandermeulen]

Bonjour fanfan89 (et les autres)

Voici un petit code qui devrait te convenir, il faut bien sur adapter la plage à ton cas et si celle-ci est varaible, dis le.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub filtre()
 
Dim cel As Range
Dim MaVal As String
 
For Each cel In Range("A3:A20") 'ballaie chaque cellule contenue dans la plage
    If cel.Rows.Hidden = False Then 'Si la ligne de la cellule n'est pas masquée alors
        MaVal = cel.Value 'On affecte le contenu de la cellule à la variable MaVal
        Exit For 'On sort de la boucle car on a la première cellule non masqué de la feuille
    End If
Next
 
End Sub

Bonne continuation

[fanfan89]

Salut fvandermeulen,
merci pour ta reponse rapide
ton code fontionne correctement mais j'ai oublié de preciser que je ne voulais pas inclure la case A3 dans ma selection mais seulement les lignes apparaissant apres l'application du filtre

merci

[Fvandermeulen]

Re,
Comme je l'ai dit il faut adapter la plage ("A3:A20") de mon exemple.

Tu commence donc à "A4" et tu dois aussi adapter le A20 si ta liste est plus longue.

A+