impression contenu cellule sans coller dans un document texte

treza88 · 5 Mars 2017

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 · 5 Mars 2017

Bonsoir treza

VB:

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 · 9 Mars 2017

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 · 9 Mars 2017

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 · 10 Mars 2017

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 · 10 Mars 2017

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 · 10 Mars 2017

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 · 10 Mars 2017

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

Lone-wolf · 10 Mars 2017

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

treza88 · 10 Mars 2017

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 · 10 Mars 2017

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 · 11 Mars 2017

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 · 11 Mars 2017

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 · 11 Mars 2017

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 · 11 Mars 2017

Et bein! 😵

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

impression contenu cellule sans coller dans un document texte

treza88

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

treza88

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

treza88

XLDnaute Occasionnel

treza88

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

treza88

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

treza88

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

treza88

XLDnaute Occasionnel

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

treza88

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Discussions similaires

impression contenu cellule sans coller dans un document texte

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency