Macro all/retour entre feuilles
Résolu/Fermé
nemotri
Messages postés
175
Date d'inscription
dimanche 9 août 2009
Statut
Membre
Dernière intervention
8 décembre 2017
-
11 août 2009 à 14:43
nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 - 11 août 2009 à 17:39
nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 - 11 août 2009 à 17:39
A voir également:
- Macro all/retour entre feuilles
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Retour à la ligne excel - Guide
6 réponses
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
11 août 2009 à 14:56
11 août 2009 à 14:56
Bonjour,
Aucun besoin de VBA, utilise des liens hypertext (vers un emplacement dans le document)
Aucun besoin de VBA, utilise des liens hypertext (vers un emplacement dans le document)
nemotri
Messages postés
175
Date d'inscription
dimanche 9 août 2009
Statut
Membre
Dernière intervention
8 décembre 2017
35
11 août 2009 à 15:29
11 août 2009 à 15:29
Si j'ai besoin de VBA car je ne suis pas rentré dans tous les détails dans mon explication et j'ai simplifié avec mon exemple.
En fait j'ai 52 feuilles de type A (donc A1 à A52), puis 52 feuilles de type B (donc B1 à B52) et enfin 52 feuilles de type C (donc C1 à C52).
Connaissant mon nombre de feuilles à créer de chaque type (52), je souhaiterai créer entièrement ma premire feuille A (A1), ma première feuille B (B1), ma première feuille C (C1).
Sur A1 je crée un bouton qui répond à la macro Aller_A_La_Page_ n + 52 ('pour aller aux feuilles B) ainsi qu'un bouton qui répond à la macro Aller_A_La_Page_n + 104 ('pour aller aux feuilles C).
Sur B1 je crée un bouton qui répond à la macro Aller_A_La_Page_n - 52 ('pour revenir aux pages A) ainsi qu'un bouton qui répond à la macro Aller_A_La_Page_n + 52 ('pour aller aux feuilles C).
Sur C1 je créé un bouton qui répond à la macro Aller_A_La_Page_n - 104 ('pour revenir aux pages A) ainsi qu'un bouton qui répond à la macro Aller_A_La_Page_ n 52 ('pour revenir aux pages B).
Ensuite je fais 51 copies de ma page A1, 51 copies de ma page B1 et 51 copies de ma page C1 et je n'ai plus qu'à renommer me copies (peut être que je pourrai même faire une macro qui me permettra de copier A1 et de renommer automatiquement la copie en A2 mais je ne suis pas sûr de savoir faire).
Donc pour revenir à mon point de départ j'ai absolument besoin de VBA vu le nombre de pages.
En fait j'ai 52 feuilles de type A (donc A1 à A52), puis 52 feuilles de type B (donc B1 à B52) et enfin 52 feuilles de type C (donc C1 à C52).
Connaissant mon nombre de feuilles à créer de chaque type (52), je souhaiterai créer entièrement ma premire feuille A (A1), ma première feuille B (B1), ma première feuille C (C1).
Sur A1 je crée un bouton qui répond à la macro Aller_A_La_Page_ n + 52 ('pour aller aux feuilles B) ainsi qu'un bouton qui répond à la macro Aller_A_La_Page_n + 104 ('pour aller aux feuilles C).
Sur B1 je crée un bouton qui répond à la macro Aller_A_La_Page_n - 52 ('pour revenir aux pages A) ainsi qu'un bouton qui répond à la macro Aller_A_La_Page_n + 52 ('pour aller aux feuilles C).
Sur C1 je créé un bouton qui répond à la macro Aller_A_La_Page_n - 104 ('pour revenir aux pages A) ainsi qu'un bouton qui répond à la macro Aller_A_La_Page_ n 52 ('pour revenir aux pages B).
Ensuite je fais 51 copies de ma page A1, 51 copies de ma page B1 et 51 copies de ma page C1 et je n'ai plus qu'à renommer me copies (peut être que je pourrai même faire une macro qui me permettra de copier A1 et de renommer automatiquement la copie en A2 mais je ne suis pas sûr de savoir faire).
Donc pour revenir à mon point de départ j'ai absolument besoin de VBA vu le nombre de pages.
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
11 août 2009 à 15:35
11 août 2009 à 15:35
ok,
ActiveWorkbook.Sheets(ActiveSheet.Index + n).Select
nemotri
Messages postés
175
Date d'inscription
dimanche 9 août 2009
Statut
Membre
Dernière intervention
8 décembre 2017
35
11 août 2009 à 16:01
11 août 2009 à 16:01
Ok merci tompols,
Juste une petite précision, il faut que je remplace dans ta formule le "+ n" par " +52" ou "- 52"...
Je n'ai pas besoin de rajouter d'info dans la procédure que j'avais écrit au départ ?
merci en tout cas.
Juste une petite précision, il faut que je remplace dans ta formule le "+ n" par " +52" ou "- 52"...
Je n'ai pas besoin de rajouter d'info dans la procédure que j'avais écrit au départ ?
merci en tout cas.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
11 août 2009 à 16:18
11 août 2009 à 16:18
Ok, en reprenant ton code :
Sub Aller_Feuille_n+3
' Pour aller des feuilles A vers les feuilles B
ActiveWorkbook.Sheets (ActiveSheet.Index+ 3). Select
End sub
Sub Retour_Feuille_n-3
ActiveWorbook.Sheets (ActiveSheet.Index- 3). Select
End sub
Sub Aller_Feuille_n+3
' Pour aller des feuilles A vers les feuilles B
ActiveWorkbook.Sheets (ActiveSheet.Index+ 3). Select
End sub
Sub Retour_Feuille_n-3
ActiveWorbook.Sheets (ActiveSheet.Index- 3). Select
End sub
nemotri
Messages postés
175
Date d'inscription
dimanche 9 août 2009
Statut
Membre
Dernière intervention
8 décembre 2017
35
11 août 2009 à 17:39
11 août 2009 à 17:39
Vraiment parfait. Merci
