Format TextBox numérique (code postal)

[Provence Vintage]

Bonjour le forum,

je voudrais savoir si quelqu'un a une idée sur le bug suivant:

# If TextBox14 = "" Then
.Cells(b, 14) = "00 000"
Else
.Cells(b, 14) = CInt(TextBox14)
End If#

lorsque je fais une modif sur mon usf,
ce bout de code qui me permet d'enregistrer dans une bdd bloque!
la raison: "dépassement de capacité"?

merci à celle et ceux qui ont des pistes

a+

 

[Habitude]

Re : Format TextBox numérique (code postal)

D'abord tu convertis en nombre. Pourquoi ne pas passer du texte ?

Ensuite, Int à un maximum. Soit 32 767.
Donc essaie avec CDBL()
Double se limite à 1,79769313486231E308.

 

[tototiti2008]

Re : Format TextBox numérique (code postal)

Bonjour,

de mémoire un integer est limité à 65536, or un code postal peut être supérieur
essaye de remplacer CInt par CLng

Edit : Bonjour Habitude, ah oui c'est ça, de -32 767 à +32767 ou un truc comme ça

 

[Dull]

Re : Format TextBox numérique (code postal)

Salut Provence Vintage, le Forum

pas sur d'avoir compris mais vraiment pas sur du tout

essaye ça

.Cells(b, 14) = IIf(TextBox14 = "", Format(.Cells(b, 14), "00 000"), CInt(TextBox14))

il vaudrait mieux que tu mette le code complet... mieux un bout de ton fichier avec ce que ta as et ce que tu veux

EDITION: Habitude🙂, Tototiti🙂... mes Salutations

Bonne Journée

 

[Provence Vintage]

Re : Format TextBox numérique (code postal)

le fil,

merci à tous,
CLng fonctionne bien
a+ sur le fil

 

[Staple1600]

Re : Format TextBox numérique (code postal)

Bonsoir

Il existe un format de code postal dans Excel

Sub Macro1()
With [A1]
    .Clear
    .Formula = "=35*10^3"
    .NumberFormat = "00000" [COLOR=Green]' format Code postal[/COLOR]
End With
End Sub