Erreur d'exécution '1004'

[guenfood]

Bonjour,

J'ai le code suivant sur un bouton de validation d'un userform :

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

Sheets(feuille).Range('A3').End(xlDown).Offset(1, 0) = Sheets(feuille).Range('A3').End(xlDown) + 1

qui est surligné.

Où est l'erreur ?

Merci par avance.

 

[guenfood]

Pardon,

Voici le fichier 😱 [file name=test_20060420115004.zip size=14329]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060420115004.zip[/file]

 

[Hervé]

re

en piece jointe ton fichier modifié.

salut [file name=test_20060420132108.zip size=17856]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060420132108.zip[/file]

 

[guenfood]

Chapeau bas Môssieur Hervé B)

Une dernière petite chose.

Sur le Userform, j'ai les optionbuttons 'Oui' et 'Non'.

Je souhaiterais que si 'Oui' coché, ca me remplisse ma case 12 avec la valeur 'Oui', ou de préférence une 'X', et si 'Non' coché, ce soit la case 13.

J'ai essayé de modifier mais je ne suis vraiment pas doué :S

 

[Hervé]

re 🙂

fichier modifié.

salut [file name=test_20060420150528.zip size=17961]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060420150528.zip[/file]

 

[guenfood]

Génial !!!

Merci beaucoup !