Pop-up d’alerte vba
Résolu
kadiski
Messages postés
50
Date d'inscription
Statut
Membre
Dernière intervention
-
kadiski Messages postés 50 Date d'inscription Statut Membre Dernière intervention -
kadiski Messages postés 50 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Actuellement j'essaye de faire comme mon titre l'indic une pop-up d'arlete , je ne sais pas si c'est le bon termes mais c'est ce qui convient le mieux d’après moi.
Nous avons actuellement un fichier appelé " demande 'activité " que nous utilisons pour le déstockage , dernièrement nous l'avons lié à un nouveau logiciel de gestion de stock , jusqu'ici tout se passe bien .
Mais voila je cherche a pouvoir faire apparaître une pop-up d'alerte lorsque l'on souhaite faire un déstockage supérieur( quantité demandée) a ce que nous avons en stock(quantité en stock) .
Voici le code que j'ai tenté d'utiliser :
Option Explicit
Private Sub Workbook_Open()
If Not ActiveWorkbook.Name Like "*.xltm" Then
If ActiveWorkbook.Worksheets("liste").Range("J3").Value = "" Then
ActiveWorkbook.Worksheets("liste").Range("J3").Value = Now
Dim Valeur As Integer
Valeur = Range("D33:D42").Value
If Valeur > Range("I33:I42") Then
MsgBox (" stock insuffisant")
End If
End If
End If
End Sub
Je vous joint une capture pour un meilleurs visu ,
En vous remerciant pour le temps que vous m'accorderai .
ps : la colonne du milieu "description" est une liste déroulante .
Cordialement .
Actuellement j'essaye de faire comme mon titre l'indic une pop-up d'arlete , je ne sais pas si c'est le bon termes mais c'est ce qui convient le mieux d’après moi.
Nous avons actuellement un fichier appelé " demande 'activité " que nous utilisons pour le déstockage , dernièrement nous l'avons lié à un nouveau logiciel de gestion de stock , jusqu'ici tout se passe bien .
Mais voila je cherche a pouvoir faire apparaître une pop-up d'alerte lorsque l'on souhaite faire un déstockage supérieur( quantité demandée) a ce que nous avons en stock(quantité en stock) .
Voici le code que j'ai tenté d'utiliser :
Option Explicit
Private Sub Workbook_Open()
If Not ActiveWorkbook.Name Like "*.xltm" Then
If ActiveWorkbook.Worksheets("liste").Range("J3").Value = "" Then
ActiveWorkbook.Worksheets("liste").Range("J3").Value = Now
Dim Valeur As Integer
Valeur = Range("D33:D42").Value
If Valeur > Range("I33:I42") Then
MsgBox (" stock insuffisant")
End If
End If
End If
End Sub
Je vous joint une capture pour un meilleurs visu ,
En vous remerciant pour le temps que vous m'accorderai .
ps : la colonne du milieu "description" est une liste déroulante .
Cordialement .
3 réponses
-
Bonjour kadiski,
Je te propose ce fichier Excel 2007 (sans macro).
Il n'y a pas de pop-up d'alerte, mais je crois que tu aimeras mieux.
Colonne J : Quantité « À livrer » ; formule en J33 (tirée jusque J42) :
=SI(D33>0;MIN(D33;I33);"")
Donc si Quantité demandée > Quantité « En stock » : minimum des 2.
Colonne L : Quantité « Manquante (à livrer) » ; formule en L33
(tirée jusque L42) : =SI(D33>I33;D33-I33;"")
« (à livrer) » = à livrer plus tard, quand le stock sera réapprovisionné.
Voilà ce qui remplace ton alerte pop-up : s'il y a un nombre dans cette
colonne, c'est que le stock est insuffisant par rapport à la demande.
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».
Cordialement. :)
-
Bonjour
Pour obtenir un message d'avertissement sans VBA, tu peux tout simplement utiliser un contrôle de saisie à l'aide de la validation de données Excel.
-
Bonjour albkan et Patricia , je vous remercie du temps que vous m'avez accordé pour m'aider , et vos suggestions m'ont beaucoup aidé .
En vous remerciant et Joyeuse Fêtes .
