Zone d'impression juqu'à dernière cellule réèllement non vide

[gilles72]

bonjour à tous,
je souhaite définir une zone d'impression sur une zone qui évolue en dimension à chaque utilisation
je souhaite le faire jusqu'à la dernière cellule en colonne H mais il descend beaucoup plus bas sur des cellules apparemment vides (elles ont été recopièes en "valeur" et en "format")
j'ai essayé ceci:
Columns(8).Find("*", , , , , xlPrevious).Select
.PageSetup.PrintArea = "$A$1:activecell"
evidemment sans succès
Un avis?
merci
gilles

 

[JCGL]

Re : Zone d'impression juqu'à dernière cellule réèllement non vide

Bonjour à tous,

Je pense qu'une zone nommée par Insertion / Nom / Définir devrait convenir

Un fichier avec tes "valeurs" et "format" serait souhaitable

A+ à tous

 

[exene]

Re : Zone d'impression juqu'à dernière cellule réèllement non vide

Bonjour,

Sans VBA et avec une plage nommée (une réponse de Jacques Boisgontier)

Zone_d_impression = DECALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A);8)

Une solution peut être

@+

En retard

 

[gilles72]

Re : Zone d'impression juqu'à dernière cellule réèllement non vide

bonjour et merci de votre aide
plage nommée:
je considère la plage possiblement la plus grande, avant de définir un nom?

Gilles

 

[JCGL]

Re : Zone d'impression juqu'à dernière cellule réèllement non vide

Bonjour à tous,
Salut Exene 🙂,

Non pas forcément.
Il faut définir ta plage comme écrit par Exene.
Ensuite un simple .PrintOut dans le code.

A+ à tous

 

[Gorfael]

Re : Zone d'impression juqu'à dernière cellule réèllement non vide

Salut gilles72 et le forum
Utilise les balises de code

.PageSetup.PrintArea = range([A1],Columns(8).Find("*", , , , , xlPrevious)).address

Je n'ai pas vérifier, supposant que ta formule sélectionnait bien la cellule qui t'intéressait.
Mais PrintArea attend une adresse en string, pas un texte que VBA ne saurait interpréter. Donc, si c'est avec la cellule active, ça ne peut pas être "$A$1:activecell", mais à la limite : "A1:" & activecell.address
A+

 

[gilles72]

Re : Zone d'impression juqu'à dernière cellule réèllement non vide

Re-bonjour à tous
merci encore
en piochant et en adaptant j'ai pu obtenir ceci qui fonctionne nickel:

Sub ZoneImpressionListeInscriptions()
dercolonne = ("I:I")
Columns(8).Find("*", , , , , xlPrevious).Select
derligne = activecell.Row 'ça marche
der = activecell.Offset(0, 1).Address
ActiveSheet.PageSetup.PrintArea = "$A$1:" & der 'ça marche
End Sub

MERCI et à+
gilles

 

[Gorfael]

Re : Zone d'impression juqu'à dernière cellule réèllement non vide

Salut gilles72 et le forum
Tu imprimes une ligne de plus que celle que tu voulais obtenir sur ton premier poste. De plus tu utilises des Select/ActiveCell, ce qui te vaudra des problèmes dans d'autres macros (difficile de se débarrasser de ses habitudes). Et, en tout état de cause, tu n'as même pas regardé ce qui t'a été fourni, parce que tu aurais compris ton erreur ou demandé des précisions 😎.
A+