XL 2016 incrémentation et numérotation automatique

halecs93 · 31 Octobre 2023

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 · 1 Novembre 2023

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

patricktoulon · 31 Octobre 2023

bonsoir

halecs93 · 1 Novembre 2023

patricktoulon à dit:
bonsoir

Bonjour et un grand merci.

halecs93 · 1 Novembre 2023

patricktoulon à dit:
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 · 1 Novembre 2023

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 · 1 Novembre 2023

patricktoulon à dit:

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

Au top...encore un grand merci

patricktoulon · 1 Novembre 2023

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

halecs93 · 1 Novembre 2023

patricktoulon à dit:
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

XL 2016 incrémentation et numérotation automatique

halecs93

XLDnaute Impliqué

Pièces jointes

patricktoulon

patricktoulon

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

halecs93

XLDnaute Impliqué

Pièces jointes

patricktoulon

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

Discussions similaires