Soucis Textbox [VBA Excel 2003] Résolu

Question

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.

Mytå · Answer

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)]

Thaxou · Answer

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.

Soucis Textbox [VBA Excel 2003]

2 réponses

Votre réponse

Newsletters