message d alerte si valeur d'une cellule devient négative

Pierrot93

XLDnaute Barbatruc

• 24 Janvier 2012

• #2

Re : message d alerte si valeur d'une cellule devient négative

Bonjour,

essaye peut être ceci, dans le module de la feuille concernée :

Code:

Option Explicit
Private Sub Worksheet_Calculate()
Dim c As Range
For Each c In Range("Q1:Q10")
    If c < 0 Then MsgBox "Attention : Valeur négative en :" & vbCrLf & c.Address
Next c
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 24 Janvier 2012

• #3

Re : message d alerte si valeur d'une cellule devient négative

Bonjour laura38, Pierrot93

Sans support, c'est toujours un peu casse-gueule, mais essayez cela :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s$, oPlg As Range, oCel As Range
    On Error GoTo E
    Set oPlg = Intersect([Q1:Q10], Target.Dependents)
    On Error GoTo 0
    If Not oPlg Is Nothing Then
        For Each oCel In oPlg.Cells
            If oCel.Value <= 0 Then s = s & vbLf & oCel.Address(0, 0)
        Next
    If s <> "" Then MsgBox "Attention : Valeur négative en " & s
    End If
C:
    'Suite de la procédure Worksheet_Change si besoin est...
Exit Sub
E:
    On Error GoTo 0
    Resume C
End Sub

ROGER2327
#5404

Vendredi 27 Décervelage 139 (Saints Chemins de fer, assassins - fête Suprême Quarte)
4 Pluviôse An CCXX, 6,4867h - perce-neige
2012-W04-2T15:34:05Z

 

Dernière édition: 24 Janvier 2012

Vote positif 0 Vote négatif

L

laura38

XLDnaute Nouveau

• 24 Janvier 2012

• #4

Re : message d alerte si valeur d'une cellule devient négative

RE bonjour, et tout d'abord merci pour vos réponse si rapides!

pierrot93, ton code a l'air d'être tout à fait ce que je recherche. Il marche presque mais il y a un bog.
Lorsque le message s'affiche avec la valeur négative, ensuite une fenetre s ouvre :
Erreur d'éxecution 13
incompatibilté de type

quand je clique sur débogage :
Option Explicit
Private Sub Worksheet_Calculate()
Dim c As Range
For Each c In Range("Q2:Q30")
If c < 0 Then MsgBox "Attention : Valeur négative en :" & vbCrLf & c.Address
Next c
End Sub

et aussi lorsque je saisie une valeur dans d autres cellules ce bug se produit.

Peux-tu me dire si il y a qqch qui cloche?

Roger 2327 ton code n'a rien donné.

J'attache en pièce jointe un résumé très très bref de mon fichier pour illustrer mon pb.
J'y ai mis le code de Pierrot; et la il marche très bien comme vous pouvez le voir...

Qqun voit d'où cela peut venir?

Merci encore pour votre aide!

 

Pièces jointes

• HHHHHHHH.xls

  22 KB · Affichages: 124

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 24 Janvier 2012

• #5

Re : message d alerte si valeur d'une cellule devient négative

laura38 à dit:

(...)
Roger 2327 ton code n'a rien donné.
(...)

Cliquez pour agrandir...

Normal ! Je suis le dernier des cons...​

ROGER2327
#5405

Vendredi 27 Décervelage 139 (Saints Chemins de fer, assassins - fête Suprême Quarte)
4 Pluviôse An CCXX, 7,6169h - perce-neige
2012-W04-2T18:16:50Z

 

Pièces jointes

• Dépendance.xlsm

  14.8 KB · Affichages: 142

Dernière édition: 24 Janvier 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Janvier 2012

• #6

Re : message d alerte si valeur d'une cellule devient négative

Re,
bonsoir Roger

euh... à priori le code que je t'ai donné fonctionne chez moi....

bonne soirée
@+

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 24 Janvier 2012

• #7

Re : message d alerte si valeur d'une cellule devient négative

Bonsoir,

Voir PJ

La mise en forme conditionnelle par affichage d'un commentaire

JB

 

Pièces jointes

• Copie de FonctionAFficheMessage.xls

  45 KB · Affichages: 171
• Copie de FonctionAFficheMessage.xls

  45 KB · Affichages: 157
• Copie de FonctionAFficheMessage.xls

  45 KB · Affichages: 159
• Copie de FonctionAFficheMessage.xls

  49.5 KB · Affichages: 106
• Copie de FonctionAFficheMessage.xls

  49.5 KB · Affichages: 115
• Copie de FonctionAFficheMessage.xls

  49.5 KB · Affichages: 133

Dernière édition: 24 Janvier 2012

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 24 Janvier 2012

• #8

Re : message d alerte si valeur d'une cellule devient négative

Bonsoir à tous.

laura38 à dit:

Roger 2327 ton code n'a rien donné.

Cliquez pour agrandir...

Lire : Roger, je n'ai pas été capable d'utiliser le code que vous m'avez fourni bénévolement, et ce malgré l'absence de fichier en exemple, mais je vous remercie cependant du temps que vous avez bien voulu consacrer à mon problème, alors que nous ne connaissons même pas.

L'éducation se perd, mon bon monsieur ! Les coups de pied au c.. aussi , celà expliquant peut-être ceci !

 

Vote positif 0 Vote négatif

L

laura38

XLDnaute Nouveau

• 25 Janvier 2012

• #9

Re : message d alerte si valeur d'une cellule devient négative

Bonjour,

Je tenais simplement à vous informer que j'ai réussi à faire fonctionner le code fournit par pierrot.
Je suis désolée si j'ai vexé certaines personnes ici, ce n'était pas du tout mon but, et je vous remercie encore une fois pour toute l'aide que vous m'avez apportée!

Bonne journée à tous.
Laura

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 25 Janvier 2012

• #10

Re : message d alerte si valeur d'une cellule devient négative

Bonjour à tous

Sinon, une autre solution pour le fun 🙂.

Code:

'Option Explicit
Private Sub Worksheet_Calculate()
Set myRange = Worksheets(ActiveSheet.Name).Range("H2:H30")
answer = Application.WorksheetFunction.Min(myRange)
If answer < 0 Then MsgBox "Attention valeur négative!"
End Sub

 

Vote positif 0 Vote négatif