XL 2016 incrémentation et numérotation automatique

[halecs93]

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

 

[patricktoulon]

bonsoir

 

[halecs93]

bonsoir

Bonjour et un grand merci.

 

[halecs93]

bonsoir

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.

 

[patricktoulon]

re

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]

re

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

Au top...encore un grand merci

 

[patricktoulon]

re
je l'ai refait à ma façon
j'ai ajouté un bouton pour éventuellement modifier une ligne

 

[halecs93]

re
je l'ai refait à ma façon
j'ai ajouté un bouton pour éventuellement modifier une ligne

Bien vu... le bouton "modification" était en cours en effet