macro impression conditionnelle

[darib52]

bonsoir à tous,
je soumets à votre sagacité mon pb. je veux créer un bouton avec macro pour imprimer sous condition.
j'ai 5 feuilles, 1,2,3,4,5.
je souhaite que la feuille 1 s'imprime en 2 exemplaires si la cellule B20 ="x" (de la feuille1, la feuille 2 s'imprime en 2 exemplaires si la cellule B22="x" (de la feuille 2),...., la feuille 5 s'imprime en 1 exemplaire sans condition.

merci de vos avis toujours éclairés.
amitiés à tous.

(reconnexion seulement demain.)

 

[Kobaya]

Re : macro impression conditionnelle

salut darib52,

je te propose cette solution, qui permettrait de s'adapter à n'importe quelles condition de combinaisons.
j'espère que j'ai bien analyser ton problème...

Sub Choix()
    Call Imprime(2, Sheets("1").Range("B20"))
    Call Imprime(2, Sheets("2").Range("B22"))
    Call Imprime(1)
End Sub
Private Sub Imprime(nbExemplaires As Integer, Optional Test As Range)
    If Not IsMissing(Test) Then
        ActiveWindow.SelectedSheets.PrintOut Copies:=nbExemplaires, Collate:=True
    ElseIf Test.Value = "x" Then
        ActiveWindow.SelectedSheets.PrintOut Copies:=nbExemplaires, Collate:=True
    End If
End Sub

 

[darib52]

Re : macro impression conditionnelle

merci de ta réponse.
je teste .
amitiés