Alerte stock (erreur 1004)
nab2015
Messages postés
4
Statut
Membre
-
nab2015 Messages postés 4 Statut Membre -
nab2015 Messages postés 4 Statut Membre -
Bonjour,
je n'arrive pas à exécuter mon modèle , il me sort toujours erreur 1004 .
mon but est de configurer une alerte automatique à l'ouverture du fichier du stock .
vous trouverez là dessous mon modèle ; merci d'avance pour votre aide .
je n'arrive pas à exécuter mon modèle , il me sort toujours erreur 1004 .
mon but est de configurer une alerte automatique à l'ouverture du fichier du stock .
vous trouverez là dessous mon modèle ; merci d'avance pour votre aide .
Private Sub workbook_open()
'pour les stocks
Dim alerte As Range
For Each alerte In ActiveSheet.Range(alerte)
valeur = Cells(alertestock.Row, 1)
If alertstock <= "0" Then
MsgBox "la reference " & valeur & " doit etre commandé.", vbCritical, "quantité en stock unsufisante"
Else
End If
If alertstock = "1" Then
MsgBox "la reference " & valeur & " devra bientot etre commandé.", vbExclamation, "quantité en stock presque unsufisante"
Else
End If
Next
End Sub
4 réponses
-
Bonjour
Beaucoup de confusions dans ton code
Un exemple à adapter
https://www.cjoint.com/c/EFfqgLUVXW1
Cdlmnt -
Tu es bien sous Excel ?
Le code
Option Explicit Const FS = "Feuil1" Const PS = "B2:B21" Const PA = "A1:A21" Private Sub Workbook_Open() Dim stock As Range, plagestocks As Range, plagearticles, article As String Set plagestocks = Sheets(FS).Range(PS) Set plagearticles = Sheets(FS).Range(PA) For Each stock In plagestocks If stock.Value = 0 Then article = Sheets(FS).Range(PA).Cells(stock.Row, 1) MsgBox "la reference " & article & " doit etre commandé.", vbCritical, "quantité en stock unsufisante" ElseIf stock.Value = 1 Then article = Sheets(FS).Range(PA).Cells(stock.Row, 1) MsgBox "la reference " & article & " devra bientot etre commandé.", vbExclamation, "quantité en stock presque unsufisante" End If Next stock End Sub
Cdlmnt -
merci ca à marcher, c'est juste que quand je change b2:b21 par h2 :21 ca ne marche pas ; pour mieux comprendre pourquoi je voulais remplacer b par h , mon tableau se constitue comme suit :
a b c d f g h
article 2011 2012 2013 inventaire moy alerte
c'est la collone alerte que je veux analyser , merci -
Il te faut remplacer B2:H2 par H2:H21
http://www.cjoint.com/c/EFljkRCLguU
