Bonsoir à tous, voilà j'ai créé un Userform avec quelques textbox dans un classeur excel, tout va bien sauf quand je les enregistrer la feuille2 cela ne se fait, elle s'enregistre sur la feuille1, je dois garder cette feuille pour mon menu.
voici l'exemple de mon code. Si quelqu'un peut m'aidé. Merci
Private Sub cmdOK_Click()
'on teste la saisie date...'
If Me.TextBox1.Text = "" Then
MsgBox "entrer la date."
Me.TextBox1.SetFocus
Exit Sub
End If
Sheets("feuil2").Range("A3").Value = Me.TextBox1
Sheets("Feuil2").Range("B3").Value = Me.TextBox2
Sheets("Feuil2").Range("C3").Value = Me.TextBox3
Sheets("feuil2").Range("D3").Value = Me.CheckBox1
Sheets("Feuil2").Range("E3").Value = Me.CheckBox5
Sheets("Feuil2").Range("F3").Value = Me.CheckBox8
Sheets("feuil2").Range("G3").Value = Me.CheckBox6
Unload Me
'Mise en place des valeurs saisies'
Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1
Range("B65536").End(xlUp).Offset(1, 0).Value = TextBox2
Range("C65536").End(xlUp).Offset(1, 0).Value = TextBox3
Range("D65536").End(xlUp).Offset(1, 0).Value = CheckBox1
Range("E65536").End(xlUp).Offset(1, 0).Value = CheckBox5
Range("F65536").End(xlUp).Offset(1, 0).Value = CheckBox8
Range("G65536").End(xlUp).Offset(1, 0).Value = CheckBox6
Onload Me
End SubConfiguration: Windows XP
Internet Explorer 7.0
Office 2000
voici l'exemple de mon code. Si quelqu'un peut m'aidé. Merci
Private Sub cmdOK_Click()
'on teste la saisie date...'
If Me.TextBox1.Text = "" Then
MsgBox "entrer la date."
Me.TextBox1.SetFocus
Exit Sub
End If
Sheets("feuil2").Range("A3").Value = Me.TextBox1
Sheets("Feuil2").Range("B3").Value = Me.TextBox2
Sheets("Feuil2").Range("C3").Value = Me.TextBox3
Sheets("feuil2").Range("D3").Value = Me.CheckBox1
Sheets("Feuil2").Range("E3").Value = Me.CheckBox5
Sheets("Feuil2").Range("F3").Value = Me.CheckBox8
Sheets("feuil2").Range("G3").Value = Me.CheckBox6
Unload Me
'Mise en place des valeurs saisies'
Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1
Range("B65536").End(xlUp).Offset(1, 0).Value = TextBox2
Range("C65536").End(xlUp).Offset(1, 0).Value = TextBox3
Range("D65536").End(xlUp).Offset(1, 0).Value = CheckBox1
Range("E65536").End(xlUp).Offset(1, 0).Value = CheckBox5
Range("F65536").End(xlUp).Offset(1, 0).Value = CheckBox8
Range("G65536").End(xlUp).Offset(1, 0).Value = CheckBox6
Onload Me
End SubConfiguration: Windows XP
Internet Explorer 7.0
Office 2000