Sujet Précédent Sujet Suivant

Soucis Textbox [VBA Excel 2003]

Résolu/Fermé
Thaxou Messages postés 8 Date d'inscription dimanche 5 septembre 2010 Statut Membre Dernière intervention 7 septembre 2010 - Modifié par Thaxou le 7/09/2010 à 23:41
Thaxou Messages postés 8 Date d'inscription dimanche 5 septembre 2010 Statut Membre Dernière intervention 7 septembre 2010 - 7 sept. 2010 à 23:55
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 mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 951
Modifié par Mytå le 7/09/2010 à 23:53
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 dimanche 5 septembre 2010 Statut Membre Dernière intervention 7 septembre 2010
7 sept. 2010 à 23:55
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