Marco excel avec condition

[fmoore]

Bonjour,
J'ai créé un bouton avec la macro suivante :
Sub Imp_rapport()
Sheets(Array("AL facturé", "DB facturé", "RL facturé", "EC facturé", "AL débuté", "DB débuté", "EC débuté", "RL débuté")).PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Mais je voudrais que la macro s'exécute seulement si mes cellules : Facturé!Y1 et Débuté!Y1 =0

 

[Robert]

Re : Marco excel avec condition

Bonsoir Fmoore, bonsoir le forum,

Peut-être comme ça :

Sub Imp_rapport()
If Sheets("Facturé").Range("Y1") = 0 And Sheets("Débuté").Range("Y1") = 0 Then
     Sheets(Array("AL facturé", "DB facturé", "RL facturé", "EC facturé", "AL débuté", "DB débuté", "EC débuté", "RL débuté")).PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
End Sub

 

[DoubleZero]

Re : Marco excel avec condition

Bonjour, fmoore, Robert , le Forum,

Ou comme ça (à adapter...) :

Sub Imprimer_si()
If Sheets("a").Range("a1").Value = "toto" And Sheets("b").Range("a1") = "titi" Then
Sheets(Array("a", "b", "c", "d")).PrintPreview ' PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Else
MsgBox "Les conditions ne sont pas remplies !"
End If
End Sub

A bientôt

 

[fmoore]

Re : Marco excel avec condition

Merci beaucoup la commande fonctionne très bien mais il est tu possible d'ajouter un message si j'amais sa fonctionne pas exemple : Nombres de lignes ne balance pas.

 

[fmoore]

Re : Marco excel avec condition

Parfait je n'avais pas vu ton 2e message merci beaucoup