Popup d'alerte sur Excel

Version imprimable

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:

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

29/09/2015, 14h31
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 ?

Bonjour,

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

Code:

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

30/09/2015, 09h19
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 ?
01/10/2015, 07h02
Theze

Bonjour,

Citation:

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 :

Citation:

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 !

Citation:

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
01/10/2015, 09h08
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.
01/10/2015, 21h10
Theze

Re,

Oui mais ici, on est dans VBA, donc, la réponse est en VBA !