Discussion :

[aldebahran]

Bonjour

Je suis nouveau et je ne connais pas grand chose en vba donc HELP...

J'aimerais imprimer toutes les feuilles de mon classeur de la manière suivante :
pour les 8 premières si la cellulle B5 contient quelque chose, imprimer, sinon rien.
pour les 4 dernières imprimer.

Pour le moment ma macro ressemble à ça :

Code :

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

1
2
3
Sub Bouton1_QuandClic()
ActiveWorkbook.PrintOut
End Sub

Donc ça imprime tout et le bouton fonctionne... (c'est déjà un petit exploi pour moi...

Comment faire pour ajouter mes conditions ?

Merci

[ThierryAIM]

ca devrait ressembler à un truc comme ça :

Code :

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

1
2
3
4
5
6
    For i = 1 To 8
        If Sheets(i).Range("B5").Value <> "" Then Sheets(i).PrintOut
    Next
    For i = 9 To Sheets.Count
        Sheets(i).PrintOut
    Next

[aldebahran]

ça marche nickel !!!
merci beaucoup je vais devenir un "excel hero" dans ma boîte mais faut pas leur dire que c'est 5 lignes...