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

XL 2016 incrémentation et numérotation automatique

halecs93

XLDnaute Impliqué
Bonjour à toutes et à tous,

Je rencontre un souci (pas le seul) avec mon fichier.

Au fur et à mesure des commandes validées par un bouton en UserForm2, la numérotation s'incrémente en colonne A. Mais si je supprime une ligne, je n'arrive pas à mettre à jour la numérotation de façon à ce que cela reste en 1, 2, 3 etc.


Une idée ?

Merci par avance
 

Pièces jointes

  • OUVERTURE bis.xlsm
    360 KB · Affichages: 4
  • 1698786312641.png
    50.7 KB · Affichages: 14
Solution
re
VB:
Private Sub Cmd_bt_efface_Click()
    Worksheets("COMMANDE").Unprotect
    i = liste_materiel.ListIndex + 1
    Range("Tableau1").ListObject.ListRows(i).Delete
    Range("Tableau1[num]").Value = Evaluate("ROW(1:200)")
    liste_materiel.List = Range("Tableau1").Value
    Worksheets("COMMANDE").Protect
End Sub

halecs93

XLDnaute Impliqué
Je reviens vers vous... j'ai complété comme je l'ai pu mon fichier. En faisant quelques tests, je me suis rendu compte que le bouton "effacer" ne se comporte plus comme avant. En effet, au lieu d'effacer dans le tableau structuré la ligne sélectionnée dans le listbox, il efface systématiquement la dernière ligne du tableau. J'imagine que c'est dû au code permettant l'incrémentation de la colonne A. Je remets le fichier en téléchargement.
 

Pièces jointes

  • OUVERTURE quarto.xlsm
    351.1 KB · Affichages: 1

patricktoulon

XLDnaute Barbatruc
re
VB:
Private Sub Cmd_bt_efface_Click()
    Worksheets("COMMANDE").Unprotect
    i = liste_materiel.ListIndex + 1
    Range("Tableau1").ListObject.ListRows(i).Delete
    Range("Tableau1[num]").Value = Evaluate("ROW(1:200)")
    liste_materiel.List = Range("Tableau1").Value
    Worksheets("COMMANDE").Protect
End Sub
 

Discussions similaires

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