Discussion :

[rmouhib]

Bonjour ,

suite à la discussion : http://www.developpez.net/forums/d59...-alerte-excel/


pouvez vous me guider svp comment je vais utiliser ce message enfait j'ai la meme rerquest du Monsieur je veux qu'une alerte se declenche quand je depasse un seuil c'est pour une gestion du stock

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Calculate()
If Range("A1") > 3 Then MsgBox "Attention !!! Dépassement de valeur dans cellule A1"
 
If Range("b1") > 3 Then MsgBox "Attention !!! Dépassement de valeur dans cellule b1"
If Range("c1") > 3 Then MsgBox "Attention !!! Dépassement de valeur dans cellule c1"
If Range("d1") > 3 Then MsgBox "Attention !!! Dépassement de valeur dans cellule d1"
If Range("e1") > 3 Then MsgBox "Attention !!! Dépassement de valeur dans cellule e1"
End Sub

[pasdechances]

Bonjour,
Pas compris ta demande peut tu reformuler ta demande ?
que veux tu faire exactement ?
pourquoi as tu ctrl+c+v la requete autant de fois ?

[Theze]

Bonjour,

C'est un truc dans le genre que tu veux ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Worksheet_Calculate()
 
    'afin de ne pas avoir à modifier dans les lignes de code !
    'adapter les valeurs...
    Const MiniA As Integer = 5
    Const MiniB As Integer = 5
    Const MiniC As Integer = 5
    Const MiniD As Integer = 5
    Const MiniE As Integer = 5
 
    If Range("A1") < MiniA Then MsgBox "Attention !!! Stock inférieur à " & MiniA & " en cellule A1 !"
    If Range("B1") < MiniB Then MsgBox "Attention !!! Stock inférieur à " & MiniB & " en cellule B1 !"
    If Range("C1") < MiniC Then MsgBox "Attention !!! Stock inférieur à " & MiniC & " en cellule C1 !"
    If Range("D1") < MiniD Then MsgBox "Attention !!! Stock inférieur à " & MiniD & " en cellule D1 !"
    If Range("E1") < MiniE Then MsgBox "Attention !!! Stock inférieur à " & MiniE & " en cellule E1 !"
 
End Sub

[pasdechances]

je ne comprend pas l’intérêt de la fonction c'est juste une comparaison et un message box on est d'accord ? serai-ce si facile que ça de répondre a ça demande ?

[Theze]

Bonjour,

je ne comprend pas l’intérêt de la fonction c'est juste une comparaison et un message box on est d'accord ? serai-ce si facile que ça de répondre a ça demande ?

rmouhib dit :

je veux qu'une alerte se declenche quand je depasse un seuil c'est pour une gestion du stock

Dans une gestion de stock, c'est quand on passe au dessous d'un seuil qu'on souhaite une alerte rarement au dessus et c'est exactement ce que fait le code que j'ai posté, il affiche un message si on passe en dessous d'un certain seuil !

Pas compris ta demande peut tu reformuler ta demande ?
que veux tu faire exactement ?
pourquoi as tu ctrl+c+v la requete autant de fois ?

C'est parce qu'il utilise "Worksheet_Calculate" et qu'il souhaite contrôler les cellules de A1 à E1

[pasdechances]

il aurai pu utiliser la mise en forme conditionnel.
il y a une fonction excel qui permet depuis une cellule d'appeler un pop-up.