Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Zone Impression

Zone Impression

3 réponses
Avatar
Dom
Bonjour,
J'ai un tableau variable en nombres de lignes.
Les colonnes sont toujours de "A" a "R" .
j'ai trouvé ceci qui me selectionne mon tableau :

With Range("A:R")
Range("A1:R" & .Find("*", .Item(1), , , , xlPrevious).Row).Select
End With

Mais comment faire pour que cette zone selectionné, devienne une Zone
d'Impression.
Je bloque.
Merci d'avance
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
With Range("A:R")
ActiveSheet.PageSetup.PrintArea = _
Range("A1:R" & .Find("*", .Item(1), , , , xlPrevious).Row).Address
End With
Cordialement.
Daniel
"Dom" a écrit dans le message de news:
eO$
Bonjour,
J'ai un tableau variable en nombres de lignes.
Les colonnes sont toujours de "A" a "R" .
j'ai trouvé ceci qui me selectionne mon tableau :

With Range("A:R")
Range("A1:R" & .Find("*", .Item(1), , , , xlPrevious).Row).Select
End With

Mais comment faire pour que cette zone selectionné, devienne une Zone
d'Impression.
Je bloque.
Merci d'avance



Avatar
JB
Bonjour,

Il n'y a pas besoin de VBA:

http://cjoint.com/?hiouqNnj21

Impression dynamique
La zone d'impression s'agrandit automatiquement

Insertion/Nom/Définir
Zone_d_impression
ÞCALER(ImpressionDynamique1!$A$1;;;NBVAL(ImpressionDynamique1!$A:$A)

MFC:
Sélectionner A2:A30
Format/Mise en forme conditionnelle/La formule est:
=LIGNE()<=NBVAL($A:$A)

Cordialement JB



Bonjour,
J'ai un tableau variable en nombres de lignes.
Les colonnes sont toujours de "A" a "R" .
j'ai trouvé ceci qui me selectionne mon tableau :

With Range("A:R")
Range("A1:R" & .Find("*", .Item(1), , , , xlPrevious).Row).Select
End With

Mais comment faire pour que cette zone selectionné, devienne une Zone
d'Impression.
Je bloque.
Merci d'avance


Avatar
Dom
Merci, cela fonctionne.
Genial
Merci encore


"Daniel" a écrit dans le message de news:

Bonjour.
With Range("A:R")
ActiveSheet.PageSetup.PrintArea = _
Range("A1:R" & .Find("*", .Item(1), , , , xlPrevious).Row).Address
End With
Cordialement.
Daniel
"Dom" a écrit dans le message de news:
eO$
Bonjour,
J'ai un tableau variable en nombres de lignes.
Les colonnes sont toujours de "A" a "R" .
j'ai trouvé ceci qui me selectionne mon tableau :

With Range("A:R")
Range("A1:R" & .Find("*", .Item(1), , , , xlPrevious).Row).Select
End With

Mais comment faire pour que cette zone selectionné, devienne une Zone
d'Impression.
Je bloque.
Merci d'avance