impression conditionnelle VBA

Question

Bonjour,

Si quelqu'un peut m'aider, ça fait 2 jours que j'essaie de trouver sur internet une réponse mais je ne trouve pas.
Dans un classeur excel j'ai 2 feuilles, 1 de 2 pages (1ère page de 6 colonnes et 2ème page de 8 colonnes) et une de 29 pages (toutes les pages ont 5 colonnes).
La mise en forme est faite avec sauts de pages.
Je souhaite imprimer le classeur entier que si "OUI" apparaît sur la PAGE et ce grâce à une formule SI.
"OUI" est toujours placé sur la ligne 1.
Donc dés que "OUI" apparaît imprimer mise en page.

Merci pour votre aide

Jojo

Frenchie83 · Answer

Bonjour
1)"OUI" est toujours placé sur la ligne 1: OUI, Mais dans quelle cellule se trouve la formule?
2) Quelle cellule vide peut-on utiliser pour mémoriser une valeur qui interdira d'autres impressions, même si la formule renvoie "OUI"?
Cdlt

Frenchie83 · Answer

Pas sûr d'avoir tout compris, mais vous pouvez adapter ce qui suit en y apportant les modifications nécessaires. 
D'après la demande initiale, si "OUI" apparaît en A1 pour la feuille 2, F1 pour la feuille3,  etc.., on imprime le classeur entier, quelle que soit la feuille.

Si c'est cela, copiez ce code dans le module de la feuille sur laquelle se trouve la formule renvoyant "OUI".
Option Compare Text
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("A1").Value = "Oui" And Range("B1").Value <> "Ok" Then
        ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,3,,,TRUE,,FALSE)"
        Range("B1").Value = "Ok"
    End If
End Sub

Dès que "OUI" apparaît en "A1", l'impression du classeur entier démarre, puis la cellule "B1" affiche "OK", ce qui signifie qu'il n'y aura plus d'impression du classeur tant que la cellule "B1" contiendra "OK", même si "A1"="OUI".
Vous pouvez recopier ce code dans d'autres feuilles en remplaçant "A1" par une autre cellule "F1", "K1" etc...
A tester

Impression conditionnelle VBA

2 réponses

Votre réponse

Discussions similaires

Newsletters