TextBox en format Nombre

Bonjour
svp comment transforme tous mes TexBox de mon Userform en format nombre "#,##0.00"
merci
Pièce jointe 342007

Code:

---

1 2 3

format(Cdbl(controls("textbox" & N).value),"#.00000")

---

je crois
les textbox sont en texte ( Cstr ) par défaut
le Cdbl( truc) les transforme en format double
le controls ne sers que si tu fait une boucle sur tes textbox sinon textbox1, textbox2 etc...
la boucle permet de prendre les valeurs dans un tableau en mémoire

Merci
Est ce que je mettre ce code dans UserForm_Initialize()

Code:

---

1 2 3

Private Sub UserForm_Initialize() TextBox = Format(CDbl(Controls("textbox" & N).Value), "#.00000") End Sub

---

Citation:

---

Envoyé par iliesss

Merci
Est ce que je mettre ce code dans UserForm_Initialize()

Code:

---

1 2 3

Private Sub UserForm_Initialize() TextBox = Format(CDbl(Controls("textbox" & N).Value), "#.00000") End Sub

---

---

si les textbox sont remplis si ils sont vide je ne le pense pas (perso je j'ai toujours récupéré la valeur du TB avant de la mettre en forme)
je parlé d'une boucle en vue d'un traitement des valeur ou de leu écriture dans une feuille

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() dim Tablo(x) 'x le nombre de TB for t= 1 to x tablo(t)=format(cdbl(controls("textbox" & t).value),"#.##000") next with sheets(1) .range("a1:a" & t).value= application.worksheetfunction.transpose(tablo)

---

un truc de ce genre