XL 2010 convertir en texte des références numériques

[counterbob]

Bonjour
Dans un textbox d'un formulaire VBA des références articles sont numériques et font plus de 30 caractères.
Lorsque la valeur est renvoyée dans une cellule cette valeur est en numérique avec des puissances.
Exemple je saisi la référence 9876543210987654321 la valeur renvoyée est 9,87654E+18.
j"ai essayé Cstr
c'est pas bon
j'ai essayé
f.Cells(noenreg, 10).NumberFormat = "@"
c'est pas bon non plus
Merci pour une idée
@+

 

[Staple1600]

Bonsoir le fil, le forum

Ajoute un ' dans ta chaîne (au début)
Sub test()
Dim chaine$, noenreg&
chaine = "9876543210987654321"
noenreg = 1
Cells(noenreg, 10) = "'" & chaine
End Sub

 

[counterbob]

Bonsoir le fil, le forum

Ajoute un ' dans ta chaîne (au début)
Sub test()
Dim chaine$, noenreg&
chaine = "9876543210987654321"
noenreg = 1
Cells(noenreg, 10) = "'" & chaine
End Sub

Trop facile
Merci beaucoup
Bonne soirée