Bonjour,
Je voudrais créer 3 macros :
- 1 qui appliquerait un filtre sur une BD située sur le feuille A (les données viennent d'un autre fichier EXCEL d'une extraction, je viens coller les le tableau dans un nuveau fichier EXCEL),
- et 2 qui dupliqueraient la feuille A en feuille B et C sans le filtre appliqué en A (déjà je ne sais pas si c'est possible...), les renommeraient chacune et appliqueraient des filtres spécifiques à elles.
Je voudrais que ça duplique impérativement à droite de la feuille copiée l'une après l'autre (copie feuille a à coté de l'originale et copie feuille B à coté de copie feuille A) car il existe sur ce ficher d'autres macros qui sont basées sur l'ordre des feuilles il me semble (ce n'est pas moi qui les ai faites) et sur leur nom.
Ma première macro (que j'ai faite avec l'assistant) ne veut pas fonctionner mais à la limite, ce n'est pas grave si elle n'existe pas. Elle n'a de but que supprimer une manip manuelle à l'utilisateur à savoir le filtre. Mais les 2 autres, je souhaiterais vraiment qu'elles marchent.
Pour la deuxième macro que j'ai faite, voilà le code :
Sub EV_PROD_FILTER()
'
' EV_PROD_FILTER Macro
' Genere onglet retour prod
'
'
selection.AutoFilter
Sheets("EV Prod").Copy Before:=Sheets(5)
Sheets("EV Prod (2)").Select
Sheets("EV Prod (2)").Name = "EV Retour Prod"
Range("A1").Select
selection.AutoFilter
ActiveSheet.Range("$A$1:$R$1179").AutoFilter Field:=3, Criteria1:= _
"RETOUR PRODUCTION"
End Sub
J'ai une erreur sur le ligne selection.AutoFilter (même erreur pour la macro 1 qui ne fonctionne pas.
Merci de me guider.
Je voudrais créer 3 macros :
- 1 qui appliquerait un filtre sur une BD située sur le feuille A (les données viennent d'un autre fichier EXCEL d'une extraction, je viens coller les le tableau dans un nuveau fichier EXCEL),
- et 2 qui dupliqueraient la feuille A en feuille B et C sans le filtre appliqué en A (déjà je ne sais pas si c'est possible...), les renommeraient chacune et appliqueraient des filtres spécifiques à elles.
Je voudrais que ça duplique impérativement à droite de la feuille copiée l'une après l'autre (copie feuille a à coté de l'originale et copie feuille B à coté de copie feuille A) car il existe sur ce ficher d'autres macros qui sont basées sur l'ordre des feuilles il me semble (ce n'est pas moi qui les ai faites) et sur leur nom.
Ma première macro (que j'ai faite avec l'assistant) ne veut pas fonctionner mais à la limite, ce n'est pas grave si elle n'existe pas. Elle n'a de but que supprimer une manip manuelle à l'utilisateur à savoir le filtre. Mais les 2 autres, je souhaiterais vraiment qu'elles marchent.
Pour la deuxième macro que j'ai faite, voilà le code :
Sub EV_PROD_FILTER()
'
' EV_PROD_FILTER Macro
' Genere onglet retour prod
'
'
selection.AutoFilter
Sheets("EV Prod").Copy Before:=Sheets(5)
Sheets("EV Prod (2)").Select
Sheets("EV Prod (2)").Name = "EV Retour Prod"
Range("A1").Select
selection.AutoFilter
ActiveSheet.Range("$A$1:$R$1179").AutoFilter Field:=3, Criteria1:= _
"RETOUR PRODUCTION"
End Sub
J'ai une erreur sur le ligne selection.AutoFilter (même erreur pour la macro 1 qui ne fonctionne pas.
Merci de me guider.
Dernière édition: