Macro filtrage auto et copie vers autre onglet
bonjour
Aprés de longues heures de recherches sur le net pour adapter une macro existante a mon probleme je ne trouve pas de solution....
j'ai 2 classeurs :
le premier (classeur 2 ) contient environ 20.000 lignes de données de factures fournisseurs, en colonne D et à partir de la 9eme ligne, se trouvent les noms de ces fournissseurs
le second contient un ensemble de fournisseur par catégorie.
je souhaiterai pouvoir filtrer l'ensemble des données du premier classeur avec ceux présents dans le second... et copier ce filtrage dans un nouvel onglet....
si vous avez un peu de temps et surtout des idées ... je vous en remercie par avance, ma question est peut être compliquée..
G
Bonjour,
difficile de s'y retouver avec tes %*¨°+/%£* de cellules fusionnées et on ne voit pas bien le rapport entre les 2 fichiers..;
exemple dans classeur2:
la ligne 11 devrait être recopiée à l'identique (pour les colonnes A à D) si tu veux une vraie base de données , après on y verra plus clair; ta manière de faire ou en tout cas, ce fichier est mal conçu.
si c'est un exemple , il est particulièrement opaque et mal fait, dsl ...
il semble que la colonne K du classeur 2 soit le lien mais ta base de données très mal foutue (à cause des fusions à proscrire) et des cellules vides
le classeur liste des fournisseurs n'a au final que 4 codes différents:
12900070105
12900070201
12900070202
12900070203
on suppose que c'est sur ça que tu veux filtrer ta base ?
P.
pardon pour les fichiers si ils sont peu clairs.
le fichier 1 est grosso modo tel que je le reçois : avec les lignes fusionnées.
oui vous devez avoir raison :
les activités ont un code exemple 012900070203, 2900070105
12900070201.
Ces codes apparaissent dans les 2 tableaux et à priori sont fixes (je pourrai me passer du second tableau et écrire en dur les variables).
Donc si on considère que je peux filtrer avec ces codes,
comment faire pour automatiser via une macro le filtre, la copie dans un autre onglet et la suppression des données su tableau 1.
Merci
guiloulou a écrit :comment faire pour automatiser via une macro le filtre, la copie dans un autre onglet et la suppression des données su tableau 1.
Merci
comme ça je l'ignore, et je passe la main à des VBAistes
P.
j'ai progressé. Le filtrage sur le premier onglet fonctionne
Sub Macrotiti()
Dim O, P As Worksheet 'déclare la variable O (Onglet)
Worksheets.Add().Name = "Filtered_Data"
Set O = Sheets("RAP") 'définit l'onglet O (à adapter à ton cas)
Set P = Sheets("filtered_data")
O.Range("A6:W65000").AutoFilter Field:=11, Criteria1:=Array("12900070203", "12900070201", "12900070202", "12900070105"), Operator:=xlFilterValues
End Sub
Comment pourrais je maintenant copier les cellules visibles qui apparaissent sur ma feuil RAP vers ma feuille filtered data
Quelquesoient les manips que je fais on me dit qu'il y a un problème avec les cellules fusionnées...
Merci
Bonjour,
ceci semble fonctionner :
Sub Macrotiti()
Dim O, P As Worksheet 'déclare la variable O (Onglet)
'Worksheets.Add().Name = "Filtered_Data"
Set O = Sheets("feuil1") 'définit l'onglet O (à adapter à ton cas)
Set P = Sheets("filtered_data")
O.Range("A6:W65000").AutoFilter Field:=11, Criteria1:=Array("12900070203", "12900070201", "12900070202", "12900070105", "12900020704"), Operator:=xlFilterValues
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy Destination:=P.[A1]
End Sub