Bonjour le forum,
j'ai besoin d'un coup de main pour résoudre un problème d'aperçu:
le code suivant me sert de ""publipostage""
avant d'imprimer mes feuilles de résulats je désire visualiser chaque page créée mais je n'y arrive pas; seule la première s'affiche et l'aperçu me signale page 1 sur 1 même si j'en imprime plusieurs différentes.
si qq1 c'est quoi faire
merci
Dim DerLig As Integer, L As Integer, Rep
DerLig = Sheets(Feuille).Range("k65536").End(xlUp).Row
Sheets("Poule 4").Activate
For L = 3 To DerLig
If Range("N" & L).Value <> "OUI" Then
Sheets("Poule 4").Range("B5").Value = Sheets(Feuille).Range("K" & L)
Sheets("Poule 4").Range("B6").Value = Sheets(Feuille).Range("L" & L)
Sheets("Poule 4").Range("B7").Value = Sheets(Feuille).Range("M" & L)
Sheets("Poule 4").Range("B8").Value = Sheets(Feuille).Range("N" & L)
Sheets("Poule 4").Range("B15").Value = Sheets(Feuille).Range("O" & L)
Sheets("Poule 4").Range("B16").Value = Sheets(Feuille).Range("P" & L)
Sheets("Poule 4").Range("B17").Value = Sheets(Feuille).Range("Q" & L)
Sheets("Poule 4").Range("B18").Value = Sheets(Feuille).Range("R" & L)
' Impression des poules
Me.Hide
ActiveSheet.PrintOut preview:=True
Me.Show
End If
Next
j'ai besoin d'un coup de main pour résoudre un problème d'aperçu:
le code suivant me sert de ""publipostage""
avant d'imprimer mes feuilles de résulats je désire visualiser chaque page créée mais je n'y arrive pas; seule la première s'affiche et l'aperçu me signale page 1 sur 1 même si j'en imprime plusieurs différentes.
si qq1 c'est quoi faire
merci
Dim DerLig As Integer, L As Integer, Rep
DerLig = Sheets(Feuille).Range("k65536").End(xlUp).Row
Sheets("Poule 4").Activate
For L = 3 To DerLig
If Range("N" & L).Value <> "OUI" Then
Sheets("Poule 4").Range("B5").Value = Sheets(Feuille).Range("K" & L)
Sheets("Poule 4").Range("B6").Value = Sheets(Feuille).Range("L" & L)
Sheets("Poule 4").Range("B7").Value = Sheets(Feuille).Range("M" & L)
Sheets("Poule 4").Range("B8").Value = Sheets(Feuille).Range("N" & L)
Sheets("Poule 4").Range("B15").Value = Sheets(Feuille).Range("O" & L)
Sheets("Poule 4").Range("B16").Value = Sheets(Feuille).Range("P" & L)
Sheets("Poule 4").Range("B17").Value = Sheets(Feuille).Range("Q" & L)
Sheets("Poule 4").Range("B18").Value = Sheets(Feuille).Range("R" & L)
' Impression des poules
Me.Hide
ActiveSheet.PrintOut preview:=True
Me.Show
End If
Next