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

[christine]

bonjour
J'ai un tableau de 10 colonnes et 100 lignes et je voudrais imprimer sur une meme feuille, la ligne a1:j1 et les lignes allant de A50:j50 à a60:j60
merci de votre aide

 

[treza88]

Bonjour Christine

Essaye ce 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

 

[treza88]

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:

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.

 

[christine]

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

 

[treza88]

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.

 

[christine]

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