guenfood
XLDnaute Occasionnel
Bonjour,
J'ai le code suivant sur un bouton de validation d'un userform :
Lors de l'exécution de ce code, j'ai un message d'erreur d'exécution '1004', et lorsque je clique sur 'débogage', j'ai le code
qui est surligné.
Où est l'erreur ?
Merci par avance.
J'ai le code suivant sur un bouton de validation d'un userform :
Code:
Private Sub CommandButton1_Click()
'sélection de la feuille
If Formulairedesaisie.OptionButton1 = True Then feuille = 2
If Formulairedesaisie.OptionButton2 = True Then feuille = 3
If Formulairedesaisie.OptionButton3 = True Then feuille = 4
'Enregistrement des données sur la feuille
Sheets(feuille).Range('A3').End(xlDown).Offset(1, 0) = Sheets(feuille).Range('A3').End(xlDown) + 1
Sheets(feuille).Range('A3').End(xlDown).Offset(0, 1) = Formulairedesaisie.Datereception
Unload Me
ActiveWorkbook.Save
End Sub
Lors de l'exécution de ce code, j'ai un message d'erreur d'exécution '1004', et lorsque je clique sur 'débogage', j'ai le code
Code:
Sheets(feuille).Range('A3').End(xlDown).Offset(1, 0) = Sheets(feuille).Range('A3').End(xlDown) + 1
Où est l'erreur ?
Merci par avance.