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   -
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 .

A voir également:

3 réponses

Utilisateur anonyme
 
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.  :)
 
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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.
0
kadiski Messages postés 50 Date d'inscription   Statut Membre Dernière intervention   1
 
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 .
0