Private Sub CommandButton1_Click()
Dim deb As Byte, i As Byte, v
deb = 50 * MultiPage1.Value
For i = deb To deb + 49
v = Controls("TextBox" & i + 1).Value
If i Mod 10 = 9 And IsDate(v) Then v = CDate(v)
[B12].Offset(2 * (i Mod 10), Int((i - deb) / 10)) = v
Next
Unload Me
End Sub
Private Sub Multipage1_Change()
Dim deb As Byte, i As Byte
Sheets("Page" & MultiPage1.Value + 1).Activate 'feuille concernée
deb = 50 * MultiPage1.Value
For i = deb To deb + 49
With Controls("TextBox" & i + 1)
.Value = [B12].Offset(2 * (i Mod 10), Int((i - deb) / 10))
If i Mod 10 = 4 Then .Value = Format(.Value, "00000") 'code postal
If i Mod 10 = 6 Or i Mod 10 = 7 Then .Value = Format(.Value, "0000000000")
End With
Next
End Sub
Private Sub UserForm_Initialize()
MultiPage1.Value = Val(Replace(ActiveSheet.Name, "Page", "")) - 1
Multipage1_Change
End Sub