Discussion :

[watchaman]

Bonjour a tout le monde

J'ai un userform qui contient 3 comboboxs dont 2 liés, 16 textboxs et un bouton.

Après plusieurs tentative recherche et adaptation de solution donné dans d'autre discussion, je n'arrive toujours pas à transformer mes textboxs en numérique.

Si quelqu'un a une solution je prend...

[MarcelG]

Bonsoir,

Si cela peut t'aider, tu peux consulter l'excellent tutoriel de Didier

obliger saisie numérique dans texbox

[Docmarti]

Bonjour watchaman.

Pour transformer un Textbox en valeur numérique, tu as le choix entre 2 solutions:

1) Utiliser VAL. Tu dois alors t'assurer que le séparateur décimal dans le Textbox est le point, car VAL n'accepte que le point comme séparateur décimal.

Code :

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

Cells(1, 1) = Val(Replace(TextBox1.Value, Format(0, ","), "."))

2) Utiliser une fonction de conversion : Ex.: CDbl. Tu dois alors t'assurer que le séparateur décimal dans le Textbox est le séparateur décimal défini par Windows dans le Panneau de Configuration/ Options régionales et linguisitiques.

Code :

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

Cells(2, 1) = CDbl(Replace(TextBox1.Value, ".", Format(0, ",")))

Format(0, ",") nous donne le séparateur décimal local défini dans le Panneau de Configuration.