[Toutes versions] Conserver les données rentrées dans un Userform

voici par exemple une sauvegarde dans un nouveau classeur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
 Dim c As Control
 Dim wk As Workbook 'Classeur destinatire sauvegarde
 Dim sh As Worksheet 'Feuille destinataire
 Dim i As Integer
 Set wk = Workbooks.Add ' Nouveau classeur
 Set sh = wk.Sheets(1) ' Sauvegarde sur 1° Feuille
 For Each c In Me.Controls
 
 
   If TypeName(c) = "TextBox" Then 'Boucle sur les textbox de l'userform
    i = i + 1
    sh.Cells(1, i) = c.Name 'Nom du text Box en ligne 1
    sh.Cells(2, i) = c.Text 'Valeur saisie en ligne 2
   End If
 Next
  Me.Hide 'Ferme fenêtre
 
End Sub