Discussion :

[Accessifiante]

Bonjour,

J'ai un userform qui sert à remplir plusieurs colonnes d'un tableau, en trouvant la dernière ligne vide disponible. Ma colonne A doit contenir des valeurs numériques et j'y ai mis un format personnalisé 00"-"00

Cependant, le nombre à 4 chiffres saisi dans la textbox qui correspond à la colonne A, arrive en format texte dans la feuille Excel, et je me retrouve avec le petit triangle vert et "Nombre stocké sous forme de texte" et mon format personnalisé ne marche pas.

Avez-vous la solution à ce problème ?

Merci beaucoup.

[Docmarti]

Bonjour Accessifiante

Ceci devrait faire l'affaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 
 Set r = Range("A13:A" & Rows.Count)
 'Si tu veux modifier le format des cellules par VBA
 r.NumberFormat = "00" & Chr(34) & "-" & Chr(34) & "00"
 
 'Pour entrer une valeur numérique entière dans toutes les cellules du champ
 'Utilise la fonction de conversion CLng
 r.Value = CLng(TextBox1.Value)
 
End Sub

[GoFio]

Bonjour,

Tu peux également utiliser CdBl

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Conversion ()
Dim y as double
y=CDbl(TextBox.Value)
End Sub

tu peux regarder sur ce lien aussi pour voir les différentes conversion d'un type à l'autre (partie VII)
http://silkyroad.developpez.com/VBA/LesVariables/#LVII

Tu peux tester ça aussi, je ne sais pas trop si ça va fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If IsNumeric(CDbl(TextBox.Value)) Then
    ton code
Else
    MsgBox("Vous n'avez pas rentré une valeur numérique")
End If