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

Pièces jointes

  • Suivi A.S-1.xlsm
    106 KB · Affichages: 8
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…