Code Postal

[apdf1]

Bonjour,

J'ai un probleme avec un textbox qui me renvoie le code postal, quand j'ai un code postal commencant par un "0" il l'ignore alors que j'avais mis le code suivant:

Private Sub TextBox6_Change()
TextBox6.MaxLength = 5
End Sub

Ma question est: Peut on mettre dans la listbox la même chose que la date?

C'est à dire :Me.TextBox3 = CDate(Me.ListBox1.List(ListIndex, 2)) '

Me.TextBox1 = Me.ListBox1.List(ListIndex, 0) ' Ref
                 Me.TextBox2 = Me.ListBox1.List(ListIndex, 1) ' Nom
                 Me.TextBox3 = CDate(Me.ListBox1.List(ListIndex, 2)) ' Date                     
                 Me.TextBox4 = Me.ListBox1.List(ListIndex, 3) ' N° Facture
                 Me.TextBox5 = Me.ListBox1.List(ListIndex, 4) ' Adresse
                 Me.TextBox6 = Me.ListBox1.List(ListIndex, 5) ' CP
                 Me.TextBox7 = Me.ListBox1.List(ListIndex, 6) ' Ville

Merci d'avance

Cordialement

Max

 

[Dull]

Re : Code Postal

Salut apdf1, le Forum

a tester

'...
Me.TextBox6 = Format(Me.ListBox1.List(ListIndex, 5), "00000") ' CP
'...

Bonne Journée

 

[apdf1]

Re : Code Postal

Salut Dull

Je te remercie sa marche impecable

Bonne journée