impression contenu cellule sans coller dans un document texte

[treza88]

Bonjour à tous,

je cherche a savoir si il est possible de créer un code vba pour imprimer le contenu d'une ou plusieurs cellules sans les coller dans un documents texte et de définir une mise en page automatique.

En espérant avoir été suffisamment clair

 

[Lone-wolf]

Bonsoir treza

With ActiveSheet.PageSetup
         .PrintArea = "$B$2:$D$4"       'plage à modifier
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.196850393700787)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
        .TopMargin = Application.InchesToPoints(0.551181102362205)
        .BottomMargin = Application.InchesToPoints(0.47244094488189)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait   'ou xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With

 

[treza88]

Merci Lone-wolf,

Mais ta formule m'imprime le contenu des cellules et en plus le bord des cellule.
Je ne voudrais que le texte des cellules et pouvoir gérer la taille du texte a imprimer.

Est ce possible?

 

[Lone-wolf]

Bonjour treza

Le code faut l'adapter à ton cas. Pour éffacer les bordures (à ajouter au début de la macro)

.Range("a1:x300").Borders.LineStyle = xlLineStyleNone

 

[treza88]

Bonsoir Lone-wolf

Je suis désolé mais le code ajouté me donne une erreur "propriété ou méthode non gérer par cet objet"

mais meme si ça fonctionnait cela va effacer mes encadrements et je vais donc perdre ma mise en page, car ce code efface les bordures, c'est a dire que je devrai les recréer par un code vba.

C'est bien cela ou je me trompe?

 

[treza88]

Je suis en train de me demander s'il est possible et comment faire pour imprimer le contenu d'une variable.

Est ce que cela ne serait pas plus simple de passer par une variable qui serait composer du contenu de mes cellules ?

Cela me permettrait d'assembler mon texte comme je le souhaite.

 

[Lone-wolf]

Bonsoir treza

Dis-moi, car je n'avais pas fait attention avant; tu es sur Excel 2002???

Met au moins excel 2010. Et le 2013, est gratuit chez microsoft.

 

[treza88]

Attend tu déconnes pas gratuit pour tout le monde !!!

 

[Lone-wolf]

Si tu as windows 10, oui et c'est garanti.

 

[treza88]

OK je vais creuser.
En fait je suis sur excel 2010 mais j'ai un pc au boulot ou j'ai excel 2002 dessus qui utilise le code, mais passer par une variable c'est faisable ?

 

[Lone-wolf]

Re

Je ne sais pas. Dans le fichier joint et pour test, double-clique sur la feuille et fait ton choix. Dans les listbox tu peux choisir 1 à plusieures colonnes ou lignes.

 

[treza88]

Merci encore Lone-wolf ton fichier est clair, mais le résultat n'est pas ce que j'attends ou alors ce qui tout a fait probable je ne sais pas l'exploiter pour arriver au résultat que j'attends.

Voici 2 images qui représente ce que j'attends.
La source excel: source.jpg

Et le résultat de l'impression: impression.jpg

En espérant que se sera plus clair

 

[Lone-wolf]

Re treza

Directement comme ça , ce n'est pas possible. Il faut faire par exemple dans une feuille vide

Range("b5").Copy Feuil3.Range("e2")
Range("e2").Copy Feuil3.Range("e3")

Et là, tu lance l'impression.

 

[treza88]

Je suis d'accord avec toi, mais j'ai a le faire une cinquantaine de fois pour chaque lancement d'impression(cinquante feuilles imprimer avec chacune une référence différente) et en plus il faut gérer la taille des lettres pour que ça remplisse un format A4

 

[Lone-wolf]

Et bein!

Là malheureusement, je ne peux pas t'aider; pas assez doué en VBA, désolé.