Imprimer que les zones saisies

isabelle

13/07/2005 à 20:49

bonjour Floriant,

quel valeur y a t'il en cellule A5000 ?

isabelle

Bonsoir
Pour imprimer uniquement les zones saisies d'un tableau, j'utilise cette
procédure.
Mais, la dernière ligne ne s'imprime pas.
De ce fait, si vous avez une proc de même type qui fonctionne ;-)
Je suis preneur.
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:DO5000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True

Florian

13/07/2005 à 21:05

Bonsoir Isabelle
Rien pour l'instant à part la bordure !
J'attends que le tableau se remplisse
Flo riant

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

bonjour Floriant,

quel valeur y a t'il en cellule A5000 ?

isabelle

Bonsoir
Pour imprimer uniquement les zones saisies d'un tableau, j'utilise cette
procédure.
Mais, la dernière ligne ne s'imprime pas.
De ce fait, si vous avez une proc de même type qui fonctionne ;-)
Je suis preneur.
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:DO5000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True

isabelle

13/07/2005 à 21:35

donc s'il n'y a rien en cellule A5000 c'est normal que cette ligne ne soit pas reprise par le filtre et du coup non imprimer.

isabelle

Bonsoir Isabelle
Rien pour l'instant à part la bordure !
J'attends que le tableau se remplisse
Flo riant

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

bonjour Floriant,

quel valeur y a t'il en cellule A5000 ?

isabelle

Bonsoir
Pour imprimer uniquement les zones saisies d'un tableau, j'utilise cette
procédure.
Mais, la dernière ligne ne s'imprime pas.
De ce fait, si vous avez une proc de même type qui fonctionne ;-)
Je suis preneur.
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:DO5000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True

Florian

13/07/2005 à 21:49

Ok merci Isabelle
As-tu une proposition afin de faire apparaître cette ligne ?
Flo riant

"isabelle" a écrit dans le message de news:
uitdRI%

donc s'il n'y a rien en cellule A5000 c'est normal que cette ligne ne soit
pas reprise par le filtre et du coup non imprimer.

isabelle

Bonsoir Isabelle
Rien pour l'instant à part la bordure !
J'attends que le tableau se remplisse
Flo riant

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

bonjour Floriant,

quel valeur y a t'il en cellule A5000 ?

isabelle

Bonsoir
Pour imprimer uniquement les zones saisies d'un tableau, j'utilise cette
procédure.
Mais, la dernière ligne ne s'imprime pas.
De ce fait, si vous avez une proc de même type qui fonctionne ;-)
Je suis preneur.
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:DO5000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True

isabelle

14/07/2005 à 17:01

bonjour Floriant,

que contient cette ligne,

des données ou une ligne de totaux ?

isabelle

Ok merci Isabelle
As-tu une proposition afin de faire apparaître cette ligne ?
Flo riant

"isabelle" a écrit dans le message de news:
uitdRI%

donc s'il n'y a rien en cellule A5000 c'est normal que cette ligne ne soit
pas reprise par le filtre et du coup non imprimer.

isabelle

Bonsoir Isabelle
Rien pour l'instant à part la bordure !
J'attends que le tableau se remplisse
Flo riant

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

bonjour Floriant,

quel valeur y a t'il en cellule A5000 ?

isabelle

Bonsoir
Pour imprimer uniquement les zones saisies d'un tableau, j'utilise cette
procédure.
Mais, la dernière ligne ne s'imprime pas.
De ce fait, si vous avez une proc de même type qui fonctionne ;-)
Je suis preneur.
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:DO5000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True

Florian

14/07/2005 à 17:30

RE, des données
Merci
Flo riant

"isabelle" a écrit dans le message de news:
%

bonjour Floriant,

que contient cette ligne,

des données ou une ligne de totaux ?

isabelle

Ok merci Isabelle
As-tu une proposition afin de faire apparaître cette ligne ?
Flo riant

"isabelle" a écrit dans le message de news:
uitdRI%

donc s'il n'y a rien en cellule A5000 c'est normal que cette ligne ne
soit pas reprise par le filtre et du coup non imprimer.

isabelle

Bonsoir Isabelle
Rien pour l'instant à part la bordure !
J'attends que le tableau se remplisse
Flo riant

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

bonjour Floriant,

quel valeur y a t'il en cellule A5000 ?

isabelle

Bonsoir
Pour imprimer uniquement les zones saisies d'un tableau, j'utilise
cette procédure.
Mais, la dernière ligne ne s'imprime pas.
De ce fait, si vous avez une proc de même type qui fonctionne ;-)
Je suis preneur.
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:DO5000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True

isabelle

14/07/2005 à 17:41

sur ton filtre automatique tu as mit pour la colonne A
le critère "<>" différent de Vide
il n'y a qu'à mettre n'importe quel valeur sur cette ligne en colonne A pour quel puisse être visible.
non ?

