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

Microsoft 365 Problème boutons Supprimer et Ajouter

ERN

XLDnaute Junior
Bonjour,

Après de multiples sollicitations pour la création de mon formulaire, j'arrive au bout mais je remarque quelques incohérences qui sont surement toutes bêtes, mais je ne m'y retrouve plus.
En effet, quand je clique sur mon bouton "Ajouter" celui-ci écrase une ligne existante au lieu d'en ajouter une.
Ensuite mon bouton "Supprimer" efface bien certaines lignes sauf quand je souhaite effacer la première de mon tableau. là, c'est mon entête qui disparait.

Pourriez-vous me guider dans la résolution des ces problèmes. Je vous joins mon fichier.

Cordialement,
 

Pièces jointes

  • Bdd_fournisseurs - en cours - Copie.xlsm
    37.2 KB · Affichages: 16

kingfadhel

XLDnaute Impliqué
Bonsoir le forum,
@ERN

Pour l'ajout change ligne = Sheets("Bdd").[a1].End(xldown).Row + 1
par : ligne = Sheets("Bdd").[a10000].End(xlUp).Row + 1

et pour la suppression remplace: Sheets("Bdd").Rows(ListBox1.ListIndex + 2).Delete
par: Sheets("Bdd").Rows(ListBox1.ListIndex + 3).Delete
 

ERN

XLDnaute Junior
Merci kingfadhel,
Mon problème est réglé . Par contre je remarque que mes deux textbox de prix sont défaillante.
En effet, quand je rentre une somme manuellement, seul le premier chiffre se met en forme avec le symbole Euros et les autres chiffres ne sont pas pris en compte. Auriez-vous une idée du problème ?
 

Pièces jointes

  • Bdd_fournisseurs - en cours - Copie.xlsm
    37.7 KB · Affichages: 5

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…