impression d'onglets sous condition

gilbert_RGI

XLDnaute Barbatruc

• 5 Mai 2008

• #2

Re : impression d'onglets sous condition

Bonjour

essayer ceci

Code:

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

 

Vote positif 0 Vote négatif

S

stormless

Guest

• 5 Mai 2008

• #3

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 😕

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 5 Mai 2008

• #4

Re : impression d'onglets sous condition

stormless à dit:

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 😕

Cliquez pour agrandir...

a la place de printout essayez

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

Salutations

RGI

 

Vote positif 0 Vote négatif

S

stormless

Guest

• 6 Mai 2008

• #5

Re : impression d'onglets sous condition

Bonjour,

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

Merci de ton aide

 

Vote positif 0 Vote négatif