impression sur une meme feuille de lignes séparées

treza88

XLDnaute Occasionnel

• 26 Juin 2006

• #2

Bonjour Christine

Essaye ce code:

Code:

Sub BoucleFor()
   Dim Ligne As Byte, Col As Byte
Range('A1:J1').PrintOut Copies:=1
   For i = 50 To 60
      
         Range(Cells(i, 1), Cells(i, 10)).PrintOut Copies:=1
           
   Next
End Sub

A toi de la tester avec ta mise en page

en esperant que ça corresponde à ce que tu cherche

Message édité par: treza88, à: 26/06/2006 21:53

 

Vote positif 0 Vote négatif

treza88

XLDnaute Occasionnel

• 26 Juin 2006

• #3

re bonjour christine

excuse moi pour le code ci dessus mais j'ai du mal comprendre ta question je pense que c'est plutot ça que tu recherche:

Code:

Sub impression_ligne()

    
    Rows('2:49').EntireRow.Hidden = True
    Range('A1:j60').PrintOut Copies:=1
    Rows('1:50').EntireRow.Hidden = False
   
End Sub

celle ci imprime les 12 lignes sur une seul feuille alors que celle plus haut imprime les douzes lignes sur douze pages independante.

 

Vote positif 0 Vote négatif

C

christine

Guest

• 27 Juin 2006

• #4

Bonjour Treza88
ce code me convient mieux
Mais est il possible d'avoir un message qui me demande
quels 'rows' faire disparaitre et quels 'range' imprimés?

Sub impression_ligne()


Rows(':').EntireRow.Hidden = True
Range('A1:j60').PrintOut Copies:=1
Rows('1:50').EntireRow.Hidden = False

End Sub

Merci
Christine

 

Vote positif 0 Vote négatif

treza88

XLDnaute Occasionnel

• 27 Juin 2006

• #5

bonjour Christine

deux solutions:

Soit tu crée une userform dans VBA avec des textbox et un bouton Ok pour valider.

Soit tu renseigne des cellule sur ta feuille qui correspond aux lignes que tu veux ou pas imprimer.

Mais la userform je ne peux pas la creer à ta place.

Dit moi en plus sur ce que tu veux faire et si je peux je t'aiderai.

 

Vote positif 0 Vote négatif

C

christine

Guest

• 29 Juin 2006

• #6

Bonjour Treza88
créer une userform dans VBA avec des textbox et un bouton Ok pour valider, Je crois que c'est ce qu'il faudrait, mais c'est qqchose que je ne sais absolument pas faire
Peux tu me donner un exemple?
Merci
christine

 

Vote positif 0 Vote négatif