Renseigner un tableau grâce à une macro

[KTM]

Bonjour 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

 

[job75]

Bonjour KTM,

Il aurait été bien de joindre le fichier avec le formulaire et la macro existante.

En son absence voyez celui-ci et le code de l'UserForm :

Private Sub CommandButton1_Click()
Dim ncol%, col%, i&, lig&
ncol = 3 'nombre de colonnes à renseigner
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 'si la feuille est filtrée
For col = 1 To ncol
    i = Cells(Rows.Count, col).End(xlUp).Row + 1
    If i > lig Then lig = i
Next
For col = 1 To ncol
    Cells(lig, col) = Me("TextBox" & col)
    Me("TextBox" & col) = ""
Next
End Sub

A+

 

[KTM]

Bonjour KTM,

Il aurait été bien de joindre le fichier avec le formulaire et la macro existante.

En son absence voyez celui-ci et le code de l'UserForm :

Private Sub CommandButton1_Click()
Dim ncol%, col%, i&, lig&
ncol = 3 'nombre de colonnes à renseigner
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 'si la feuille est filtrée
For col = 1 To ncol
    i = Cells(Rows.Count, col).End(xlUp).Row + 1
    If i > lig Then lig = i
Next
For col = 1 To ncol
    Cells(lig, col) = Me("TextBox" & col)
    Me("TextBox" & col) = ""
Next
End Sub

A+

Oui ! Je vous ramène le fichier avec mon cas pratique en feuille 2. les colonnes a renseigner sont celles en jaune. Merci