Discussion :

[ludojojo]

Bonjour, cela fait quelques heures que je cherche sur le forum une solution à mon pb sans succès...
Voila je commence un petit programme en VBA sur excel, je n'ai encore jamais fait de VBA... et je suis confronté à un petit problème.
J'ai dans ma UserForm un TextBox qui me sert à récupérer une valeur, mais le problème c'est que la valeur est inscrite dans ma feuille sous la forme d'une chaine de caractères et nom pas sous forme de nombre.

Voici mon code :

Code :

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

1
2
3
4
 
Private SUb CommandAdd_Click()
Cells(Val(Num_Atomique.Value) +1, 1) = Num_Atomique
End Sub

Merci par avance pour votre aide

[fring]

Bonjour,

Comme ceci peut-être ?

Code :

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

1
2
3
Private SUb CommandAdd_Click()
Cells(Val(Num_Atomique.Value) +1, 1) = Val(Num_Atomique)
End Sub

[ludojojo]

Ca fonctionne, merci bcp!!

[ludojojo]

J'ai un autre petit soucis, dans mon second textBox j'ai besoin de faire entrer un numéro atomique, donc un nombre non entier, et cela ne fonctionne pas.
J'ai vu que l'on pouvait utiliser une fonction qui s'appel CDbl, mais je ne comprend pas bien sont fonctionnement...
ou est ce que je doit placer cette fonction?

[fring]

Le fonctionnement est le même que la fonction Val

Code :

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

1
2
3
Private Sub CommandButton1_Click()
Cells(1, 1) = CDbl(TextBox1)
End Sub

CDbl va convertir la donnée de la textbox en valeur de type Double

[ludojojo]

Merci bcp pour l'explication
J'avais l'aissé les Val dans l'expression...

ca fonctionne nickel!!