TextBox valeur en texte
Résolu
lolo24150
Messages postés
39
Date d'inscription
Statut
Membre
Dernière intervention
-
lolo24150 Messages postés 39 Date d'inscription Statut Membre Dernière intervention -
lolo24150 Messages postés 39 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- TextBox valeur en texte
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Mettre un texte en majuscule - Guide
- Texte en gras - Guide
2 réponses
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
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)
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
É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