Format TextBox numérique (code postal)

H

Habitude

XLDnaute Accro

• 11 Juin 2010

• #2

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Juin 2010

• #3

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 11 Juin 2010

• #4

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

Code:

.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

 

Dernière édition: 11 Juin 2010

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 11 Juin 2010

• #5

Re : Format TextBox numérique (code postal)

le fil,

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Juin 2010

• #6

Re : Format TextBox numérique (code postal)

Bonsoir

Il existe un format de code postal dans Excel

Code:

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

 

Vote positif 0 Vote négatif