Impression selon condition
Bonjour,
Je suis en train de travailler sur une logiciel de gestion de stock. J'ai trouvé des logiciel un peu partout avec des code et les ai mixés.
Maintenant, je souhaite imprimer à l'aide d'une macro, mes articles dont le stock mini est atteint
J'ai crée ma MFC si article < X alors cellule en rouge.
J'ai repris une macro qui est sencée selectionner les lignes dont une colonne est en rouge pour proposer une impression.
Mais cela ne fonctionne pas...
Voici la macro =>
Sub IMP_StockMini()
'
'
Application.ScreenUpdating = False
With Sheets("Inventaire")
.Visible = True
.Select
' Range("Tableau2[[#Headers],[Désignation Produits]:[Code]]").Select
Range("TableauStockMini").Select
Selection.AutoFilter
ActiveSheet.ListObjects("Inventaire").Range.AutoFilter Field:=10, Criteria1:= _
RGB(255, 0, 0), Operator:=xlFilterCellColor
If MsgBox("Voulez-vous imprimer la liste des produits dont le stock mini est atteint", vbYesNo, Impression) = vbYes Then
ActiveWindow.SelectedSheets.PrintPreview 'Aperçu avant impression
' ActiveWindow.SelectedSheets.PrintOut ' Imprimer
Else
Selection.AutoFilter
Exit Sub
End If
Selection.AutoFilter
End With
End Sub
Je vous joint le fichier avec. Etes vous en mesure de m'aider svp?
Cordailement
bonjour
je suis nul en VBA, mais voici une piste de travail :
faire ta sélection (filtre) sur une colonne que tu vas créer = SI(taquantité<X; "Oui";""")
où "" est 2 fois le guillemet du 3.
ceci évite de devoir travailler à partir des mises en formes. Les mises en forme, conditionnelles ou non, destinées à clarifier la lecture des humains, ne devraient jamais servir ni aux calculs ni aux traitements par la machine.
si par exemple ton rouge n'est pas tout à fait (255,0,0) comment tu sais, comment tu gères ?
Bonjour,
Je peut utiliser ma colonnes Total ?
Cela donnerai ça :
Range("TableauStockMini").Select
Selection.AutoFilter
ActiveSheet.ListObjects("TableauStockMini").Range.$J:$J;"Yes"
If MsgBox("Voulez-vous imprimer la liste des produits dont le stock mini est atteint", vbYesNo, Impression) = vbYes Then
ActiveWindow.SelectedSheets.PrintPreview 'Aperçu avant impression
' ActiveWindow.SelectedSheets.PrintOut ' Imprimer
Else
Selection.AutoFilter
Exit Sub
End If
Selection.AutoFilter
Pour tout dire, j'ai beau essayer de m'y mettre le VBA reste du chinoi pour moi ^^
Cordialement
re
pourquoi te compliquer la vie avec un message box dans la macro ?
tu crées un bouton "imprimer les stocks en alerte" et tu fais une macro avec l'enregistreur
Bonjour,
Comment je peux faire via l'enregistreur?
j'oubli le message d'alerte =>
En cliquant sur le bouton en feuille "Journal d'activité", la macro selectionne dans la feuille "Inventaire", le tableau"StockMini".
Si la colonne J< colonne K alors,
FIltre en consequences et affiche la page apercu avant impression.
De la j'ai le choix d'imprimer ou non.
Sub Impr_Stock()
With Sheets("Inventaire")
If Range("J:J").Value < Range("K:K").Value Then
ActiveWindow.SelectedSheets.PrintPreview Copies:=1
Application.Goto Reference:="Macro2"
End If
End Sub
Quelque chose dans ce style?
Cordialement
re
sans doute dans ton style
voici une suggestion avec une colonne de pointage