Discussion :

[ggdu76560]

Bonjour,
j'aimerais avoir un message d'alerte quand j'atteins le stock mini,mais je ne c'est pas comment faire...

[Kimy_Ire]

Bonjour,

La communauté aimerait avoir d'avantage d'explication ainsi que le respect des règles de son forum.
Ainsi :

1. Le titre est inapproprié
2. Les explications de ton problème sont minimes
3. Quelles sont les pistes ouvertes et les points de blocage ?
4. Pas de pièce jointe dans le premier post

Je crois qu'un "Bref..." aurait pu suffire...

Pour autant, je te propose de regarder les procédures événementielles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oLimit As Double
 
oLimit = 10000
 
If Not Application.Intersect(Range("A1:A10"), Target) Is Nothing Then
    If Range("A11") <= oLimit Then
        MsgBox "Alerte ! Vous avez atteint le seuil limite."
    End If
End If
 
End Sub

Exemple simple à adapter.

Cordialement,
Kimy

[ggdu76560]

la pièce jointe,je bloque sur tout,j'ai essayé de cherchez sur le net mais ça dépasse mais compétence sur exel

---

Fichiers joints dans les discussions

---

et j'oubliai,le stock mini et la quantité doit être modifiable.
et je bloque sur tout.

Bonjour,
....

merci pour votre réponse,j'ai essayé votre procédure et je n'est pas le résultat attendu,comme je l'ai suis,je ne suis pas très compétent en ce qui concerne excel.

[aziz1015]

et j'oubliai,le stock mini et la quantité doit être modifiable.
et je bloque sur tout.

Bonjour,

Si tu n'expliques pas correctement dans ton problème en une seule discussion sans pour autant mentionner que tu bloques sur tout à chaque phrase, je crois que tu ne recevras pas d'aide. Explique correctement ce que tu veux ...

Cordialement

[ggdu76560]

En faite,j'ai un fichier exel a remplir chaque semaine sur un inventaire,j'aimerais avoir un message d'alerte a chaque consultation de celui ci quand j'atteins le stock mini.

Est ce plus clair comme cela??

[Invité]

Bonjour,
Je te renvois à un pote similaire, auquel j'ai proposé une piste.
L'idée étant d'envoyer un mail d'alerte quand les conditions sont remplis! Le test est exécute en taches de font que le fichier soit ouvert ou non!


http://www.developpez.net/forums/d15...a/#post8389683

[ggdu76560]

Merci pour t'as réponse,mais je n'ai pas de connexion réseau sur le PC ou le fichier va être mit,car le stock doit être modifiable pour tout les intervenants,et le PC n'est pas connecté.

[Kimy_Ire]

En faite,j'ai un fichier exel a remplir chaque semaine sur un inventaire,j'aimerais avoir un message d'alerte a chaque consultation de celui ci quand j'atteins le stock mini.

Est ce plus clair comme cela??

Pièce jointe 188774

Non. Tu n'expliques rien.
Je passe la main.

Cordialement,
Kimy

[ggdu76560]

voila j'ai réussi a mettre un message d'alerte a l'ouverture de mon fichier,
mais je n'arrive pas a mettre les pièce qui doivent si trouver.

Pièce jointe 188789

---

Fichiers joints dans les discussions

---

sa peut être ,être plus clair,j'aimerais avoir la formule:

exemple :
Si la cellule E6 est > ou = à C6 je veux qu'un message apparaissent indiquant "Stock mini" avec la pièce manquante qui est dans la cellule A6.

Mais je veux faire cela sur environ 200 cellules.

[Kimy_Ire]

En procédure événementielle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oLimit As Double
 
oLimit = Range("C6")
 
If Not Application.Intersect(Range("E6"), Target) Is Nothing Then
    If Range("E6") >= oLimit Then
        MsgBox "Alerte ! Vous avez atteint le seuil limite."
    End If
End If
 
End Sub

[ggdu76560]

Je vous remercie,je n'arrive pas a le faire fonctionné.

[SfJ5Rpw8]

Je vous remercie,je n'arrive pas a le faire fonctionné.

et qu'as tu fais avec ce code ??

[ggdu76560]

et qu'as tu fais avec ce code ??

J'ai sélectionné ma feuille,j'ai créé une procédure,ensuite j'ai sectionné worksheet juste a coté j'ai sélectionné Change
et j'ai fais un copier/collé de la procédure.

[SfJ5Rpw8]

ok, le code de Kimy_Ire et exécuté sur changement d'état dans ta feuille et si c'est la valeur en E6 qui est modifié il la compare avec la valeur en D6... as tu essayé de modifier la valeur en E6 ?

[ggdu76560]

Merci,cela fonctionne.j'ai inversé les cellule et c'est bon.
Est ce que je dois faire une par cellule ou c'est possible de l'étendre via un seul code?