Imposer un format TextBox

Bonjour,

Je souhaite imposer un format à plusieurs textbox via les propriétés ou peut-être un code ?

Exemple :

TextBox 2 doit être en %

TextBox4 doit être en %

TextBox3 doit être en €/ha

TextBox5 en €/ha

TextBox7 en €/ha

TextBox8 en €/ha

TextBox39 à 44 en €

TextBox53 à 59 en €

TextBox46 à 52 en date jj/mm/aaaa

TextBox46 à 52 en date jj/mm/aaaa

TextBox9 à 38 en format 1.000 soit trois chiffres après la virgule et 1 maximum.

Est-ce possible?

Je vous remercie

Bonjour bessedela,

Aurais-tu un fichier à nous joindre ?

Ca serait plus simple

Merci.

Merci.

Voila un fichier.

Bien à toi,

Bonjour le fil, bonjour le forum,

Voilà comment je procède car je ne suis pas très doué pour les formats de cellule.

• Je lance l'enregistreur de macro

• je sélectionne une cellule qui contient le format que je veut reproduire

• j'utilise le raccourci clavier [CTRL]+[1] pour ouvrir la boîte de dialogue Format Cellule

• je modifie le format puis revient au format initial (pour que la macro l'enregistre)

• je ferme l'enregistreur de macro

• Dans l'éditeur VBE (Visual basic Editor) je retrouve le format enregistré par la macro que je viens de créer

• je le copie

• pour finir je remplace : TextBox(x).Value = Range("XX").Value par TextBox(x).Value = Format(Range("XX").Value, "ici tu colles le format copié")

Ça donne :

TextBox2.Value = Format(Range("I12").Value, "0.0%")
TextBox3.Value = Format(Range("I20").Value, "#,##0.00"" €/ha""")
TextBox39.Value = Format(Range("C50").Value, "#,##0.00 €")
TextBox52.Value = CDate(Range("D56").Value)

Etc... Je te laisse le soin de continuer... À la fin tu peux supprimer les diverses macro enregistrées...

Ca fonctionne !

Merci