Interdire valeur négative sous forme de macro

Pierrot93

XLDnaute Barbatruc

• 27 Juillet 2011

• #2

Re : Interdire valeur négative sous forme de macro

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 27 Juillet 2011

• #3

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...

Cliquez pour agrandir...

Cordialement

 

Pièces jointes

• mimil(1).xls

  24.5 KB · Affichages: 81

Vote positif 0 Vote négatif

M

mimil

Guest

• 28 Juillet 2011

• #4

Re : Interdire valeur négative sous forme de macro

Merci Pierrot93 ! merci Efgé

 

Vote positif 0 Vote négatif

M

mimil

Guest

• 28 Juillet 2011

• #5

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Juillet 2011

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Juillet 2011

• #7

Re : Interdire valeur négative sous forme de macro

Bonjour mimil, fg

modifie comme suit :

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

bonne journée
@+

 

Vote positif 0 Vote négatif

M

mimil

Guest

• 28 Juillet 2011

• #8

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

 

Pièces jointes

• aide __1.xls

  83 KB · Affichages: 84
• aide __1.xls

  83 KB · Affichages: 88
• aide __1.xls

  83 KB · Affichages: 102

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Juillet 2011

• #9

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 :

Code:

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

 

Vote positif 0 Vote négatif

M

mimil

Guest

• 28 Juillet 2011

• #10

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Juillet 2011

• #11

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' ..)

Cliquez pour agrandir...

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

Code:

If Target.Count > 1 Then Exit Sub

 

Vote positif 0 Vote négatif

M

mimil

Guest

• 28 Juillet 2011

• #12

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

Cliquez pour agrandir...

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

 

Dernière modification par un modérateur: 28 Juillet 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Juillet 2011

• #13

Re : Interdire valeur négative sous forme de macro

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

M

mimil

Guest

• 29 Juillet 2011

• #14

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #15

Re : Interdire valeur négative sous forme de macro

Re,

essaye comme ceci :

Code:

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....

 

Vote positif 0 Vote négatif