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.

Rechercher des sujets similaires à "projet"