Soucis Textbox [VBA Excel 2003]

Résolu
Thaxou Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
Thaxou Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Suite à l'aimable aide de notre ami Mytå (voir Soucis Range et Cells [VBA Excel 2003]), j'arrive donc à entrer les valeurs (dans des cellules Excel) qu'un utilisateur à entrer dans plusieurs textbox).

Mon seul soucis, c'est que ces valeurs entrées pointent ensuite vers des formules d'Excel, et que Excel n'arrive pas à les "lire" car VBA les enregistre au format texte!

J'aimerai donc que ces valeurs, qui viennent de textbox, puissent être directement en format nombre! Comment puis je faire pour que chaque valeurs soit ajoutés automatiquement de la sorte?

Voici un exemple de ce que j'ai comme code : 
Private Sub Valeur_Epaisseur_Parois_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
  If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 44 Or KeyAscii = 46) Then 
    KeyAscii = 0 'On annule la pression sur la touche (merci encore Mytå) 
  Else 
    If KeyAscii = 46 Then KeyAscii = 44 
    If (KeyAscii = 44 Or KeyAscii = 46) And InStr(Valeur_Epaisseur_Parois, ",") > 1 Then KeyAscii = 0 
  End If 
End Sub


.Range("D" & .Range("D65536").End(xlUp).Row + 1) = Me.Valeur_Epaisseur_Parois


Merci à tout le monde.
A voir également:

2 réponses

Réponse 1 / 2
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Salut le forum

Utilise CDbl ou CDec pour convertir la valeur de la TextBox

CDec(Me.TextBox1)

Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
0
Réponse 2 / 2
Thaxou Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Un gros merci pour la réponse rapide, ça marche impeccablement :D

Bon sang, soit je sais pas chercher, soit j'ai pas tout compris à la formation Excel VBA que j'ai fait en début d'année.

Merci et bonne fin de soirée à tout le monde.
0