Bonjour,
Une macro réalise un aperçu avant impression à chaque fois qu'il y a une condition qui est remplie.
Je répète de nombreuses fois la même condition (une trentaine de fois)
Je cherche donc une solution pour éviter ce codage fastidieux
Merci
Sub Autre()
For F = 1 To 30 Step 2
xDeb = 3 * F
xFin = xDeb + 3
If Range("B" & xDeb) <> "" And Range("B" & xFin) <> "" Then
ActiveSheet.PageSetup.PrintArea = "B" & xDeb & ":B" & xFin
ActiveWindow.SelectedSheets.PrintPreview
End If
Next F
End Sub