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:

Soucis Textbox [VBA Excel 2003]
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

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

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.

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Discussions similaires

Newsletters