texbox valeur zero

bonjour
dans initialise de l'userform j'ai ceci :

Code:

---

Me.TextBoxdepenses.Value = Replace(Range("j" & ligne).Value, "-", "")

---

ce que je souhaiterai c'est que cela efface si il y a la valeur zero "0"

merci

Bonjour,

Si tu considères ton "0" comme une chaine de caractère

Code:

---

1 2 3 4

If Me.TextBoxdepenses.Value = "0" then Me.TextBoxdepenses.Value = "" end if

---

Si c'est comme un chiffre, je préfère

Code:

---

1 2	If Val(Me.TextBoxdepenses.Value) = 0 then

---

J'espère que cela va t'aider mais pour être honnete j'ai pas compris ton problème.

c'est ce que je cherchai merci encore :ccool:
es que cela serai pas a couse cde cette ligne svp

Code:

---

If InStr("1234567890,.-", Chr(KeyAscii)) = 0 Then KeyAscii = 0

---

bonjour pilounet

nom ca n'est pas a cause de ca

Code:

---

If InStr("1234567890,.-", Chr(KeyAscii)) = 0 Then KeyAscii = 0

---

t'elimine la frappe de la touche tout simplement

maintenant si le textbox est = a zero en respectant la formule de ta cellule ca veut dire que ta cellule te donne le resultat 0

tu peut eviter ca comme ceci

Code:

---

1 2	Me.TextBoxdepenses.Value =iif(Replace(Range("j" & ligne).Value, "-", "")=0,"", Replace(Range("j" & ligne).Value, "-", ""))

---

je n'est pas testé je ne suis pâs chez moi mais ca doit etre a peu pres ca

au plaisir

merci
patrick et à tous :ccool: