Projet
bonjour a tous
dans le fichier joint quand je clique sur l'icone imprimante cela m'affiche un Msgbox si le poids voulu n'est pas atteint en M5 et me propose soit de continuer soit d'annuler
mon problème c'est que quand le poids et atteint le msgbox s'affiche aussi comment doit 'je faire pour qu'il ne s'affiche que si le poids n'est pas atteint et rien ne se passe si le poids et atteint
de plus j'aimerais que cela le fasse aussi si je clique sur l'icone du disque dur qui me sert a enregistrer sous
amicalement
Salut,
Dans ta macro ci-dessous tu peux ajouter une condition If [M5] < 40 Then qui ne déclenche la MsgBox que si n'est nécessaire.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Reponse
If [M5] < 40 Then
Reponse = MsgBox("Votre poids et de " & ActiveSheet.[M5] & " KG" & " Vous n'avez pas le franco de port qui est de 40 KG Voulez vous quand meme imprimer votre commande", _
vbYesNo + vbCritical, "Avertissement")
If Reponse = vbYes Then
Application.EnableEvents = False
ActiveSheet.PrintPreview
Application.EnableEvents = True
'remplacer par ActiveSheet.PrintOut pour lancer l'impression de la feuille active
Else
Cancel = True
End If
End If
End Sub
Si ça correspond à ce que tu attends, dis-nous si tu t'en sors tout seul pour la suite ou si tu as encore besoin d'aide.
Amicalement.