Imprimer les articles a commander

[cduw]

Bonsoir a tous
après avoir lance mon bouton de recherche sur excel puis sur liste complète j aimerai savoir s'il etait
possible d'imprimer tout les articles a commander seulement et la liste complète des articles
ci joint le dossier

 

[Compte Supprimé 979]

Re : Imprimer les articles a commander

Bonsoir cduw

Si j'ai bien compris, dans le code du bouton "Print" tu mets

Private Sub CommandButton6_Click()  If MsgBox("Imprimer juste les articles à commander ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
    Columns("A:F").EntireColumn.Hidden = False
    Range("A1:F1").AutoFilter Field:=6, Criteria1:="commander"
    ActiveSheet.PrintOut
  Else
    Columns("A:F").EntireColumn.Hidden = False
    Range("A1:F1").AutoFilter
    ActiveSheet.PrintOut
  End If
End Sub

A+