Boucle sur lignes filtrées

[chris6999]

Bonjour le FORUM

Est-il possible de passer uniquement sur les lignes sélectionnées par un filtre automatique?

J'ai regardé sur pas mal de FORUMS et j'ai un peu de mal à m'y retrouver

Pour exemple j'ai une grille filtrée depuis un UF (les filtres de mon fichier test n'ont rien à voir avec mon projet réel)

Je souhaiterais mettre dans la colonne AE la date sur les lignes filtrées uniquement ou A est non vide.
Cela commence ligne 14 la ligne 13 étant ma ligne d'étiquette.

Y a t-il un moyen simple d'obtenir ce résultat?

J'ai trouvé une instruction qui pourrait faire mais je ne sais pas comment l'adapter...
If Rows(c).Hidden = False Then

Bon j'espère que vous me donnerez des bonnes nouvelles car ce type de traitement va me servir plusieurs fois dans mon projet.

Merci d'avance pour votre aide
Bonne journée à tous

 

[Bebere]

bonjour
Chris le curseur doit être en colonne A à partir de A14
peu importe l'état du filtre

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cel As Range, rng As Range
    If Not Intersect([A14:A65000], Target) Is Nothing And Target.Count = 1 Then
        Application.EnableEvents = False
        Set rng = Range("A14:A" & Range("A65000").End(xlUp).Row)
        For Each cel In rng.SpecialCells(xlCellTypeVisible)
            If cel <> "" Then
                Cells(cel.Row, "AE") = Date
            End If
        Next
        Application.EnableEvents = True
    End If
End Sub