Discussion :

[pilounet54]

bonjour j'ai ceci quand je valide sur une cellule vide cela me mets 0.00
es que l'on peu avoir vide si la cellule est vide

Code :

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

Range("I" & ligne).Value = Val(Replace(TextBoxRecettes.Value, ",", "."))

mais avec Replace merci

[defluc]

Si j'ai bien compris la question, alors, ton code devrait être

Code :

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

1
2
  If Not IsEmpty(Range("I" & ligne).Value) Then _
  Range("I" & ligne).Value = Val(Replace(TextBoxRecettes.Value, ",", "."))

[pilounet54]

le probleme c'est que je ne peu mettre un valeur cela me la vide ?c'est cela a quelque chose pret

[pilounet54]

oui bien sur ,la precision du detail me fait avance merci de la remarque
es que vous avez une solution cordialement patrick

Si j'ai bien compris la question, alors, ton code devrait être

Code :

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

1
2
  If Not IsEmpty(Range("I" & ligne).Value) Then _
  Range("I" & ligne).Value = Val(Replace(TextBoxRecettes.Value, ",", "."))

le code ne fonctionne pas es que tu aurai une autre idee merci
maintenir la cellule vide si la TextBoxRecettes est vide ?

[samuel50]

Bonjour

maintenir la cellule vide si la TextBoxRecettes est vide ?

D’après ta dernière remarque je pense que tu devrais essayer ceci

Code :

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

1
2
  If TextBoxRecettes.Value <> "" Then _
  Range("I" & ligne).Value = Val(Replace(TextBoxRecettes.Value, ",", "."))

Cordialement

[fring]

es que l'on peu avoir vide si la cellule est videi

Bonjour,

Ce n'est pas très clair... ça ne serait pas plutôt maintenir la cellule vide si la TextBoxRecettes est vide ?