Filtre Automatique & VBA

laurentsimon · 6 Novembre 2008

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 · 6 Novembre 2008

Re : Filtre Automatique & VBA

Bonjour,

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

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 · 6 Novembre 2008

Re : Filtre Automatique & VBA

Nickel !!!

Merci !!! 🙂🙂🙂

Filtre Automatique & VBA

laurentsimon

Guest

Cousinhub

XLDnaute Barbatruc

laurentsimon

Guest

Discussions similaires

Filtre Automatique & VBA

laurentsimon

Guest

Cousinhub

XLDnaute Barbatruc

laurentsimon

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency