Bonjour à tous,
je créer ce nouveau fil étant donné que le titre est plus d'actualité que l'ancien.
alors, voila je chercher à enregistrer le donnés en format value
merci Bloomby
je créer ce nouveau fil étant donné que le titre est plus d'actualité que l'ancien.
alors, voila je chercher à enregistrer le donnés en format value
Code:
Sub Record_data()
Dim n As Integer
Dim t(2, 39) As String
For n = 31 To 69
t(0, n - 31) = UserForm1.Controls("TextBox" & n).Value
t(1, n - 31) = UserForm1.Controls("TextBox" & 1000 + n).Value
t(1, n - 31) = UserForm1.Controls("ComboBox" & n).Value
Next n
Sheets("1").[C2:AO4] = t
merci Bloomby