Bonjour
J'ai modifier une macro qui vient mettre des sauts de page selon des critères (Colonne B et C):
i = 4
While Range("C" + CStr(i)).Value <> ""
Range("B" + CStr(i)).Select
If Range("B" + CStr(i)).Value <> Range("B" + CStr(i - 1)).Value Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Else
Range("C" + CStr(i)).Select
If Range("C" + CStr(i)).Value <> Range("C" + CStr(i - 1)).Value Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
End If
i = i + 1
Wend
End Sub
Cela fonctionne très bien mais quand je filtre sur un autre critère (colonne J), des pages blanches apparaissent
(par exemple si je filtre sur date >= 11.05.2012)
Y a t'il une parade à ce phénomène ?
D'avance merci
J'ai modifier une macro qui vient mettre des sauts de page selon des critères (Colonne B et C):
i = 4
While Range("C" + CStr(i)).Value <> ""
Range("B" + CStr(i)).Select
If Range("B" + CStr(i)).Value <> Range("B" + CStr(i - 1)).Value Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Else
Range("C" + CStr(i)).Select
If Range("C" + CStr(i)).Value <> Range("C" + CStr(i - 1)).Value Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
End If
i = i + 1
Wend
End Sub
Cela fonctionne très bien mais quand je filtre sur un autre critère (colonne J), des pages blanches apparaissent
(par exemple si je filtre sur date >= 11.05.2012)
Y a t'il une parade à ce phénomène ?
D'avance merci