Discussion :

[pilounet54]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nchal]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pilounet54]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

bonjour pilounet

nom ca n'est pas a cause de ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pilounet54]

merci
patrick et à tous