Discussion :

[KTMARC]

Salut Chers tous
Jai une base de données que je renseigne grâce à un formulaire
Jusque la lorsque je lance le bouton enregistrer la macro enregistre les données saisies en A2 ; B2; C2 et inserre une nouvelle ligne au dessus .
J aimerais que ce soit le contraire.
Enregistrer les données en A2 ; B2; C2 et passer à la ligne en dessous. Merci

[BENNASR]

bonjour
commence par afficher ton code entre balise (#) si non je crois pas que tu aura une réponse

[Thautheme]

Bonjour le fil, bonjour le forum,

D'accord avec Bennasr ! Mais avec un début de code à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)
 
Set OD = Worksheets("Feuil1") 'définit l'onglet destination OD (à adapter à ton cas)
'définit la première ligne vide PLV de la colonne A de l'onglet OD (1, si A1 est vide, sinon, la ligne de la première cellule vide de la colonne A de l'onglet OD)
PLV = IIf(OD.Range("A1").Value = "", 1, OD.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1)
OD.Cells(PLV, "A").Value = TextBox1.Value 'récupère dans la colonne A la valeur du contrôle (à adapter à ton cas)
OD.Cells(PLV, "B").Value = TextBox2.Value 'récupère dans la colonne B la valeur du contrôle (à adapter à ton cas)
OD.Cells(PLV, "C").Value = TextBox3.Value 'récupère dans la colonne C la valeur du contrôle (à adapter à ton cas)
'supprime la ligne de code qui insère une ligne audessus...

[Theze]

Bonjour,

Insertion sous A2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("A2").Offset(1).EntireRow.Insert