Discussion :

[jfk15]

Bonjour,

étant débutant, je viens de me rendre compte d'une grosse bêtise de ma part !
En effet, j'ai créé un formulaire pour rendre la saisie plus rapide MAIS je me rends compte que les valeurs numériques saisies dans les textbox de mon userform ne sont pas pris en compte dans les formules car elles sont pris comme du texte ! J'ai une trentaine de textbox sur l'userform mais je suis prêt s'il le faut à faire des changements un par un et à répéter 30 fois la même manip s'il le faut . J'ai l'impression d'avoir le même problème avec deux combobox.....

le code du formulaire est celui-ci :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
derligne = Feuil2.Range("a1956").End(xlUp).Row + 1
For Each Ctrl In UserForm2.Controls
colonne = Val(Ctrl.Tag)
If colonne > 0 Then Feuil2.Cells(derligne, colonne) = Ctrl
Next
End
End Sub

[Invité]

If colonne > 0 Then Feuil2.Cells(derligne, colonne) = Val(replace(Ctrl,",","."))

[kiki29]

Salut, toujours consultable : Obliger une saisie numérique dans une TextBox
A voir également ( allègement et centralisation ) : http://www.developpez.net/forums/d49...e/#post2994774

[jfk15]

Merci à vous pour vos réponses.

Rdurupt... cela marche super bien merci... mais trop bien car sur l'userform il y a aussi des textbox ou des combobox a gardé en texte

Dans l'initialize de l'usf je ne peux pas déclarer les textbox en numérique? tant pis si je dois le faire une par une ce n'est pas un pb. Quand on n'a pas de tête on a des jambes
Merci

[Quentin77170]

Salut

Intéresse-toi aux fonctions de conversion !

Par exemple, ta TextBox a sa valeur comprise comme une String, par exemple "53.4". Si tu utilises la fonction CSng(TextBox1.Text), alors tu obtiendras la valeur 53.4 et plus une chaîne de caractères "5" puis "3" puis "." puis "4"...

Tu as plusieurs fonctions (Attention, il faut que le texte soit cohérent avec ta demande !) :

CInt(String) : Convertit du texte en nombre entier
CSng(String) : Convertit en Single
CDbl(String) : Convertit en Double
CLng(String) : Convertit en Long
...
https://msdn.microsoft.com/en-us/lib.../gg278896.aspx

Cordialement

[jfk15]

Bonsoir quentin,

il n'y a pas un truc simple même si je dois le répéter 30 Fois dans mon userform sur chaque textbox?

[kiki29]

Salut, voir avec les liens donnés plus haut. Sinon faire une recherche sur les modules de classe concernant les TextBoxes.

[joe.levrai]

Bonjour,

qu'est ce que tu entends par "ça ne marche pas"
la ligne 5 me parait suspecte, tu envoies Ctrl sans propriété dans ta plage
en ajoutant l'absence de déclaration des variables ...

EDIT : y'a du monde sur la corde