vba "nombre dans cette cellule est au format texte"Résolu/Fermé

Question

Salut les amis, 
Dans un userform je saisis des valeurs dans les textbox pour les transférer ensuite par une commande VBA dans les cellules du classeur  "Range("B5").Value = TextBox1.Value" , mais dans les cellules un message apparaît "nombre dans cette cellule est au format texte"
j'ai essayé de corriger ce code pour que les valeurs seront transmis au format nombre :

Range("B5").Value = TextBox1.Value

par :

Range("B5").Value = val(TextBox1.Value)

Range("B5").Value = cnum(TextBox1.Value)

mais le résultat est le même 
Merci d'avance


Configuration: Windows / Chrome 84.0.4147.125

Yoyo01000 · Answer

Bonsoir,

la commande
 Range("B5").Value = TextBox1.Value 
est la bonne 
 
Le problème doit venir du format de la cellule en B5 reste à savoir pourquoi celle-ci transforme le texte en nombre.

Regardez le format de cellule avant et après l'exécution du code et regardez aussi s'il n'y a pas une ligne de code qui fait transformer le formatage de cette cellule.

Question, les nombres saisis dans la TextBox comporte-t-il des décimales ? Si oui, quel en est le séparateur ?

noe2008 · Answer

salut yoyo , voila le code entier
Private Sub CommandButton6_Click()
Range("B5").Value = TextBox1.Value
Range("C5").Value = TextBox17.Value
Range("D5").Value = TextBox18.Value
Range("E5").Value = TextBox19.Value
Range("F5").Value = TextBox20.Value
Range("G5").Value = TextBox21.Value
Range("H5").Value = TextBox22.Value
Range("I5").Value = TextBox23.Value

End Sub

eriiic · Answer

Bonjour à tous,

déjà remet tes cellules au format standard pour faire le ménage.
Ensuite Range("B5").Value = cdbl(TextBox1.Value) devrait aller
eric

noe2008 · Answer

Merci eriiic ça marche

Vba "nombre dans cette cellule est au format texte"

4 réponses

Newsletters