si les conditions sont vrai imprimer les pages correspondante

[rudy]

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]

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]

Re : si les conditions sont vrai imprimer les pages correspondante

Bonsoir,

essaie avec ce 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]

Re : si les conditions sont vrai imprimer les pages correspondante

OK MERCI
je vais essayer tout sa
A+