Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Probleme Formulaire VBA bouton Ajouter

Elie1211

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

XLDnaute Barbatruc
Bonjour à tous, toutes,
Essai ceci (voir fichier joint ):
Code:
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
 

Pièces jointes

  • test.xls
    50 KB · Affichages: 4
Dernière édition:

Elie1211

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

Pièces jointes

  • Capture d’écran (50).png
    318.4 KB · Affichages: 14

Elie1211

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

Pièces jointes

  • Suivi A.S.xlsm
    112 KB · Affichages: 3

Elie1211

XLDnaute Nouveau
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?
 

Elie1211

XLDnaute Nouveau
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…