Microsoft 365 Probleme Formulaire VBA bouton Ajouter

[Elie1211]

Salut A Tous,

J'ai créer un formulaire pour ajouter toutes les charges et notes de frais de mon entreprises mais quand j'ajoute les donnée dans ma base de donnée,la premiere ligne se met dans mon tableau la deuxieme aussi mais la 3 eme vient ecraser la deuxieme quelqu'un peut m'aider svp?

Voici le code du Bouton Ajouter:

Private Sub btnAjouter_Click()

Sheets("Récapitulatif A.S").Activate
Range("A2").Select
Selection.ListObject.ListRows.Add (ActiveCell.Row)
Selection.End(xlDown).Select 'Position derniere ligne non vide
Selection.Offset(1, 0).Select 'Se decaler d'une ligne vers le bas
ActiveCell = lstEntreprise.Value
ActiveCell.Offset(O, 1).Value = lstCategorie
ActiveCell.Offset(O, 2).Value = lstDate
ActiveCell.Offset(O, 3).Value = txtDescription
ActiveCell.Offset(O, 4).Value = txtMontant

Sheets("Suivi A.S").Activate

 

[Elie1211]

Re,
ça doit être bon maintenant !

sa ecrase encore la derniere ligne je comprend pas pk mais merci de m'avoir aidé quand meme c'est vriament bizarre parce que toi t'as l'air d'avoir fait plusieurs essais ou sa marcher et moi j'arrive meme pas a rentrer deux lignes sans que l'une ecrase l'autre

 

[JBARBE]

Re,
J'ai même essayé la 1ere ligne et seule le mot TOTAUX ( d'une manière définitive ) est à inscrire !
Bon courage et surtout entraine toi bien pour le VBA et l'ensemble d'Excel !
Bonne soirée !