J'ai un sérieux problème que je n'arrive pas à resoudre pour selectionner et
imprimer une plage de cellule ( en VBA ). J'aurais donc besoin d'un petit
coup de pouce car j'ai essayé pas de possibilité et ça ne marche pas.
J'ai une cellule que j'appel "REPERE" qui est écrit au début d'une période.
Au fur est à mesure de l'avancement du projet des lignes viennent s'ajouter
au dessus du mot repère. Ainsi au début du projet j'ai le mot repère en K5,
en fin de projet le mot "REPERE" est en K29 par exemple sachant qu'il n'est
jamais à la même place. ( un coup en K29, l'autre en K32 c'est selon
l'avancement du projet )
Le problème c'est qu'un fin de mois ( jamais vraiment le même jour ) il faut
que j'imprime un état de toutes les feuilles ( mais juste la selection qui
va de REPERE à A1 ). Pour le moment je le fait en manuel mais c'est assez
minant et ça me demande du temps car j'ai une quinzaine de projets à éditer.
Il faut donc une formule qui trouve le mot REPERE selectionne ensuite la
cellule qui va du mot REPERE jusqu'à la cellule A1 et que la selection soit
imprimer 2 fois. en gros selection de k29 à A1 et imprime 2 fois.
Je ne sais pas si c'est faisable mais ça m'aiderai beaucoup si quelqu'un
avait une solution VBA.
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, Ceci pourrait servir de base :
Sub selec_pour_imp() Range(Range("a1"), Range("REPERE")).Select 'partie impression à produire avec l'enregistreur ' et à épurer ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .Orientation = xlPortrait .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed End With End Sub
-- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre facilement le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"infonie" a écrit dans le message de news:cgl0d1$jle$
Bonjour à tous,
J'ai un sérieux problème que je n'arrive pas à resoudre pour selectionner et imprimer une plage de cellule ( en VBA ). J'aurais donc besoin d'un petit coup de pouce car j'ai essayé pas de possibilité et ça ne marche pas.
J'ai une cellule que j'appel "REPERE" qui est écrit au début d'une période. Au fur est à mesure de l'avancement du projet des lignes viennent s'ajouter au dessus du mot repère. Ainsi au début du projet j'ai le mot repère en K5, en fin de projet le mot "REPERE" est en K29 par exemple sachant qu'il n'est jamais à la même place. ( un coup en K29, l'autre en K32 c'est selon l'avancement du projet )
Le problème c'est qu'un fin de mois ( jamais vraiment le même jour ) il faut que j'imprime un état de toutes les feuilles ( mais juste la selection qui va de REPERE à A1 ). Pour le moment je le fait en manuel mais c'est assez minant et ça me demande du temps car j'ai une quinzaine de projets à éditer. Il faut donc une formule qui trouve le mot REPERE selectionne ensuite la cellule qui va du mot REPERE jusqu'à la cellule A1 et que la selection soit imprimer 2 fois. en gros selection de k29 à A1 et imprime 2 fois.
Je ne sais pas si c'est faisable mais ça m'aiderai beaucoup si quelqu'un avait une solution VBA.
Merci d'avance
Bonsoir,
Ceci pourrait servir de base :
Sub selec_pour_imp()
Range(Range("a1"), Range("REPERE")).Select
'partie impression à produire avec l'enregistreur
' et à épurer
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"infonie" <nospam@elvis.fr> a écrit dans le message de news:cgl0d1$jle$1@news.tiscali.fr...
Bonjour à tous,
J'ai un sérieux problème que je n'arrive pas à resoudre pour selectionner et
imprimer une plage de cellule ( en VBA ). J'aurais donc besoin d'un petit
coup de pouce car j'ai essayé pas de possibilité et ça ne marche pas.
J'ai une cellule que j'appel "REPERE" qui est écrit au début d'une période.
Au fur est à mesure de l'avancement du projet des lignes viennent s'ajouter
au dessus du mot repère. Ainsi au début du projet j'ai le mot repère en K5,
en fin de projet le mot "REPERE" est en K29 par exemple sachant qu'il n'est
jamais à la même place. ( un coup en K29, l'autre en K32 c'est selon
l'avancement du projet )
Le problème c'est qu'un fin de mois ( jamais vraiment le même jour ) il faut
que j'imprime un état de toutes les feuilles ( mais juste la selection qui
va de REPERE à A1 ). Pour le moment je le fait en manuel mais c'est assez
minant et ça me demande du temps car j'ai une quinzaine de projets à éditer.
Il faut donc une formule qui trouve le mot REPERE selectionne ensuite la
cellule qui va du mot REPERE jusqu'à la cellule A1 et que la selection soit
imprimer 2 fois. en gros selection de k29 à A1 et imprime 2 fois.
Je ne sais pas si c'est faisable mais ça m'aiderai beaucoup si quelqu'un
avait une solution VBA.
Sub selec_pour_imp() Range(Range("a1"), Range("REPERE")).Select 'partie impression à produire avec l'enregistreur ' et à épurer ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .Orientation = xlPortrait .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed End With End Sub
-- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre facilement le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"infonie" a écrit dans le message de news:cgl0d1$jle$
Bonjour à tous,
J'ai un sérieux problème que je n'arrive pas à resoudre pour selectionner et imprimer une plage de cellule ( en VBA ). J'aurais donc besoin d'un petit coup de pouce car j'ai essayé pas de possibilité et ça ne marche pas.
J'ai une cellule que j'appel "REPERE" qui est écrit au début d'une période. Au fur est à mesure de l'avancement du projet des lignes viennent s'ajouter au dessus du mot repère. Ainsi au début du projet j'ai le mot repère en K5, en fin de projet le mot "REPERE" est en K29 par exemple sachant qu'il n'est jamais à la même place. ( un coup en K29, l'autre en K32 c'est selon l'avancement du projet )
Le problème c'est qu'un fin de mois ( jamais vraiment le même jour ) il faut que j'imprime un état de toutes les feuilles ( mais juste la selection qui va de REPERE à A1 ). Pour le moment je le fait en manuel mais c'est assez minant et ça me demande du temps car j'ai une quinzaine de projets à éditer. Il faut donc une formule qui trouve le mot REPERE selectionne ensuite la cellule qui va du mot REPERE jusqu'à la cellule A1 et que la selection soit imprimer 2 fois. en gros selection de k29 à A1 et imprime 2 fois.
Je ne sais pas si c'est faisable mais ça m'aiderai beaucoup si quelqu'un avait une solution VBA.
