Point ou virgule dans useform

Bonjour au forum et à tous,

Je cherche depuis quelque temps la méthode pour transférer une valeur numérique (ex:10.05) saisie avec un point dans un TextBox d'un UserForm avec une virgule au lieu d'un point dans ma Feuil1.

Ci-joint mon exemple qui m'oblige à saisir dans le TextBox une virgule ce qui me gêne car je dois quitter mon clavier numérique.

Merci pour votre aide

Henri

42essai-num.xlsm (19.69 Ko)

Bonjour

Pour t'affranchir de ce détail

Modifies la sauvegarde du textbox

Sheets("feuil1").Cells(ligne, 1) = Val(Replace(Me.TextBox1, ",", "."))

Re bonjour à tous,

J'ai posé ma question trop vite. Il fallait simplement chercher un peu dans les questions similaires posées et la réponse y était.

Sheets("feuil1").Cells(ligne, 1) = CDbl(Val(Replace(Me.TextBox1, ",", ".")))

Merci encore pour ce forum très utile.

Rechercher des sujets similaires à "point virgule useform"