Discussion :

[bentor22]

Bonjour à tous,

J'aimerai faire une macro assez simple.

j'ouvre mon fichier nommé "Fich1" et worksheets ("feuil1")
et j'appelle un fichier à l'aide de cette macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim str As String
 
'Open the directory to be able to find the correct report
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "C:\"
    .Show
    'and select the report on which you click
    If .SelectedItems.Count > 0 Then Workbooks.Open (.SelectedItems(1))
End With
 
str = ActiveWorkbook.Name

ensuite

with workbook(str).worksheets("ptf")

j aimerai copier toute la base et la coller sur ma feuille ("feuil1") EN METTANT DES FILTRES.

par ex: -si Colonne (2) il y a "fr" ou "it" ou "esp" ET si Colonne (12) y a marqué "ABC" ou "IJK" ET si Colonne (24) y a marqué "1933" ou "2012"

ALORS

Copier toute la feuille (avec les filtres cité en haut) et la coller dans mon fichier ("fich1") et nommer la feuille (Feuille act).

Je vous remercie par avance pour votre précieuse aide.

Bien cordialement

[Philippe Tulliez]

Bonjour,
Ce que tu décris là peut-être résolu par les filtres élaborés d'excel que tu peux parfaitement utiliser avec la méthode AdvancedFilter de l'objet Range.
Je te conseille la lecture de ce tutoriel Les filtres avancés ou élaborés dans Excel. Il y a un classeur téléchargeable avec des exemples et une procédure VBA.

[bentor22]

Oui mais je veux automatiser l action grâce a vba

[Philippe Tulliez]

Bonjour,

Et bien c'est possible et si tu lis le tuto et que tu télécharges le classeur, tu verras une procédure VBA qui permet d'automatiser l'exportation avec plusieurs filtres et plusieurs destinations.

[graphikris]

Bonjour,
Tu peux meme integrer dans ta macro des inputbox qui te permettront de choisir ce que tu veux extraire.
Si tu ne sais pas les integrer, n'hésites pas à demander de l'aide, je te répondrais.

Cordialement
Graphikris

[bentor22]

Bonjour, le tutoriel n a pas vraiment repondu à ma question.

Je veux rentrer mes filtres à la main et pas les chercher dans une cellule

Bonjour ma question est comment peut on definir le critère à la main.

ex: si colonne(12)= "FR" ou "IT" ou "ESP" ET si colonne (20)="DCD" ou "FIN"

merci par avance pour votre réponse

Bonjour, j'ai posté une question similaire avant.
Toutefois, je reformule car je pense m'etre mal fait comprendre.

Par avance, merci pour votre aide.

Contexte:

J'ouvre mon fichier "Fichier 1", onglet "feuil1".
Ce fichier est vide, il ne contient que ma macro.

ensuite j'appelle mon fichier d'ou sont mes données grace à la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim str As String
 
'Open the directory to be able to find the correct report
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "C:\"
    .Show
    'and select the report on which you click
    If .SelectedItems.Count > 0 Then Workbooks.Open (.SelectedItems(1))
End With
 
str = ActiveWorkbook.Name

ensuite avec ce fichier,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

with workbooks(str).worksheets("Ptf")

je veux filtrer de la facon suivante:

Si colonne (12) = "DCD" ou "IJK"
ET
si colonne(15)="123" ou "234"
ET
si colonne(20)="A vendre" ou "A ceder"

Alors copier toute la base(filtré) et la coller dans mon fichier d'origine (fichier vide du départ qui ne contient que la macro).

Merci par avance pour tout votre aide.

bien cordialement,

[Philippe Tulliez]

Bonjour,
Un tutoriel ne peut pas répondre à 100% à ce que l'on cherche mais donne des pistes.
Si j'ai bien compris tu cherches à importer des données d'une liste de données se trouvant dans une feuille d'un classeur que tu sélectionnes avec le code que tu as affiché et ce suivant certains critères.
Le filtre avancé ou élaboré d'excel permet de faire cette importation.
Le filtre a besoin de 3 zones.
1) La zone des données (la liste de données de la feuille du classeur précité)
2) Une zone de critères (qui peut se trouver sur le classeur où se trouve le code VBA et que tu peux alimenter soit à la main, soit avec une boîte de dialogue qui va lire le classeur dont on parle dans le point 1 et qui avec un ou plusieurs ListBox ou ComboBox peut ou peuvent remplir la zone de critères
3) La zone d'exportation.
Une fois ces trois zones définies, il suffit de lancer le filtre avancé avec la méthode AdvancedFilter en lui passant comme arguments les deux zones (Critères et Exportation), la zone des data étant l'objet Range de la méthode AdvancedFilter
Soit par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 DataReference.AdvancedFilter xlFilterCopy, criteriaRange:=rngCriteria, copytorange:=rngTo

Où DataReference est l'objet range qui est la zone des données.

Il y a un exemple qui se trouve dans le classeur qui illustre le tuto avec des zones d'importations et des zones de critères différentes mais sur le même classeur pour la facilité de l'illustration.