Zone d'impression suivant nom indiqué dans colonne K
Résolu
Bonjour,
Je ne sais pas comment indiquer à Excel par vba, de me définir la zone d'impression suivant le nom présent en colonne K.
Dans un planning, j'ai par semaine la liste des personnes et activités affectées.
Dans VBA, je souhaite qu' Excel me définisse automatiquement le planning du groupe1.
Le nom du groupe est indiqué dans la colonne K à partir de la ligne 23.
Dans mon exemple le groupe 1est référencé entre la ligne 23 et la ligne 42.
Si je supprime ou rajoute une personne, du groupe1 la zone d'impression devrait changer...
Comment faire ?
Merci d'avance pour votre aide !
Je ne sais pas comment indiquer à Excel par vba, de me définir la zone d'impression suivant le nom présent en colonne K.
Dans un planning, j'ai par semaine la liste des personnes et activités affectées.
Dans VBA, je souhaite qu' Excel me définisse automatiquement le planning du groupe1.
Le nom du groupe est indiqué dans la colonne K à partir de la ligne 23.
Dans mon exemple le groupe 1est référencé entre la ligne 23 et la ligne 42.
Si je supprime ou rajoute une personne, du groupe1 la zone d'impression devrait changer...
Comment faire ?
Merci d'avance pour votre aide !
Configuration: Windows / Firefox 78.0
7 réponses
-
Bonjour
Peux tu envoyer un bout de fichier excel ?
Cdlmnt -
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 macroPublic 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 ?
-
-
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 -
Donc, il faut s'y prendre autrement
Tes groupes sont ils tous les uns en dessous des autres, comme sur ton exemple ? -
ok
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 -
et ils s'appellent tous Groupe1, ....
