Zone d'impression suivant nom indiqué dans colonne K
Résolu
PYGOS69
Messages postés
452
Date d'inscription
Statut
Membre
Dernière intervention
-
PYGOS69 Messages postés 452 Date d'inscription Statut Membre Dernière intervention -
PYGOS69 Messages postés 452 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Zone d'impression suivant nom indiqué dans colonne K
- Spouleur d'impression - Guide
- Alternative zone telechargement - Accueil - Outils
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Formule somme excel colonne - Guide
7 réponses
Bonjour
Peux tu envoyer un bout de fichier excel ?
Cdlmnt
Peux tu envoyer un bout de fichier excel ?
Cdlmnt
PYGOS69
Messages postés
452
Date d'inscription
Statut
Membre
Dernière intervention
21
https://www.cjoint.com/c/KDBoHLrJeHV
Bonjour
1. Nommer dynamiquement le groupe 1
Nom > groupe1
Fait référence à > =DECALER(Feuil1!$K$20;0;0;3+NB.SI(Feuil1!$K:$K;"groupe1");NBVAL(Feuil1!$22:$22))
2. La macro
Cdlmnt
1. Nommer dynamiquement le groupe 1
Nom > groupe1
Fait référence à > =DECALER(Feuil1!$K$20;0;0;3+NB.SI(Feuil1!$K:$K;"groupe1");NBVAL(Feuil1!$22:$22))
2. La macro
Public Sub zid() ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range(""groupe1").Address End Sub
Cdlmnt
Merci ccm81,
Groupe1 limite bien mais groupe2 est égal à la zone d'impression groupe 1 +1ligne de groupe 2
Groupe1=DECALER(Feuil1!$K$20;0;0;3+NB.SI(Feuil1!$K:$K;"Groupe1");NBVAL(Feuil1!$22:$22))
Groupe2=DECALER(Feuil1!$K$20;0;0;3+NB.SI(Feuil1!$K:$K;"Groupe2");NBVAL(Feuil1!$22:$22))
Public Sub zid()
ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("groupe1").Address
End Sub
Public Sub zid1()
ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("groupe2").Address
End Sub
Ai-je fais une erreur ?
Groupe1 limite bien mais groupe2 est égal à la zone d'impression groupe 1 +1ligne de groupe 2
Groupe1=DECALER(Feuil1!$K$20;0;0;3+NB.SI(Feuil1!$K:$K;"Groupe1");NBVAL(Feuil1!$22:$22))
Groupe2=DECALER(Feuil1!$K$20;0;0;3+NB.SI(Feuil1!$K:$K;"Groupe2");NBVAL(Feuil1!$22:$22))
Public Sub zid()
ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("groupe1").Address
End Sub
Public Sub zid1()
ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("groupe2").Address
End Sub
Ai-je fais une erreur ?
C'est un peu plus compliqué
https://mon-partage.fr/f/lBK4Tc5X/
RQ. Une question en passant, est ce que ta feuille se limite à 2 groupes ?
Cdlmnt
https://mon-partage.fr/f/lBK4Tc5X/
RQ. Une question en passant, est ce que ta feuille se limite à 2 groupes ?
Cdlmnt
Donc, il faut s'y prendre autrement
Tes groupes sont ils tous les uns en dessous des autres, comme sur ton exemple ?
Tes groupes sont ils tous les uns en dessous des autres, comme sur ton exemple ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ok
https://www.cjoint.com/c/KDCkzWjdvQB
si ça te convient, je t'explique comment activer ça sur les autres feuilles
Cdlmnt
https://www.cjoint.com/c/KDCkzWjdvQB
si ça te convient, je t'explique comment activer ça sur les autres feuilles
Cdlmnt
Au cas où
1. Tu copies la cellule N15 (avec la liste de choix) dans les autres feuilles
2. Tu recopie le code de la feuille 1 dans le module des autres feuilles
3. c'est tout
tout ça bien sur si les données sont situées au même endroit dans les autres feuilles
https://mon-partage.fr/f/0n7Zj9bT/
Bon après midi
1. Tu copies la cellule N15 (avec la liste de choix) dans les autres feuilles
2. Tu recopie le code de la feuille 1 dans le module des autres feuilles
3. c'est tout
tout ça bien sur si les données sont situées au même endroit dans les autres feuilles
https://mon-partage.fr/f/0n7Zj9bT/
Bon après midi