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

JCGL

XLDnaute Barbatruc

• 28 Novembre 2010

• #2

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

 

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 28 Novembre 2010

• #3

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

 

Vote positif 0 Vote négatif

G

gilles72

XLDnaute Junior

• 28 Novembre 2010

• #4

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 28 Novembre 2010

• #5

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

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 28 Novembre 2010

• #6

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

Salut gilles72 et le forum
Utilise les balises de code

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+

 

Vote positif 0 Vote négatif

G

gilles72

XLDnaute Junior

• 28 Novembre 2010

• #7

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

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 29 Novembre 2010

• #8

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+

 

Vote positif 0 Vote négatif