Macro d'impression

Bonsoir tous le monde

je sollicite une autre fois vos aides pour creer svp une macro d'impression pour imprimer cette bulletin de note

merci d'avance pour l'aide

AKRAMI

Défini une zone d'impression puis utilise ceci:

Sheets("BULLETIN").PrintOut

Cela va imprimer ta zone d'impression sur de ton onglet bulletin

Bonsoir sebnormand

merci pour votre proposition.mais svp comment definir cette zone et où je vais l'ecrire.je suis tres tres debutant en excel vba.je veux imprimer cette bulletin comme elle est completement donc ( A1:N53 )

merci d'avance pour l'aide

akrami.

Je ne suis pas expert

Mais pour un programme que j'ai réalisé (pour moi)

J'ai tout simplement défini la zone d'impression dans excel (méthode classique)

Puis défini l'impression "Ajustez à une feuille"

Ensuite j'avais ma macro qui permettait de choisir via un menu déroulant le ou les onglets que la personne voulait imprimer.

Je mettais pas plus de code que sa.

Si tu veux tu peux toujours essayer d'activer le bouton "Enregistrer une macro" fais ta manip, et excel te la traduira en VBA.

Juste qu'Excel raajoute des lignes de codes pour rien , (il va définir les détails par défaut dans le code, alors qu'ils le sont en réel, d'ou le nombre de ligne).

Je ne peux t'aider plus, ou alors dis moi l'interet final de ta macro imprimer (But/Comment)

Merci sebnormand pour l'explication

Je veux bien comprendre simplement comment faire une macro d'impression ..

en fin de compte il parait que je vais ajuster ma BULLETIN puis ( Ctrl + P ) ..et c'est tout

akrami

bonsoir

essai d'ajouter la ligne printarea

.PrintArea = " A1:N53 "

Pascal

Bonjour grisan29

Merci pour l'aide

Svp comment sera l'etat final de cette macro..car chaqu'un m'a dit un petit truc .. et j'ai pas pu fais l'etat final de cette macro ..je suis debuant ..merci d'avance pour l'aide

AKRAMI

bonsoir akrami

est ce que ceci te convient avec un peu de commentaire

'   Pour trouver la dernière ligne du tableau

    Range("C13").Select
    Selection.End(xlDown).Select

 '  Pour déterminer la zone d'impression

    LastRow = Range("C" & Rows.Count).End(xlUp).Row

    ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & LastRow

 '  Pour forcer l'orientation paysage

     With ActiveSheet.PageSetup
        .Orientation = xlLandscape
    End With

a partir de la cellule C13 trouve la dernière ligne a inclure dans l'impression

si cela te correspond ou tu pioche ce qui t'interresse

Pascal