si les conditions sont vrai imprimer les pages correspondante

rudy · 16 Juillet 2008

bonjours à tous
dans la piéces joint j ai passer des cases à cocher et je cherche a imprimer les pages donc la condition et vrai
le nom des onglets se trouve a gauche de chaque case a cocher.

A+

blord · 16 Juillet 2008

Re : si les conditions sont vrai imprimer les pages correspondante

Bonjour,

Peut-être comme ceci...

Sub Print()
If Sheets("Feuil1").Range("E14").value = "VRAI" then Sheets("recap lundi").Printout
End Sub

Reprendre le code pour chaque cellule à tester en indiquant la bonne feuille à imprimer.

Blord

Cousinhub · 16 Juillet 2008

Re : si les conditions sont vrai imprimer les pages correspondante

Bonsoir,

essaie avec ce code :

Code:

Sub imprime()
For Each cel In Range("E14:E37")
    If cel Then Sheets(Cells(cel.Row, 1).Value).PrintOut
Next cel
End Sub

rudy · 16 Juillet 2008

Re : si les conditions sont vrai imprimer les pages correspondante

OK MERCI
je vais essayer tout sa
A+

si les conditions sont vrai imprimer les pages correspondante

rudy

XLDnaute Occasionnel

Pièces jointes

blord

XLDnaute Impliqué

Cousinhub

XLDnaute Barbatruc

rudy

XLDnaute Occasionnel

Discussions similaires

si les conditions sont vrai imprimer les pages correspondante

rudy

XLDnaute Occasionnel

Pièces jointes

blord

XLDnaute Impliqué

Cousinhub

XLDnaute Barbatruc

rudy

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency