[VBA-E] Formulaire de saisie.

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:

---

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:

---

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.

Essaie de remplacer le code du module par

Code:

---

1 2 3 4 5 6 7

Sub Saisie() Range("A2").Select: Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select With Frmtest .Show End With End Sub

---

Citation:

---

Envoyé par Vesta

Essaie de remplacer le code du module par

Code:

---

1 2 3 4 5 6 7

Sub Saisie() Range("A2").Select: Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select With Frmtest .Show End With End Sub

---

---

Malheuresement, toujours pareil, erreur 1004 au meme endroit.

Chez moi ca marche bien... Je ne comprend pas... joint peu etre le fichier pour voir...

Voilà:
...

Compris maintenant..;

Tu demande a excell de se placer en A2 ensuite de descendre a la fin de la selection. Si A2 est vide, alors il va a la fin et si il est a la fin, il ne peut plus descendre plus bas. Tandisque si tu met a la place de A2, A1 il prend la ligne avec l'entete des colonnes et va descendre jusqu'a ne plus rencontrer de valeurs. Cependant comme 12 est vide, il va quand meme descendre tout en bas. A ce moment, il poura descendre d'encore une et ecrire des valeurs...

fais plus simple tu selectionne la zone remplie, qui contient X lignes et tu commence a écrire la ligne suivante

Code:

---

1 2 3 4 5 6

Sub Saisie() Feuil1.Cells(Range("A1").CurrentRegion.Rows.Count + 1, 1).Select With Frmtest .Show End With End Sub

---

Merci, effectivement, ca marche beaucoup mieux comme ca.

Bon, il ne reste plus qu'à trouver comment lancer le formulaire à l'ouverture d'Excel automatiquement.


Merci encore, j'avais vu trop compliqué.

Regarde dans la partie Workbook

Evenement Workboop_Open

Finallement, c'etait pas si compliqué que ca, elle est contente, c'est le principal.

Merci encore ^^.

De rien avec plaisir...