isabelle

RE, des données
Merci
Flo riant

"isabelle" a écrit dans le message de news:
%

bonjour Floriant,

que contient cette ligne,

des données ou une ligne de totaux ?

isabelle

Ok merci Isabelle
As-tu une proposition afin de faire apparaître cette ligne ?
Flo riant

"isabelle" a écrit dans le message de news:
uitdRI%

donc s'il n'y a rien en cellule A5000 c'est normal que cette ligne ne
soit pas reprise par le filtre et du coup non imprimer.

isabelle

Bonsoir Isabelle
Rien pour l'instant à part la bordure !
J'attends que le tableau se remplisse
Flo riant

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

bonjour Floriant,

quel valeur y a t'il en cellule A5000 ?

isabelle

Bonsoir
Pour imprimer uniquement les zones saisies d'un tableau, j'utilise
cette procédure.
Mais, la dernière ligne ne s'imprime pas.
De ce fait, si vous avez une proc de même type qui fonctionne ;-)
Je suis preneur.
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:DO5000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True

Florian

14/07/2005 à 17:57

En fait c'est bizarre des fois la dernière ligne s'imprime, d'autre fois
non.
je vais plutôt essayer de créer une zone afin d'imprimer que celle-ci
un truc que je viens de te piquer ;-)

Plg = Sheets("Feuil1").Range("A1:E" &
Sheets("Feuil1").Range("E65536").End(xlUp).Row)
Plg.select
Puis une macro imprimer la selection
Merci pour ton aide
Flo riant

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

sur ton filtre automatique tu as mit pour la colonne A
le critère "<>" différent de Vide
il n'y a qu'à mettre n'importe quel valeur sur cette ligne en colonne A
pour quel puisse être visible.
non ?

isabelle

RE, des données
Merci
Flo riant

"isabelle" a écrit dans le message de news:
%

bonjour Floriant,

que contient cette ligne,

des données ou une ligne de totaux ?

isabelle

Ok merci Isabelle
As-tu une proposition afin de faire apparaître cette ligne ?
Flo riant

"isabelle" a écrit dans le message de news:
uitdRI%

donc s'il n'y a rien en cellule A5000 c'est normal que cette ligne ne
soit pas reprise par le filtre et du coup non imprimer.

isabelle

Bonsoir Isabelle
Rien pour l'instant à part la bordure !
J'attends que le tableau se remplisse
Flo riant

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

bonjour Floriant,

quel valeur y a t'il en cellule A5000 ?

isabelle

Bonsoir
Pour imprimer uniquement les zones saisies d'un tableau, j'utilise
cette procédure.
Mais, la dernière ligne ne s'imprime pas.
De ce fait, si vous avez une proc de même type qui fonctionne ;-)
Je suis preneur.
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:DO5000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True

En fait c'est bizarre des fois la dernière ligne s'imprime, d'autre fois
non.
je vais plutôt essayer de créer une zone afin d'imprimer que celle-ci
un truc que je viens de te piquer ;-)

Plg = Sheets("Feuil1").Range("A1:E" &
Sheets("Feuil1").Range("E65536").End(xlUp).Row)
Plg.select
Puis une macro imprimer la selection
Merci pour ton aide
Flo riant

"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
Ov4SOqIiFHA.1048@tk2msftngp13.phx.gbl...

sur ton filtre automatique tu as mit pour la colonne A
le critère "<>" différent de Vide
il n'y a qu'à mettre n'importe quel valeur sur cette ligne en colonne A
pour quel puisse être visible.
non ?

isabelle

RE, des données
Merci
Flo riant

"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
%23tpdgTIiFHA.3568@tk2msftngp13.phx.gbl...

bonjour Floriant,

que contient cette ligne,

des données ou une ligne de totaux ?

isabelle

Ok merci Isabelle
As-tu une proposition afin de faire apparaître cette ligne ?
Flo riant

"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uitdRI%23hFHA.1412@TK2MSFTNGP09.phx.gbl...

donc s'il n'y a rien en cellule A5000 c'est normal que cette ligne ne
soit pas reprise par le filtre et du coup non imprimer.

isabelle

Bonsoir Isabelle
Rien pour l'instant à part la bordure !
J'attends que le tableau se remplisse
Flo riant

"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
OBUXsu9hFHA.2644@TK2MSFTNGP09.phx.gbl...

bonjour Floriant,

quel valeur y a t'il en cellule A5000 ?

isabelle

Bonsoir
Pour imprimer uniquement les zones saisies d'un tableau, j'utilise
cette procédure.
Mais, la dernière ligne ne s'imprime pas.
De ce fait, si vous avez une proc de même type qui fonctionne ;-)
Je suis preneur.
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:DO5000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True

Imprimer que les zones saisies

8 réponses

Veuillez sélectionner un problème