Renvoi du format des textbox

bonsoir a tous

je cherche comment renvoyer dans les cellules ma feuille le format des textbox en chiffre ou monétaire quand je valide par ce code

car si j'ai bien tout compris un textbox ne renvois pas des chiffre comme on pourrais le penser et le voir mais du texte

car sur ma feuille "data" j'ai besoin de faire une addition cependant certain textbox on du texte d'autre des chiffre d'autre le format monétaire

Private Sub C29_Click()    'bouton valider les poids dans le tableau Data + Databl
    Dim ln, i
    If MsgBox("Attention vous allez valider les poids définitivement?", vbYesNo, "Validation des poids") = vbYes Then
        ln = C27.ListIndex + 3
        For i = 1 To 246
            Sheets("Data").Cells(ln, i) = Controls("T" & i).Value
        Next
        ln = C27.ListIndex + 3
        For i = 1 To 246
            Sheets("DataBl").Cells(ln, i) = Controls("T" & i).Value
        Next
        Unload Me
    End If
End Sub

amicalement

Bonjour,

En fait, tu dois utiliser dans ton code VBA l'instruction Format ...

par exemple

   =Format(Controls("T" & i).Value,"dd/mm/yy")

A+