Saut de ligne et décalage

[sbeprod]

Bonjour,

J'aurai besoin de votre aide pour solutionner le problème suivant.
J'ai un tableau de la forme suivante:

Code art!Couleur!Quantité
-------------------------
art1 !Coul1 !100
Coul2 !200
art2 !Coul1 !20
art3 !Coul4 !40

J'aurai voulu par une macro en vba faire les deux choses suivantes:
1/sauter une ligne avant chaque changement de code article
2/lors de l'impression, faire en sorte que les sauts de page ne soient jamais intercalés dans les lignes correspondants à un même code art.

Merci d'avance de me mettre sur la piste !

 

[sbeprod]

Re : Saut de ligne et décalage

Je modifie un peu ma demande:
Sur le tableau joint j'aurai aimé pouvoir sauter automatiquement une ligne à chaque fois que le code produit dans la première colonne change, afin de créer visiblement des groupe par code produit.

Pourriez-vous m'aider à faire cela avec une macro.

Merci d'avance.

 

[BOISGONTIER]

Re : Saut de ligne et décalage

Bonsoir,

Voir PJ

MFC: =GAUCHE($A2;4)<>GAUCHE($A3;4)

Sub SautPageGroupe()
   ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
   ActiveSheet.ResetAllPageBreaks ' raz
   For i = 2 To [A65000].End(xlUp).Row
     If Left(Cells(i + 1, 1), 4) <> Left(Cells(i, 1), 4) Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 1, 1)
     End If
   Next
   ActiveSheet.PrintPreview
   'ActiveSheet.ResetAllPageBreaks ' raz
End Sub

JB

 

[sbeprod]

Re : Saut de ligne et décalage

Merci pour cette aide. Comment puis-je faire pour sauter une ligne à chaque fois que le code produit change !

Merci d'avance.

 

[BOISGONTIER]

Re : Saut de ligne et décalage

Sub InsereLigne()
   For i = [A65000].End(xlUp).Row To 3 Step -1
     If Left(Cells(i - 1, 1), 4) <> Left(Cells(i, 1), 4) Then
        Rows(i).Insert
     End If
   Next
End Sub

Pour insérer des sauts de page sans qu'un groupe soit coupé en 2:

http://boisgontierjacques.free.fr/pages_site/editions.htm#SautPageGroupe

JB

 

[sbeprod]

Re : Saut de ligne et décalage

Merci beaucoup c'est tout à fait ce qu'il me faut pour insérer des lignes.
En revanche, concernant les sauts de lignes, je voulais en fait imprimer plusieurs "groupes d'articles" par feuille (ie remplir au maximum la feuille A4) mais en faisant en sorte de ne jamais avoir de saut de page au milieu d'un même groupe d'article.
En couplant la macro de saut de ligne on pourrait faire en sorte qu'un saut de page soit toujours réalisé sur une ligne vide mais tout en imprimant un maximum de ligne du tableau sur une page.

J'espère être assez clair.

 

[BOISGONTIER]

Re : Saut de ligne et décalage

Bonjour

Sub SautPage2()
  ActiveSheet.ResetAllPageBreaks ' raz
 [B] h = 20 ' hauteur de page à adapter[/B]
  [a2].Select
  Do While ActiveCell.Row < [A65000].End(xlUp).Row
    ActiveCell.Offset(h, 0).Select
    tém = True
    d = -1
    Do While tém
      If Left(ActiveCell.Offset(d, 0), 4) <> Left(ActiveCell, 4) Then
         tém = False
      Else
         d = d - 1
      End If
   Loop
   If (-d) < h Then ActiveCell.Offset(d + 1, 0).Select
   ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
   Loop
   [a2].Select
End Sub

JB