formulaires base données

[toune21]

Bonjour à tous,

J'ai une base de données adhérents j'ai crée une macro pour enregistrer mes adhérents.
Quand je clique sur mon bouton "enregistrer" la fiche va bien dans ma base et vide mon formulaire. Jusque là pas de pb.
Mais quand je créee mon deuxième adhérent et je clique sur le bouton enregistrer il le met sur la meme ligne donc j'ai perdu mon premier adhérent.
Je voudrais que mes fiches s'enregistre les unes après les autres.
Je joints mon fichier.
J'ai du faire une erreur dans ma macro, je suis dessus demain ce matin 5 heures et je ne trouve pas.
Si quelqu'un peut m'aider
Merci à tous

Je n'ai sais plus comment inserer mon fichier ?

 

[toune21]

Re : formulaires base données

Bonjour,
voici le fichier de mes adherents
J'espère que j'ai fait la bonne manip.
A +

 

[Catrice]

Re : formulaires base données

Bonjour,

Pour joindre le fichier, il faut cliquer sur le trombone.

Pour répondre à ta question, il faut sans doute rajouter un bout de code comme :
Offset(1, 0) à la ligne qui ajoute les données

Essai ce bout de code pour mieux comprendre :
Sub Test1()
Range("A65536").End(xlUp).Offset(1, 0).Value = "test"
End Sub

 

[Catrice]

Re : formulaires base données

Re,

Ci-joint un exemple.
PS - c'est mieux d'enrgistrer le fichier dans une version antérieure à 2007 😉

 

[toune21]

Re : formulaires base données

Bonjour, Catrice

Merci, j'ai bien chargé le fichier, il fait erreur de compil.

 

[Catrice]

Re : formulaires base données

Re,

Chez moi, il fontionne bien.
Je suis en Excel XP mais normalement la compatibilité est assurée dans ce sens ...
Essaie celui-ci

 

[toune21]

Re : formulaires base données

Salut mais tu es formi.. formi... formidable. 🙂
Merci beaucoup
Maintenant est ce que je pourrai rajouter des colonnes ?
A plus

 

[Catrice]

Re : formulaires base données

Re,

Oui tu peux rajouter des colonnes.
S'il y a plus de lignes sur le formulaire et donc plus de colonnes, il faut modifier ce qui en rouge:
Sheets("formulaire").Range("B1:B6").Copy
6 = derniere ligne du formulaire
et
For Each X In Sheets("base de données").Range("A65536:F65536")
F = derniere colonne de la base
et
Sheets("formulaire").Range("B1:B6")

 

[toune21]

Re : formulaires base données

Catrice, merci beaucoup je ne connais pas tout les termes du VBAen fait cette macro je l'ai construite en le faisant autotmatique. Tu sais enregistrer une macro,..... arreter la macro.
Merci et bonne journée.

 

[toune21]

Re : formulaires base données

Bonjour catrice, et à vous tous
J'ai pris mon travail
Voila ma liste adhérents. Beaucoup de colonnes ... J'ai rajouté des colonnes, mais dans certaines colonnes j'ai des formules. J'ai une formule qui fonctionne dans la base de donnée mais pas dans le formulaire. Pour l'instant sur cet exemple j'ai le résultat voulu. Je ne me suis pas servi de la macro "transpose dans tableau". car elle enregistre dans la base et efface le formulaire.
J'ai des formules dans le formulaire alors comment faire pour vider le formulaire en gardant les formules ?
Je pose mes questions une par une OK
Merci et a plus de vous lire MM