Report de données après filtrage

Résolu/Fermé

Rorodu42 - 25 août 2011 à 12:05
Rorodu42 - 26 août 2011 à 09:47

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 !!

A voir également:

Report de données après filtrage
Effacer les données de navigation - Guide
Reinstaller windows sans perte de données - Guide
Crystal report download - Télécharger - Présentation
Acquisition de données pci et contrôleur de traitement du signal ✓ - Forum Windows 10
Comment sauvegarder toutes les données de mon téléphone - Guide

2 réponses

Réponse 1 / 2

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 25/08/2011 à 12:58

Salut le forum

Sélection des lignes filtrées de la colonne A

Range("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)]

Réponse 2 / 2

Rorodu42
25 août 2011 à 13:16

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... :(

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
25 août 2011 à 22:52

Re le forum

Essaye comme ceci

    Range("L8:L" & Range("L65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
    Sheets("Feuil3").Range("E9").PasteSpecial
    Application.CutCopyMode = False

Mytå

Rorodu42
26 août 2011 à 09:47

ça bloque ça bloque... surlignage de " Sheets("Feuil3")....... "

Sacré impasse... :(

Discussions similaires

Reporter valeur sur autre feuille avec critere

Exemple de base de données access

je tombe sur le service de diffusion des donnees?que faire?

Germain

TNT base de donnees vide!!

Discussions similaires

Newsletters