Filtre Automatique & VBA

[laurentsimon]

Bonjour à tous !

Voilà, je cherche à récupérer dans une variable la valeur d'une cellule d'une colonne de la première ligne que retourne le filtre automatique (valeur sélectionnée par l'utilisateur).

Merci de votre aide.

 

[Cousinhub]

Re : Filtre Automatique & VBA

Bonjour,

en considérant ton filtre sur la colonne A, le titre en A1, tu peux essayer ce code :

Sub prem_valeur()
Lig = [A65000].End(xlUp).Row
If Range("A1:A" & Lig).SpecialCells(xlCellTypeVisible).Areas(1).Count > 1 Then
    x = [A2]
  Else
    y = Range("A1:A" & Lig).SpecialCells(xlCellTypeVisible).Areas(2).Item(1).Row
    x = Cells(y, 1).Value
  End If
End Sub

 

[laurentsimon]

Re : Filtre Automatique & VBA

Nickel !!!

Merci !!!