Renseigner tableau avec formulaire

[KTM]

Salut à tous
J'ai conçu un tableau que je voudrais renseigné avec un petit formulaire et j'ai besoin d'un ptit coup de main.
La saisie commence par la ligne 8
1- Pour le bouton Enregistrer je voudrais que les dates soient au format dd-mm-aaaa
Je voudrais que la dernière ligne enregistrée ait le même format que la ligne de dessus avec les formules.

2- Le bouton Supprimer devra supprimer le dernier enregistrement
Vous pouvez voir le fichier joint -------------Merci!!

 

[job75]

Bonjour KTM,

Le code de l'UserForm :

Private Sub CommandButton1_Click() 'Enregistrer
Dim Ls As Long, a()
Ls = Cells(Rows.Count, 2).End(xlUp).Row
If Ls < 7 Then Exit Sub
ReDim a(1 To 7)
a(1) = Cells(Ls, 1).FormulaR1C1
If IsDate(TextBox1) Then a(2) = CDate(TextBox1)
a(3) = "=R[-1]C[4]"
a(4) = Val(Replace(TextBox2, ",", "."))
a(5) = Val(Replace(TextBox3, ",", "."))
a(6) = Val(Replace(TextBox4, ",", "."))
a(7) = Cells(Ls, 7).FormulaR1C1
Cells(Ls, 1).Resize(, 7).Copy Cells(Ls + 1, 1) 'pour copier les formats
Cells(Ls + 1, 1).Resize(, 7) = a 'restitue le tableau
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
End Sub

Private Sub CommandButton2_Click() 'Supprimer
Dim Ls As Long
Ls = Cells(Rows.Count, 2).End(xlUp).Row
If Ls > 7 Then Cells(Ls, 1).Resize(, 7).Delete xlUp
End Sub

A+

 

[KTM]

Merci infiniment