Discussion :

[iliesss]

Bonjour
svp comment transforme tous mes TexBox de mon Userform en format nombre "#,##0.00"
merci

[Daranc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[iliesss]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daranc]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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