parcours de cellules filtrées

[valou]

Bonjour,


Après avoir lu de nombreux posts à ce sujet, je me permet d'ecrire un nouveau message.
J'ai une fonction VBA qui applique un filtre automatique selon 3 critères et j'obtiens bien ce que je veux...
Je voudrais maintenant pouvoir parcourir ce tableau filtré et la j'ai un problème pour recuperer les lignes filtrées... Faut-il obligatoirement copier les données filtrées avant de travailler dessus?

Voici ce que j'ai fait jusqu'a maintenant :

Call traitement.Applique_Filtre("QUESTION_SPECIFIQUE_" & nom_analyse, usr.LblEtape.Caption, usr.LblCritere.Caption)

Set plage = Sheets("QUESTION_SPECIFIQUE_" & nom_analyse).AutoFilter.Range

Set plage = plage.SpecialCells(xlCellTypeVisible)

If plage.Address <> "$A$1:$C$1" Then 'j'ai qq choses de filtré
For Each cel In Sheets("QUESTION_SPECIFIQUE_" & nom_analyse).Range(????ma plage filtrée en enlevant le titre...)

Je crois que pour enlever le titre, la code est le suivant mais il declenche un message d'erreur :
Set plage = plage.Offset(1, 0).Resize(plage.Rows.Count - 1)


Merci d'avance

 

[Ronan]

Bonsoir,

Remplace ceci

Set plage = Sheets("QUESTION_SPECIFIQUE_" & nom_analyse).AutoFilter.Range

Par

Set plage = Sheets("QUESTION_SPECIFIQUE_" & nom_analyse).Range("A1:E20").SpecialCells(xlCellTypeVisible)

à la place de A1:E20, tu mets les coordonnées exact de tout ton tableau

@+

Ronan

 

[valou]

Bonjour,


Merci beaucoup pour cette reponse, j'essaie tout de suite...