Boucle sur lignes filtrées

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chris6999

XLDnaute Impliqué
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
 

Pièces jointes

bonjour
Chris le curseur doit être en colonne A à partir de A14
peu importe l'état du filtre
Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour