Format texte dans Useform

[Roni95]

Bonjour à tous,

Dans mon formulaire, j'ai une Textbox intitulée "TextN°client" qui contient des n° de clients 😀 mais ces n° commencent par le chiffre 0 et du coup dans ma base de données, le zéro ne s'affiche pas😕.

Comment faire pour que cette textbox prenne en compte ce chiffre?

Merci à vous pour votre aide.
😉

 

[mromain]

Re : Format texte dans Useform

bonjour Roni95

une solution serai d'écrire (au momment ou tu reportes les valeurs de ton USF dans ta BDD) :

Range("A1").Value = "'" & TextBox1.Value

a+

 

[Roni95]

Re : Format texte dans Useform

Bonjour mromain et merci pour ta réponse

Mais je n'arrive pas à l'intégrer, je ne suis pas un expert. Je joins le formulaire (il s'agit de "textN°client")

Merci

 

[mromain]

Re : Format texte dans Useform

re,

je pense que je ne suis pas retombé sur ton PB, an effet même si le n° client commence par des 0 ils semblent bien être affichés dans ta BDD.
cependant, voici ce que je t'avais conseillé addapté à ton code (du bouton "enregistrer") :

    ' Mise en place des valeurs saisies
     Range("A" & Range("A65536").End(xlUp).Row + 1).Value = LeContact
     Range("A65536").End(xlUp).Offset(0, 1).Value = NdeReclam
     Range("A65536").End(xlUp).Offset(0, 2).Value = CDate(DateReclam.Value)
     Range("A65536").End(xlUp).Offset(0, 3).Value = HeureReclam
     Range("A65536").End(xlUp).Offset(0, 4).Value = EnregPar
     Range("A65536").End(xlUp).Offset(0, 5).Value = ComboBox1
     Range("A65536").End(xlUp).Offset(0, 6).Value = TextMotif
     Range("A65536").End(xlUp).Offset(0, 7).Value = France
     Range("A65536").End(xlUp).Offset(0, 8).Value = Export
     Range("A65536").End(xlUp).Offset(0, 9).Value = Etabl
     Range("A65536").End(xlUp).Offset(0, 10).Value = [B][COLOR="Red"]"'" &[/COLOR][/B] TextN°client
     Range("A65536").End(xlUp).Offset(0, 11).Value = TextCP
     Range("A65536").End(xlUp).Offset(0, 12).Value = TextVille
     Range("A65536").End(xlUp).Offset(0, 13).Value = TextTelephone
     Range("A65536").End(xlUp).Offset(0, 14).Value = TextFax
     Range("A65536").End(xlUp).Offset(0, 15).Value = TextEmail
     Range("A65536").End(xlUp).Offset(0, 16).Value = TextN°Cde
     Range("A65536").End(xlUp).Offset(0, 17).Value = TextN°BL
     Range("A65536").End(xlUp).Offset(0, 18).Value = TextTrans
     Range("A65536").End(xlUp).Offset(0, 19).Value = EDI
     Range("A65536").End(xlUp).Offset(0, 20).Value = TextReponse
     Range("A65536").End(xlUp).Offset(0, 21).Value = TextDateReponse
     Range("A65536").End(xlUp).Offset(0, 22).Value = TextDelaiReponse
     Range("A65536").End(xlUp).Offset(0, 23).Value = ParCourrier
     Range("A65536").End(xlUp).Offset(0, 24).Value = ParTelephone
     Range("A65536").End(xlUp).Offset(0, 25).Value = ParFax

a+

 

[Roni95]

Re : Format texte dans Useform

Nickel !!!!

🙂🙂🙂🙂🙂

Merci mromain !