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

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.