Discussion :

[gilles42260]

Bonjour, a tous, je tatonne un peu en VBA et je suis bloqué :

Je souhaiterais qu'Excel ignore mes pages 2, 3 et 4 quand elles sont vides lors de l'impression, dans lesquels des informations se remplissent grâce à un userform;

Je n'arrive pas à trouver un code ou une option pour cela.

Merci d'avance pour l'aide.

Gilles

PS : fichier jointDECOUPE BOIS1.xlsm

[anasecu]

Bonsoir,

Lorsque tu saisis tes informations, il te faut définir la zone d'impression à envoyer à l'imprimante.

[gilles42260]

Je voudrais automatiser cette manip est-ce possible?

[Transitoire]

Bonjour,
Il faut que tu sélectionne la zone à copier et ensuite, tu lance la macro ci-dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Imprim()
    Dim NBCopies
            NBCopies = InputBox("Choisir un nombre?", "Nombre de Copies", "2")
            Selection.PrintOut Copies:=NBCopies
End Sub

Puis tu passe à une autre page. soit manuellement soit par VBA
Cordialement

[gilles42260]

En fait sur l'onglet "saisie boism²" , si les cellules "A1","E1","I1" ou "M1" sont vide, alors je n'imprime pas, si par contre La cellule "A1" contient quelque chose alors je n'imprime que la page 1, si la cellule "E1" contient quelque chose alors j'imprime la page 1 et 2, etc ....

Je sait pas si je m'exprime correctement !

merci d'avance et merci au réposes déjà postées !

[gilles42260]

Solution trouvée avec une fonction si et çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If [d1] = 1 Then [A1:d40].PrintOut
If [h1] = 1 Then [e1:h40].PrintOut
If [l1] = 1 Then [i1:l40].PrintOut
If [p1] = 1 Then [m1:p40].PrintOut

Merci bonne journée a tous !