Code macro à simplifier

[gourdin]

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

En pièce jointe un fichier explicatif

 

[Lolote83]

Re : Code macro à simplifier

Salut,
Essaye avec ce code

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

@+ Lolote83

 

[gourdin]

Re : Code macro à simplifier

Très bien
Merci
Bonne soirée