macro selection copie et impression

[faudouy]

Bonjour à tous,
j'ai besoin de votre aide pour la réalisation d'une macro qui sélectionne dans une zone nommée ( nom de la zone : journal) jusqu'à la premiere ligne vide (non comprise), qui copie cette sélection sans une nouvelle feuille (nom de la feuille : cop_imprim), et qui imprime cette sélection.
Merci d'avance pour votre aide
Cordialement,

 

[Staple1600]

Re : macro selection copie et impression

Bonsoir


En s'aidant de l'aide VBA d' Excel

Sub Test_1()
Application.Goto [journal]
Set tbl = Selection
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
End Sub

 

[Staple1600]

Re : macro selection copie et impression

Re


Toujours en s'inspirant de l'aide VBA (bien qu'apèrs relecture de ton post ce ne soit pas la solution)

Dim tbl As Range
Set tbl = Range("journal")
ActiveSheet.PageSetup.PrintArea = tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Address
ActiveSheet.PrintPreview

 

[faudouy]

Re : macro selection copie et impression

Merci Stample, mais le code :
Sub Test_1()
Sub tttp()
Application.Goto [journal]
Set tbl = Selection
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
End Sub

en tant que nouvelle macro me renvoie un bug, n'étant pas du tout expert, je ne vois pas ou ça cloche. Ensuite, dans ton post d'après, tu décris la façon (d'après ce que je comprends) comment récupérer la plage sélectionnée pour l'imprimer. Mais comment faire qu'une seule macro ??
Merci encore pour la contribution...
Fred

 

[Staple1600]

Re : macro selection copie et impression

Re


Chez moi la macro de 21h20 fonctionne

Mais besoin de précision

qui sélectionne dans une zone nommée ( nom de la zone : journal) jusqu'à la premiere ligne vide (non comprise)

Tu sélectionnes un zone nommée contenant des cellules vides
c'est ca?

 

[faudouy]

Re : macro selection copie et impression

re,
oublions la zone nommée. Je sélectionne de la ligne 2 jusqu'à la premiere ligne vide (non comprise), je copie cette sélection dans une autre feuille et j'envoie à l'impression.
merci de ton aide
cdt
Fred

 

[faudouy]

Re : macro selection copie et impression

bonjour a tous,
re Stample,

Je ne comprends pas comment faire une seule macro avec les deux codes que tu m'as dejà posté ; peut etre pourrai je avoir des commentaires dans la macro, cela me permettrait de comprendre et d'éviter de vous reposer des questions dans le futur sur le même sujet.
Sinon, existe t il une bible en ligne sur le code VBA pour excel, avec un apprentissage progressif ??

cordialement
F. AUDOUY

 

[Staple1600]

Re : macro selection copie et impression

Re


Exemple: mon tableau commence en A2

Sub impression()
ActiveSheet.PageSetup.PrintArea = Range("A2").CurrentRegion.Address
ActiveSheet.PrintPreview 'aperçu avant impression
'ActiveSheet.PrintOut 'pour imprimer
End Sub

 

[faudouy]

Re : macro selection copie et impression

re Stample

c'est un journal de vente qui commence en A2 ; je ne peux donc pas savoir a quelle ligne il se termine ; donc je séléction de A2 jusqu'à la premiere ligne vide et je copie cela dans une feuille vierge et enfin j'imprime. Je fais cela pour simplifier l'usage de l'utilisateur final de mon application.
J'espère etre assez clair ...
Merci d'avance
F. AUDOUY

 

[Staple1600]

Re : macro selection copie et impression

Re




Tu as essayé le code de mon précédent message?


Essayes celui-là également

sub impression()
ActiveSheet.PageSetup.PrintArea = Range("A2:A" & [A65536].End(xlUp).Row).Address
ActiveSheet.PrintOut
end sub

 

[faudouy]

Re : macro selection copie et impression

merci Stample,

j'essaye ce soir et vous tiens informer, merci encore

F. AUDOUY

 

[faudouy]

Re : macro selection copie et impression

Merci Stample, les deux macros d'impression fonctionnent...

Comment ajouter dans celle ci le masquage de certaines colonnes, le nom de la feuille et du fichier dans le pied de page ?

Merci d'avance
F. AUDOUY