Zone d'impression suivant nom indiqué dans colonne K

Résolu/Fermé

PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - Modifié le 27 avril 2021 à 14:26
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 29 avril 2021 à 13:28

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 !

Configuration: Windows / Firefox 78.0

A voir également:

Zone d'impression suivant nom indiqué dans colonne K
Spouleur d'impression - Guide
Zone telechargement - Accueil - Outils
Déplacer une colonne excel - Guide
Formule somme excel colonne - Guide
Dans le document à télécharger, trouvez les lettres situées derrière les rectangles pour reconstituer le nom du chat. comment s'appelle-t-il ? - Forum InDesign

7 réponses

Réponse 1 / 7

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
27 avril 2021 à 15:08

Bonjour

Peux tu envoyer un bout de fichier excel ?

Cdlmnt

PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
27 avril 2021 à 16:40

https://www.cjoint.com/c/KDBoHLrJeHV

Réponse 2 / 7

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
Modifié le 27 avril 2021 à 17:16

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

Public Sub zid()
ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range(""groupe1").Address
End Sub

Cdlmnt

PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
27 avril 2021 à 17:34

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 ?

Réponse 3 / 7

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
Modifié le 27 avril 2021 à 21:09

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

PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
28 avril 2021 à 08:58

Merci !

J'ai une feuille par mois et 4 groupes par feuille.

Cdlmnt

Réponse 4 / 7

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
28 avril 2021 à 11:24

Donc, il faut s'y prendre autrement
Tes groupes sont ils tous les uns en dessous des autres, comme sur ton exemple ?

PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
28 avril 2021 à 11:30

Oui, les 1 à la suite des autres

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
28 avril 2021 à 12:27

ok

https://www.cjoint.com/c/KDCkzWjdvQB
si ça te convient, je t'explique comment activer ça sur les autres feuilles

Cdlmnt

PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
28 avril 2021 à 13:13

Encore Merci ! ccm81

Bonne journée !

Réponse 6 / 7

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
28 avril 2021 à 14:06

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

PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
29 avril 2021 à 13:28

Merci pour cette précision !
Bonne journée !

Réponse 7 / 7

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
28 avril 2021 à 11:56

et ils s'appellent tous Groupe1, ....

PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
28 avril 2021 à 11:58

Groupe1
Groupe2
Groupe3
Groupe4

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

ou sont les bananes ?

convertir en k€

"Nom de l'adresse" lors d'une inscription sur une site