Format Texte en Nombre

[Temjeh]

Bonjour et merci d'avance
Oui encore des nombres en textes

J'ai ceci:
TextBox11.Value = Format(CDbl(TextBox11), "0000 0000 0000 0000")
ActiveCell.Offset(6, 6) = TextBox11.Value

J'ai fais le tour du forum et rien vraiment trouver.
Mes données nombre en cell reste toujours du texte avec un apostrophe
J'ai aussi essayé VAL() et aussi *1 mais sans succès
Aussi macro convertir ...terminer.

Temjeh

 

[david84]

Re : Format Texte en Nombre

Bonjour,
sans fichier, je ne peux tester.
A tester :

TextBox11.Value =CDbl( Format(TextBox11, "0000 0000 0000 0000"))

A+

 

[Victor21]

Re : Format Texte en Nombre

Bonjour.

A ma connaissance, la précision d'affichage des nombres est de 15 chiffres (Excel XP).
Ainsi 1234567890123456 en A1 au format [>=1000000000000000]####" "####" "####" "####;Standard
affichera 1234 5678 9012 3450.

 

[Temjeh]

Re : Format Texte en Nombre

Bonjour

TextBox11.Value =CDbl( Format(TextBox11, "0000 0000 0000 0000")) n'est pas bon
Aussi si je change le format de la cell il reviens à texte après l'import

Ci-joint un basic

Temjeh

 

[Temjeh]

Re : Format Texte en Nombre

Juste une réflexion
Si j'avais l'option ignorer l'erreur en vba ferait mon bonheur

Merci

Temjeh

 

[david84]

Re : Format Texte en Nombre

Re
à tester :

Private Sub CommandButton1_Click()
TextBox1.Value = Format(TextBox1, "0000 0000 0000 0000")
Range("A1") = CDbl(TextBox1.Value)
Unload Me
End Sub

A+

 

[Temjeh]

Re : Format Texte en Nombre

Merci j'ai trouvé
Je n'avais pas vraiment besoin du format dans le TexTbox (qui faisait prob)
Je l'ai supprimé et pris le format de victor21

Juste: Range("A1") = TextBox1.Value avec le format ####" "####" "####" "####

Merci

 

[Temjeh]

Re : Format Texte en Nombre

Merci aussi david c'est bon

Temjeh

 

[Temjeh]

Re : Format Texte en Nombre

Bonjour

J'ai remarquai un bub dans mon code!
Il arrondi mon dernier chiffre!

TextBox1.Value = Format(TextBox1, "0000 0000 0000 0000")
Range("A1") = CDbl(TextBox1.Value)
Unload Me

Exemple 7210029689713347 me donne 7210029689713350

Merci pour une solution

Temjeh

 

[Tibo]

Re : Format Texte en Nombre

Bonsoir,

Victor21, alias Patrick, t'indiquait dans son message :

...A ma connaissance, la précision d'affichage des nombres est de 15 chiffres (Excel XP).
Ainsi 1234567890123456 en A1 au format [>=1000000000000000]####" "####" "####" "####;Standard
affichera 1234 5678 9012 3450...

Je confirme.

@+

 

[Temjeh]

Re : Format Texte en Nombre

Ok merci beaucoup
Existe-t-il en code vba une façon de lui dire d'ignorer l'erreur afin
d'y enlever le triange vert en haut à gauche de la cell

Merci

Je peut décocher la vérification mais j'en ai besoin ailleur

 

[david84]

Re : Format Texte en Nombre

Bonsoir,

Existe-t-il en code vba une façon de lui dire d'ignorer l'erreur afin
d'y enlever le triange vert en haut à gauche de la cell

peut-être comme ceci :

Private Sub CommandButton1_Click()
Application.ErrorCheckingOptions.NumberAsText = False
TextBox1.Value = Format(TextBox1, "0000 0000 0000 0000")
Range("A1") = TextBox1.Value
Unload Me
End Sub

A+

 

[Temjeh]

Re : Format Texte en Nombre

Merci
J'avais cette option mais j'en ai besoin pour ailleurs dans le doc.
Je cherchais plus choisir ignorer l'erreur

Merci

Temjeh

 

[david84]

Re : Format Texte en Nombre

Re

Je cherchais plus choisir ignorer l'erreur

pas testé mais je pense qu'il te suffit de choisir parmi les propriétés proposées par l'objet dans l'aide d'Excel celle qui pourrait te convenir

BackgroundChecking
EmptyCellReferences
EvaluateToError
InconsistentFormula
IndicatorColorIndex
NumberAsText
OmittedCells
TextDate
UnlockedFormulaCells

.

J'avais cette option mais j'en ai besoin pour ailleurs dans le doc.

Au début de tes autres codes repasser la propriété désactivée à true.
A+