textbox format numerique

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...

Bonsoir,

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

obliger saisie numérique dans texbox

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:

---

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:

---

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.