Bonjour,

Je me suis decidé à faire un formulaire de saisie pour le listing de ma mère.
Mais j'ai un petit soucis.
Il me sort une erreur 1004 'erreur définie par l'application ou par l'objet'

VB est vraiment pas mon truc, donc je suis un peu largué.
En cliquant sur Debogage, il me surligne ca:
ActiveCell.Offset(1, 0).Range("A1").Select

Si je remplace par: "ActiveCell.Offset(0, 0).Range("A1").Select" tout marche mais le formulaire saisit dans la derniere ligne du listing (65xxx) et si je le relance, il me ressaisit dans la meme ligne et ecrase la precedente.

En modifiant le 2eme zeros, on modifie la colonne d'origine donc le premier 0 devrait etre la ligne, pourquoi il n'accepte pas la ligne 1 ?

Code complet du module
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Sub Saisie()
Range("A2").Select: Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
With Frmtest
.Show
End With
End Sub
Code complet du formulaire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub BtnAnnuler_Click()
Unload Me
End Sub
 
Private Sub BtnOK_Click()
With ActiveCell
If OptHomme Then .Offset(0, 0).Value = "M."
If OptFemme Then .Offset(0, 0).Value = "Mme."
If OptJeune Then .Offset(0, 0).Value = "Mlle."
.Offset(0, 1).Value = UCase(TxtNom)
.Offset(0, 2).Value = TxtPrenom
.Offset(0, 3).Value = TxtAdresse
If OptCogolin Then .Offset(0, 4).Value = "83310  -  Cogolin"
If OptGrimaud Then .Offset(0, 4).Value = "83310  -  Grimaud"
If OptMole Then .Offset(0, 4).Value = "83310  -  La Mole"
If OptTropez Then .Offset(0, 4).Value = "83990  -  Saint-Tropez"
If OptCavalaire Then .Offset(0, 4).Value = "83240  -  Cavalaire"
End With
Unload Me
End Sub
Si quelqu'un peut m'aider, ca serait sympa.