OVH Cloud OVH Cloud

tableau et impression

5 réponses
Avatar
PHIL
Bonjour,

J'ai un tableau de 10 colonnes et j'ai seulement les 10 premieres lignes
remplit.

je voudrai intégrer un bouton de commande imprimer, et quand j'appuie dessus
m'imprimer seulement les 10 premieres lignes ou il y a des valeurs et ne pas
m'imprimer les lignes vides.

merci

5 réponses

Avatar
Didier
Une piste
avec l'enregistreur de macros
tu sélectionnes ton tableau, tu filtres les "non vides" de la colonne A par
ex,
puis derrière tu appelles la macro impression
Didier

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

Bonjour,

J'ai un tableau de 10 colonnes et j'ai seulement les 10 premieres lignes
remplit.

je voudrai intégrer un bouton de commande imprimer, et quand j'appuie
dessus
m'imprimer seulement les 10 premieres lignes ou il y a des valeurs et ne
pas
m'imprimer les lignes vides.

merci


Avatar
PHIL
je comprend pas, comment tu filtre les non vides de la colonne A?


Une piste
avec l'enregistreur de macros
tu sélectionnes ton tableau, tu filtres les "non vides" de la colonne A par
ex,
puis derrière tu appelles la macro impression
Didier

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

Bonjour,

J'ai un tableau de 10 colonnes et j'ai seulement les 10 premieres lignes
remplit.

je voudrai intégrer un bouton de commande imprimer, et quand j'appuie
dessus
m'imprimer seulement les 10 premieres lignes ou il y a des valeurs et ne
pas
m'imprimer les lignes vides.

merci







Avatar
Didier
Un exemple vraiment basique ;-)

Sub Tri_impression()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:L15000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
Range("A3").Select 'afin d'enlever la sélection
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True
End Sub

Didier

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

je comprend pas, comment tu filtre les non vides de la colonne A?


Une piste
avec l'enregistreur de macros
tu sélectionnes ton tableau, tu filtres les "non vides" de la colonne A
par
ex,
puis derrière tu appelles la macro impression
Didier

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

Bonjour,

J'ai un tableau de 10 colonnes et j'ai seulement les 10 premieres
lignes
remplit.

je voudrai intégrer un bouton de commande imprimer, et quand j'appuie
dessus
m'imprimer seulement les 10 premieres lignes ou il y a des valeurs et
ne
pas
m'imprimer les lignes vides.

merci









Avatar
PHIL
j'ai essayé cette macro:

Application.ScreenUpdating = False
'ActiveSheet.Unprotect Password:="toto"
Range("C1:BD250").Select
Selection.AutoFilter Field:=1, Criteria1:="#NOMBRE!"
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
Range("C1").Select 'afin d'enlever la sélection
'ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True

elle s'execute mais me lance rien du tout ni la fenetre avant impression ni
l'impression?????????

merci


Un exemple vraiment basique ;-)

Sub Tri_impression()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:L15000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
Range("A3").Select 'afin d'enlever la sélection
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True
End Sub

Didier

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

je comprend pas, comment tu filtre les non vides de la colonne A?


Une piste
avec l'enregistreur de macros
tu sélectionnes ton tableau, tu filtres les "non vides" de la colonne A
par
ex,
puis derrière tu appelles la macro impression
Didier

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

Bonjour,

J'ai un tableau de 10 colonnes et j'ai seulement les 10 premieres
lignes
remplit.

je voudrai intégrer un bouton de commande imprimer, et quand j'appuie
dessus
m'imprimer seulement les 10 premieres lignes ou il y a des valeurs et
ne
pas
m'imprimer les lignes vides.

merci














Avatar
Didier
Selection.AutoFilter Field:=1, Criteria1:="#NOMBRE!"
Le critère m'enfin ???
Voilà la bonne syntaxe :
Selection.AutoFilter Field:=1, Criteria1:="<>"
Didier

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

j'ai essayé cette macro:

Application.ScreenUpdating = False
'ActiveSheet.Unprotect Password:="toto"
Range("C1:BD250").Select
Selection.AutoFilter Field:=1, Criteria1:="#NOMBRE!"
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
Range("C1").Select 'afin d'enlever la sélection
'ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True

elle s'execute mais me lance rien du tout ni la fenetre avant impression
ni
l'impression?????????

merci


Un exemple vraiment basique ;-)

Sub Tri_impression()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="toto"
Range("A3:L15000").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.AutoFilter
Range("A3").Select 'afin d'enlever la sélection
ActiveSheet.Protect Password:="toto"
Application.ScreenUpdating = True
End Sub

Didier

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

je comprend pas, comment tu filtre les non vides de la colonne A?


Une piste
avec l'enregistreur de macros
tu sélectionnes ton tableau, tu filtres les "non vides" de la colonne
A
par
ex,
puis derrière tu appelles la macro impression
Didier

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

Bonjour,

J'ai un tableau de 10 colonnes et j'ai seulement les 10 premieres
lignes
remplit.

je voudrai intégrer un bouton de commande imprimer, et quand
j'appuie
dessus
m'imprimer seulement les 10 premieres lignes ou il y a des valeurs
et
ne
pas
m'imprimer les lignes vides.

merci