TextBox valeur en texte Résolu/Fermé

Question

Bonjour, 
J'apprends mais doucement le VBA.
J'aimerai lorsque j'enregistre mon formulaire que les valeurs mises dans les TextBox soient transformer au format numérique pour une utilisation avec formule après sur la feuille de données.Actuellement les données lors de l'enregistrement sont au format texte.
Ci-après le code:

Option Explicit
Dim Ws As Worksheet

Private Sub CommandButton1_Click()
'Pour le bouton Nouveau enregistrement
    Dim L As Integer

    If MsgBox("Confirmez-vous l’insertion de ce nouveau enregistrement ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then

        L = Sheets("Données").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide

        Range("A" & L).Value = Now
        Range("B" & L).Value = ComboBox1
        Range("C" & L).Value = TextBox7
        Range("D" & L).Value = TextBox8
        Range("E" & L).Value = TextBox1
        Range("F" & L).Value = TextBox2
        Range("G" & L).Value = TextBox3
        Range("H" & L).Value = TextBox4
        Range("I" & L).Value = TextBox5
        Range("J" & L).Value = TextBox6
        Range("L" & L).Value = TextBox9
        
           
    End If
End Sub
Private Sub CommandButton2_Click()
'Pour le bouton Quitter
    Unload Me
End Sub


Merci par avance.

Configuration: Windows / Firefox 45.0

Patrice33740 · Answer

Bonjour,

Pour transformer un texte en nombre tu disposes de plusieurs fonctions selon le format numérique désiré, les plus utiles dans ton cas :
- CLng Convertit en Entier long 
- CDbl  Convertit en Double (nombre standard double précision)

Mais il y a aussi 
- CInt  Convertit en Entier (... court)
- CSng Convertit en Simple (... précision) 
- CCur Convertit en Devise (Monétaire)
- CDec Convertit en Décimal

Par exemple
  Range("E" & L).Value = CInt(TextBox1.Value)

lolo24150 · Answer

Bonjour et merci pour ta réponse, cela marche mais si la Textbox est non remplie cela me met une erreur d’exécution type 13 sur la première des Textbox vide.
Également est-il possible d'avoir le même résultat final à l'enregistrement si on a les TextBox avec un nombre décimal avec un "." au lieu d'une ",".
Merci
Loïc

TextBox valeur en texte

2 réponses

Discussions similaires