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
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