Report de données après filtrage
Résolu
Rorodu42
-
Rorodu42 -
Rorodu42 -
Bonjour,
Je reviens vers CCM pour un nouveau problème ;
J'ai un tableau tel que :
1 | hhsggdf | 225600 | aggfgdv |
5 | ggaffsv | 4502 | hhaggs |
2 | hdf | 250 | agv |
1 | gdgfs | 600 | ggdf |
J'ai mis en place un algorithme VBA qui filtre ce tableau selon la première colonne : si je veux afficher seulement les lignes avec un " 1 " il masquera toutes les autres.
Je voudrais compléter cet algo pour qu'une fois le tri effectué, il me sélectionne les données de telle ou telle colonne et qu'il aille me les copier dans un autre tableau.
Etant donné que le nombre de ligne varie à chaque fois lors du tri/filtrage, je ne vois pas comment faire...
En espérant que ce soit clair,
merci et bonne journée !!
Je reviens vers CCM pour un nouveau problème ;
J'ai un tableau tel que :
1 | hhsggdf | 225600 | aggfgdv |
5 | ggaffsv | 4502 | hhaggs |
2 | hdf | 250 | agv |
1 | gdgfs | 600 | ggdf |
J'ai mis en place un algorithme VBA qui filtre ce tableau selon la première colonne : si je veux afficher seulement les lignes avec un " 1 " il masquera toutes les autres.
Je voudrais compléter cet algo pour qu'une fois le tri effectué, il me sélectionne les données de telle ou telle colonne et qu'il aille me les copier dans un autre tableau.
Etant donné que le nombre de ligne varie à chaque fois lors du tri/filtrage, je ne vois pas comment faire...
En espérant que ce soit clair,
merci et bonne journée !!
2 réponses
-
Salut le forum
Sélection des lignes filtrées de la colonne ARange("A2:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select
Mytå
Quelle prétention de prétendre que l'informatique est récente
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)] -
Merci pour cette formule, ça fonctionne !!
Seulement maintenant ça bloque sur la copie... J'ai :
Range("L8:L" & Range("L65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Feuil3").Select
Range("E9:E59").Select
ActiveSheet.Paste
et ça ne fonctionne pas, on me surligne en jaune la dernière ligne... :(
