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

 

[JBARBE]

Bonjour à tous, toutes,
Essai ceci (voir fichier joint ):

Private Sub btnAjouter_Click()
Sheets("Récapitulatif A.S").Activate
Range("A2").Select
If Range("A3") = "" Then
Range("A3").Select
Else
Selection.End(xlDown).Offset(1, 0).Select 'Position derniere ligne vide
End If
'Selection.Listobject.ListRows.Add (ActiveCell.Row)
'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

End Sub

 

[Elie1211]

Bonjour,

Merci de ta reponse j'ai essayé malheureusement le probeme n'est toujours pas résolu sa rajoute deux ligne et la 3eme vient ecraser la deuxieme et ainsi de suite j'ai poster une photo du tableau peut etre que c'est moi qui est fait une erreur

 

[JBARBE]

Re,
Peux-tu nous joindre ton fichier confidentiel !
ça sera mieux que de longues discutions pour rien !
@+

 

[Elie1211]

Ok le voici :
PS:J'aimerais bien que sa insere une nouvelle ligne plutot que sa le mette a la deriere ligne pour pouvoir rajouter la ligne des totaux a la fin

 

[JBARBE]

Re,
Il y a un mot de passe !!!!

 

[Elie1211]

Re,
Il y a un mot de passe !!!!

ah merde je croyais l'avoir enlever c'est assecure123

 

[JBARBE]

Ok le voici :
PS:J'aimerais bien que sa insere une nouvelle ligne plutot que sa le mette a la deriere ligne pour pouvoir rajouter la ligne des totaux a la fin

Re,
Je ne comprends pas!
Ou veux-tu que cela insère une nouvelle ligne ?

 

[Elie1211]

Re,
Je ne comprends pas!
Ou veux-tu que cela insère une nouvelle ligne ?

dans le tableau qui est dans la feuille "Recapitulatif A.S"

 

[JBARBE]

dans le tableau qui est dans la feuille "Recapitulatif A.S"

Je veux dire que si ce n'est pas la derniére ligne alors quelle ligne ( une de moins que la derniére ou 2 etc.....)

 

[Elie1211]

Je veux dire que si ce n'est pas la derniére ligne alors quelle ligne ( une de moins que la derniére ou 2 etc.....)

Non mais en fait j'avais suivi un tuto qui mettais les infos du formulaire a la derniere ligne du tableau, et quand j'activer la ligne des totaux sa mettais la ligne du formulaire en dessous de la ligne des totaux et donc en dehors du tableau.Donc je voudrais juste que les données du formulaire s'incrémente dans le tableau dans une nouvelle ligne a chaque fois et que je puisse mettre la ligne des totaux en bas pour avoir le total des montant a chaque fois je sais pas si tu as compris?

 

[JBARBE]

Re,
Peut-être ceci !
@+

 

[Elie1211]

Re,
Peut-être ceci !
@+

Ah ooue putain t au top mec mais tu sais pk quand je rajoute un montant il se met sous format texte dans le tableau sa fait pas le total il faut a chaque fois que je marque convertir en nombre

 

[Elie1211]

Ah merde quand j'ai voulu supprimer les données du tableau et que j'ai recommence a rentrer des donnée dans le formulaire sa a recommencé a écraser les autres lignes putain je pensais pas que c'etais aussi compliqué de faire un formulaire avec une bdd

 

[JBARBE]

Re,
ça doit être bon maintenant !