Interdire valeur négative sous forme de macro

[mimil]

Bonjour,

Comment écrire une macro pour dire que dans ma feuille dés qu'il ya une valeur negative
un message d'alerte s'affiche ( ATTENTION VALEUR NEGATIVE) ??

Sachant que j'utilise des combobox et textbox dans ma macro !

Merci

 

[Pierrot93]

Re : Interdire valeur négative sous forme de macro

Bonjour,

essaye ceci, à placer dans le module de la feuille concernée...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) And Target.Value < 0 Then MsgBox "inf à 0..."
End Sub

vu les détails donnés...

bon après midi
@+

 

[Efgé]

Re : Interdire valeur négative sous forme de macro

Bonjour mimil, Bonjour Pierrot ,
Juste pour dire que j'ai participé aujourd'hui.....
Le texte est vu comme > 0
Une proposition, mais

vu les détails donnés...

Cordialement

 

[mimil]

Re : Interdire valeur négative sous forme de macro

Merci Pierrot93 ! merci Efgé

 

[mimil]

Re : Interdire valeur négative sous forme de macro

Bonjour ,

J'ai encore besoin d'aide !! Je veux interdire les valeur negatives seulement a partir de la colonne E par exemple

 

[Efgé]

Re : Interdire valeur négative sous forme de macro

Bonjour mimil, le fil, le forum,
Pour t'aider il faudrait un petit fichier exemple. Cela premetrai de comprendre la structure de ta feuille..
Cordialement

 

[Pierrot93]

Re : Interdire valeur négative sous forme de macro

Bonjour mimil, fg

modifie comme suit :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Then Exit Sub
If IsNumeric(Target) And Target.Value < 0 Then MsgBox "inf à 0..."
End Sub

bonne journée
@+

 

[mimil]

Re : Interdire valeur négative sous forme de macro

Bonjour

Fichier en PJ


LE fonctionnement : tu choisi le batiment 1 , puis le mois conso gaz octobre puis tu rentre une donnée dans la textbox!

Exemple: M7= 1000

si en textbox on saisie 2000 alors resultat en P7 = 1000 ok
Mais si en textbox on saisie 500 alors resultat P7 = -500 erreur

si le calcul donne un resultat negative , alors je veux un message erreur

MERCI

 

[Pierrot93]

Re : Interdire valeur négative sous forme de macro

Re,

essaye comme ceci, dans l'événement "calculate" de la feuille, à placer dans le module de la feuille concenée :

Option Explicit
Private Sub Worksheet_Calculate()
If IsNumeric(Range("P7")) And Range("P7").Value < 0 Then MsgBox "inf à 0..."
End Sub

 

[mimil]

Re : Interdire valeur négative sous forme de macro

Enfaite j'ai réutilisé ta formule un peu plus haut !! elle fonctionne bien !! mais je voudrais que la valeur ne s'incremente pas !! c-a-d que si c negative on ne peut continué!

Et ensuite j'ai un probléme car si je supprime plusieurs données ya une erreur qui s'affiche ( errer...'13' ..)
suite a cette macro car quand je l'enleve tout marche trés bien

MERCI

 

[Pierrot93]

Re : Interdire valeur négative sous forme de macro

Re,

Et ensuite j'ai un probléme car si je supprime plusieurs données ya une erreur qui s'affiche ( errer...'13' ..)

de quel code parles tu ? plusieurs déjà donnés.. peut être faire un test sur le nombre de cellules modifiées :

If Target.Count > 1 Then Exit Sub

 

[mimil]

Re : Interdire valeur négative sous forme de macro

Voici le code

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Then Exit Sub
If IsNumeric(Target) And Target.Value < 0 Then MsgBox "inf à 0..."
End Sub

1) si La valeur est negative elle ne doit pas s'incrementer


Sinon j'ai un probléme c'est que si je veut supprimer plusieurs valeur , ca me fait un bug !! alors que si je selectionne qu'une seul je peux la supprimer
Ca me fait ceci depuis que j'ai rajouter ta formule donc c bizarre



Merci

 

[Pierrot93]

Re : Interdire valeur négative sous forme de macro

Re,

pour éviter l'erreur si plusieurs cellules supprimées :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Or Target.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Value < 0 Then MsgBox "inf à 0..."
End Sub

 

[mimil]

Re : Interdire valeur négative sous forme de macro

Merci !! ca marche trés bien !!

Mais je voudrais que la valeur ne s'incremente pas si c négative !!!

MERCI

 

[Pierrot93]

Re : Interdire valeur négative sous forme de macro

Re,

essaye comme ceci :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Or Target.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Value < 0 Then MsgBox "inf à 0...": Target = ""
End Sub

effacera le contenu... mais si il faut remettre la valeur initiale, il faut gérer via une variable "public", celle-ci initialisé avec l'événement "selectionchange"... enfin, plus délicat à gérer....