J'ai un tableau de 2 colonnes sur 660 lignes.
Je voudrais n'imprimer que les lignes contenant des données.
Et je n'y arrive pas avec une macro pré-enregistrée, car elle sélectionne
toujours la même zone d'impression.
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
Philippe.R
Bonsoir, A titre d'exemple :
Sub zonevar() ' MPFE le 18/01/2005 par Philippe.R Dim der1 As Long, der2 As Long, lader As Long der1 = Range("a65536").End(xlUp).Row der2 = Range("b65536").End(xlUp).Row lader = IIf(der1 > der2, der1, der2) ActiveSheet.PageSetup.PrintArea = "A1:B" & lader MsgBox "la zone d'impression va de A1 à B" & lader End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"olitoto" a écrit dans le message de news: 41ed3fcc$0$25793$
Bonjour à tous,
J'ai un tableau de 2 colonnes sur 660 lignes. Je voudrais n'imprimer que les lignes contenant des données. Et je n'y arrive pas avec une macro pré-enregistrée, car elle sélectionne toujours la même zone d'impression.
Merci de vore aide,
Olivier
Bonsoir,
A titre d'exemple :
Sub zonevar()
' MPFE le 18/01/2005 par Philippe.R
Dim der1 As Long, der2 As Long, lader As Long
der1 = Range("a65536").End(xlUp).Row
der2 = Range("b65536").End(xlUp).Row
lader = IIf(der1 > der2, der1, der2)
ActiveSheet.PageSetup.PrintArea = "A1:B" & lader
MsgBox "la zone d'impression va de A1 à B" & lader
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"olitoto" <toto@wanadoo.fr> a écrit dans le message de news:
41ed3fcc$0$25793$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
J'ai un tableau de 2 colonnes sur 660 lignes.
Je voudrais n'imprimer que les lignes contenant des données.
Et je n'y arrive pas avec une macro pré-enregistrée, car elle sélectionne toujours la même zone
d'impression.
Sub zonevar() ' MPFE le 18/01/2005 par Philippe.R Dim der1 As Long, der2 As Long, lader As Long der1 = Range("a65536").End(xlUp).Row der2 = Range("b65536").End(xlUp).Row lader = IIf(der1 > der2, der1, der2) ActiveSheet.PageSetup.PrintArea = "A1:B" & lader MsgBox "la zone d'impression va de A1 à B" & lader End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"olitoto" a écrit dans le message de news: 41ed3fcc$0$25793$
Bonjour à tous,
J'ai un tableau de 2 colonnes sur 660 lignes. Je voudrais n'imprimer que les lignes contenant des données. Et je n'y arrive pas avec une macro pré-enregistrée, car elle sélectionne toujours la même zone d'impression.
Merci de vore aide,
Olivier
olitoto
Merci beaucoup Philippe, ça marche bien, je vais l'adapter à mes besoins ...
Olivier
"Philippe.R" a écrit dans le message de news: %23TmJyvZ$
Bonsoir, A titre d'exemple :
Sub zonevar() ' MPFE le 18/01/2005 par Philippe.R Dim der1 As Long, der2 As Long, lader As Long der1 = Range("a65536").End(xlUp).Row der2 = Range("b65536").End(xlUp).Row lader = IIf(der1 > der2, der1, der2) ActiveSheet.PageSetup.PrintArea = "A1:B" & lader MsgBox "la zone d'impression va de A1 à B" & lader End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"olitoto" a écrit dans le message de news: 41ed3fcc$0$25793$
Bonjour à tous,
J'ai un tableau de 2 colonnes sur 660 lignes. Je voudrais n'imprimer que les lignes contenant des données. Et je n'y arrive pas avec une macro pré-enregistrée, car elle sélectionne toujours la même zone d'impression.
Merci de vore aide,
Olivier
Merci beaucoup Philippe, ça marche bien, je vais l'adapter à mes besoins ...
Olivier
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
%23TmJyvZ$EHA.3528@TK2MSFTNGP10.phx.gbl...
Bonsoir,
A titre d'exemple :
Sub zonevar()
' MPFE le 18/01/2005 par Philippe.R
Dim der1 As Long, der2 As Long, lader As Long
der1 = Range("a65536").End(xlUp).Row
der2 = Range("b65536").End(xlUp).Row
lader = IIf(der1 > der2, der1, der2)
ActiveSheet.PageSetup.PrintArea = "A1:B" & lader
MsgBox "la zone d'impression va de A1 à B" & lader
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"olitoto" <toto@wanadoo.fr> a écrit dans le message de news:
41ed3fcc$0$25793$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
J'ai un tableau de 2 colonnes sur 660 lignes.
Je voudrais n'imprimer que les lignes contenant des données.
Et je n'y arrive pas avec une macro pré-enregistrée, car elle sélectionne
toujours la même zone d'impression.
Merci beaucoup Philippe, ça marche bien, je vais l'adapter à mes besoins ...
Olivier
"Philippe.R" a écrit dans le message de news: %23TmJyvZ$
Bonsoir, A titre d'exemple :
Sub zonevar() ' MPFE le 18/01/2005 par Philippe.R Dim der1 As Long, der2 As Long, lader As Long der1 = Range("a65536").End(xlUp).Row der2 = Range("b65536").End(xlUp).Row lader = IIf(der1 > der2, der1, der2) ActiveSheet.PageSetup.PrintArea = "A1:B" & lader MsgBox "la zone d'impression va de A1 à B" & lader End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"olitoto" a écrit dans le message de news: 41ed3fcc$0$25793$
Bonjour à tous,
J'ai un tableau de 2 colonnes sur 660 lignes. Je voudrais n'imprimer que les lignes contenant des données. Et je n'y arrive pas avec une macro pré-enregistrée, car elle sélectionne toujours la même zone d'impression.
