impression d'onglets sous condition

[stormless]

Bonjour a tous

J'ai un probleme d'impression d'onglet suivant si la cellule A1 est vide ou avec une valeur, j'imprime 3 ou 4 onglets.
et bien ca m'imprime une page blanche et je ne comprends pas pourquoi
si quelqu'un peut eclairer ma lumiere

Sub test()
Dim cas1 As Variant
Dim cas2 As Variant

cas1 = Sheets(Array("1", "2", "3", "4")).Select
cas2 = Sheets(Array("1", "2", "3")).Select


If Sheets("1").Range("A1") > 0 Then
         cas1 = Selection.PrintOut
         Else: cas2 = Selection.PrintOut
End If


End Sub

 

[gilbert_RGI]

Re : impression d'onglets sous condition

Bonjour

essayer ceci

Sub test()
    Dim cas1 As Variant
    Dim cas2 As Variant

    cas1 = Array("1", "2", "3", "4")
    cas2 = Array("1", "2", "3")

    If Sheets("1").Range("A1") > 0 Then
        For i = 0 To 3
            Sheets(cas1(i)).Select
            Selection .PrintOut
        Next
    Else
        For i = 0 To 2
            Sheets(cas2(i)).Select
             Selection .PrintOut
        Next

    End If


End Sub

Cdlt

RGI

 

[stormless]

Re : impression d'onglets sous condition

bonsoir gilbert_RGI

merci de ton aide, mais j'ai le même résultat 3 ou 4 pages blanche.
bizarre j'ai deja utilisé "PrintOut " plusieurs fois et jamais de PB mais là je suis sec

 

[gilbert_RGI]

Re : impression d'onglets sous condition

bonsoir gilbert_RGI

merci de ton aide, mais j'ai le même résultat 3 ou 4 pages blanche.
bizarre j'ai deja utilisé "PrintOut " plusieurs fois et jamais de PB mais là je suis sec

a la place de printout essayez

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Salutations

RGI

 

[stormless]

Re : impression d'onglets sous condition

Bonjour,

Ok ça fonctionne, c'est bizarre quand meme? enfin

Merci de ton aide