Comment sélectionner une zone d'impressiond'une ligne définie a une autre
Fermé
Alexcelmac
Messages postés
10
Date d'inscription
vendredi 29 septembre 2017
Statut
Membre
Dernière intervention
23 décembre 2020
-
Modifié le 23 déc. 2020 à 04:28
franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 - 23 déc. 2020 à 06:34
franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 - 23 déc. 2020 à 06:34
A voir également:
- Comment sélectionner une zone d'impressiond'une ligne définie a une autre
- Zone telechargement - Guide
- Aller à la ligne dans une cellule excel - Guide
- Apparaitre hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
1 réponse
franc38
Messages postés
197
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
38
23 déc. 2020 à 06:34
23 déc. 2020 à 06:34
Bonjour
tu as 2 solutions
la plus simple: choisir formule /gestionnaire de nom
si dans la liste il n'y a pas Zone_d_impression
clic sur nouveau et dans nom tu mets: Zone_d_impression
Sinon tu clic sur modifier
Dans les 2 cas dans la ligne: "Fait référence à" tu copie la formule suivante
=DECALER(Feuil1!$C$3:$L$3;;;NBVAL(Feuil1!$L$3:$L$100);)
La zone d'impression sera égale à C3 jusque L dernière cellule remplie
sinon par macro (qui se lancera en remplissant b1 et b2)
clic sur l'onglet de la feuille concernée et choisi "Visualiser le code"
sur la page copie la macro suivante
A+ François
tu as 2 solutions
la plus simple: choisir formule /gestionnaire de nom
si dans la liste il n'y a pas Zone_d_impression
clic sur nouveau et dans nom tu mets: Zone_d_impression
Sinon tu clic sur modifier
Dans les 2 cas dans la ligne: "Fait référence à" tu copie la formule suivante
=DECALER(Feuil1!$C$3:$L$3;;;NBVAL(Feuil1!$L$3:$L$100);)
La zone d'impression sera égale à C3 jusque L dernière cellule remplie
sinon par macro (qui se lancera en remplissant b1 et b2)
clic sur l'onglet de la feuille concernée et choisi "Visualiser le code"
sur la page copie la macro suivante
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row > 2 Then Exit Sub
If Len(Range("B1").Value) = 0 Or Len(Range("B2").Value) = 0 Then Exit Sub
ActiveSheet.PageSetup.PrintArea = ("C" & Range("B1").Value & ":L" & Range("B2").Value)
End Sub
A+ François