VBA - Excel

comment généralisé cette formule

TextBox41.Value = Format(Nombre41, "0.000")

pour i (textBox), i varie de 0 à 120

Bonjour Rachid, bonjour le forum,

On ne sait pas ce que c'est ni ce que vaut Nombre41 ?

Sinon essaie comme ça avec le code c-dessous à l'initialisation de l'UserForm :

Private Sub UserForm_Initialize()[/color]
Dim CTRL As Control
Dim NB As Byte
Dim Nombre41 As Single 'à adapter

'Nombre41 = ???
For Each CTRL In Me.Controls
    If TypeOf CTRL Is MSForms.TextBox Then NB = NB + 1
Next CTRL
For I = 0 To NB - 1
    Me.Controls("TextBox" & I).Value = Format(Nombre41, "0.000")
Next I
End Sub

Si ta TextBox se trouve sur un onglet et pas dans une UserForm le code ci-dessus ne marchera pas...