Bonjour à tous,
Je sollicite vos services pour l'amélioration de ma macro.
Dans le fichier ci joint j'ai 5 onglets:
- Table ==> permet d'afficher le secteur par rapport au groupe
- BDD
- FS/CIPS/TS/Non cadre ==> accueil les données de l'onglet BDD. Pour les onglets FS/CIPS/TS l'extract doit se faire par rapport à la colonne F de l'onglet BDD alors que pour l'onglet non cadre l'extract doit se faire par rapport à la colonne E de l'onglet BDD.
Dans mon vrai fichier j'ai évidement plus d'onglet "d'accueil" (45).
Voici un bout de ma macro:
Range("A2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=6, Criteria1:="FS"
Range("A2:F49").Select
Selection.Copy
Sheets("FS").Select
Range("A4").Select
ActiveSheet.Paste
J'ai donc 4 fois ce bout de macro dans mon fichier.
Est il possible d'avoir une macro qui effectue le même travail sur tous les onglets situés à droite de l'onglet BDD (il ne faut pas touché à l'onglet table)?
Merci d'avance pour vos réponses
A+
Kiff
Je sollicite vos services pour l'amélioration de ma macro.
Dans le fichier ci joint j'ai 5 onglets:
- Table ==> permet d'afficher le secteur par rapport au groupe
- BDD
- FS/CIPS/TS/Non cadre ==> accueil les données de l'onglet BDD. Pour les onglets FS/CIPS/TS l'extract doit se faire par rapport à la colonne F de l'onglet BDD alors que pour l'onglet non cadre l'extract doit se faire par rapport à la colonne E de l'onglet BDD.
Dans mon vrai fichier j'ai évidement plus d'onglet "d'accueil" (45).
Voici un bout de ma macro:
Range("A2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=6, Criteria1:="FS"
Range("A2:F49").Select
Selection.Copy
Sheets("FS").Select
Range("A4").Select
ActiveSheet.Paste
J'ai donc 4 fois ce bout de macro dans mon fichier.
Est il possible d'avoir une macro qui effectue le même travail sur tous les onglets situés à droite de l'onglet BDD (il ne faut pas touché à l'onglet table)?
Merci d'avance pour vos réponses
A+
Kiff