conversion textbox en numérique

[XC2ONE]

Bonjour,
J'ai créé une base de données, une boite de dialogue intégrant un certain nombre de TextBox permet d'alimenter cette base.
Certaines TextBox une fois saisies doivent renvoyées une valeur numérique exploitable sous la Base (ex : saisie 100, la donnée 100 est bien intégrée dans la base mais celle ci n'est pas numérique et inexploitable).
Que dois je faire ?

Merci par avance

Message édité par: xc2one, à: 02/03/2005 13:45

 

[WILFRIED]

Salut XC2ONE

Utilise Cnum pour convertir ta valeur en numéric ou alors directement Textbox1.value à la place de Textbox1.text

A+

 

[XC2ONE]

Salut Wilfried,

J'essaie tout de suite

Merci

 

[PascalXLD]

Bonjour

Tu peux faire par exemple

Sheets('Feuil1').range('A1')=cint(textbox.value)

ou si tu as des décimals

Sheets('Feuil1').range('A1')=cdbl(textbox.value)

bon courage

 

[XC2ONE]

Wilfried,

Malheureusement ça ne fonctionne pas, voici mon code, ce sont les TextBox f_ent9 et f_ent10 qui sont concernées par du numérique,

Private Sub f_b_ok_Click()
If f_ent1 <> '' Then
Sheets('BDD').Select
nb_contact = 0
For i = 8 To 1500
If IsEmpty(Cells(i, 1)) Then
nb_contact = i - 2
Exit For
End If
Next
Sheets('BDD').Cells(nb_contact + 2, 1) = f_ent1
Sheets('BDD').Cells(nb_contact + 2, 2) = f_ent2
Sheets('BDD').Cells(nb_contact + 2, 3) = f_ent3
Sheets('BDD').Cells(nb_contact + 2, 4) = f_ent4
Sheets('BDD').Cells(nb_contact + 2, 5) = f_ent5
Sheets('BDD').Cells(nb_contact + 2, 6) = f_ent6
Sheets('BDD').Cells(nb_contact + 2, 7) = f_ent7
Sheets('BDD').Cells(nb_contact + 2, 8) = f_ent8
Sheets('BDD').Cells(nb_contact + 2, 9) = f_ent9
Sheets('BDD').Cells(nb_contact + 2, 10) = f_ent10
Sheets('BDD').Cells(nb_contact + 2, 11) = f_ent11
Sheets('BDD').Cells(nb_contact + 2, 12) = f_ent12
Sheets('BDD').Cells(nb_contact + 2, 13) = f_ent13
Sheets('BDD').Cells(nb_contact + 2, 14) = f_ent14
Sheets('BDD').Cells(nb_contact + 2, 15) = f_ent15
Sheets('BDD').Cells(nb_contact + 2, 16) = f_ent16
Sheets('BDD').Cells(nb_contact + 2, 18) = f_ent17
Sheets('BDD').Cells(nb_contact + 2, 19) = f_ent18
Sheets('BDD').Cells(nb_contact + 2, 20) = f_ent19
Sheets('BDD').Cells(nb_contact + 2, 21) = f_ent20
Sheets('BDD').Cells(nb_contact + 2, 22) = f_ent21
Sheets('BDD').Cells(nb_contact + 2, 23) = f_ent22
Sheets('BDD').Cells(nb_contact + 2, 24) = f_ent23
Sheets('BDD').Cells(nb_contact + 2, 25) = f_ent24
Sheets('BDD').Cells(nb_contact + 2, 26) = f_ent25
choix_OK = True
f_ent1 = ''
f_ent2 = ''
f_ent3 = ''
f_ent4 = ''
f_ent5 = ''
f_ent6 = ''
f_ent7 = ''
f_ent8 = ''
f_ent9 = ''
f_ent10 = ''
f_ent11 = ''
f_ent12 = ''
f_ent13 = ''
f_ent14 = ''
f_ent15 = ''
f_ent16 = ''
f_ent17 = ''
f_ent18 = ''
f_ent19 = ''
f_ent20 = ''
f_ent21 = ''
f_ent22 = ''
f_ent23 = ''
f_ent24 = ''
f_ent25 = ''
f_ent1.SetFocus
Else 'Si première zone à blanc
choix_OK = False
Unload f_nouveau
End If
End Sub

Merci de ton aide

 

[WILFRIED]

Re,

essaye ceci en tenant compte des infos de Pascal76


Private Sub f_b_ok_Click()
If f_ent1 <> '' Then
Sheets('BDD').Select
nb_contact = 0
For i = 8 To 1500
If IsEmpty(Cells(i, 1)) Then
nb_contact = i - 2
Exit For
End If
Next
Sheets('BDD').Cells(nb_contact + 2, 1) = f_ent1
Sheets('BDD').Cells(nb_contact + 2, 2) = f_ent2
Sheets('BDD').Cells(nb_contact + 2, 3) = f_ent3
Sheets('BDD').Cells(nb_contact + 2, 4) = f_ent4
Sheets('BDD').Cells(nb_contact + 2, 5) = f_ent5
Sheets('BDD').Cells(nb_contact + 2, 6) = f_ent6
Sheets('BDD').Cells(nb_contact + 2, 7) = f_ent7
Sheets('BDD').Cells(nb_contact + 2, 8) = f_ent8
Sheets('BDD').Cells(nb_contact + 2, 9) = cdbl(f_ent9.value)
Sheets('BDD').Cells(nb_contact + 2, 10) = cdbl(f_ent10.value)
Sheets('BDD').Cells(nb_contact + 2, 11) = f_ent11
Sheets('BDD').Cells(nb_contact + 2, 12) = f_ent12
Sheets('BDD').Cells(nb_contact + 2, 13) = f_ent13
Sheets('BDD').Cells(nb_contact + 2, 14) = f_ent14
Sheets('BDD').Cells(nb_contact + 2, 15) = f_ent15
Sheets('BDD').Cells(nb_contact + 2, 16) = f_ent16
Sheets('BDD').Cells(nb_contact + 2, 18) = f_ent17
Sheets('BDD').Cells(nb_contact + 2, 19) = f_ent18
Sheets('BDD').Cells(nb_contact + 2, 20) = f_ent19
Sheets('BDD').Cells(nb_contact + 2, 21) = f_ent20
Sheets('BDD').Cells(nb_contact + 2, 22) = f_ent21
Sheets('BDD').Cells(nb_contact + 2, 23) = f_ent22
Sheets('BDD').Cells(nb_contact + 2, 24) = f_ent23
Sheets('BDD').Cells(nb_contact + 2, 25) = f_ent24
Sheets('BDD').Cells(nb_contact + 2, 26) = f_ent25
choix_OK = True
f_ent1 = ''
f_ent2 = ''
f_ent3 = ''
f_ent4 = ''
f_ent5 = ''
f_ent6 = ''
f_ent7 = ''
f_ent8 = ''
f_ent9.value = 0
f_ent10.value = 0
f_ent11 = ''
f_ent12 = ''
f_ent13 = ''
f_ent14 = ''
f_ent15 = ''
f_ent16 = ''
f_ent17 = ''
f_ent18 = ''
f_ent19 = ''
f_ent20 = ''
f_ent21 = ''
f_ent22 = ''
f_ent23 = ''
f_ent24 = ''
f_ent25 = ''
f_ent1.SetFocus
Else 'Si première zone à blanc
choix_OK = False
Unload f_nouveau
End If
End Sub

 

[XC2ONE]

Super, c'est bon ça marche...

Merci à vous

A bientôt