Numérotation automatique après suppression

Bonsoir à tous,

Tout est dans le titre !!
Je cherche à re-numéroter mes lignes (dans colonne B) après suppression via une ListBox.

Pas moyen de trouver le code qui va bien !!

Merci pour votre aide

Bonsoir,

une proposition avec une gestion d'erreur s'il n'y a plus rien à effacer :

Private Sub Supprimer_Click()
    If ListBox1.ListIndex = -1 Then Exit Sub
    Dim i As Integer
    Range("A" & ListBox1.List(ListBox1.ListIndex, 1) + 1 & ":B" & ListBox1.List(ListBox1.ListIndex, 1) + 1).Value = ""
    Call Macro2
    ListBox1.Clear
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Cells(i, 2).Value = i - 1
        With ListBox1
            .AddItem
            .List(.ListCount - 1, 0) = Cells(i, 1).Value
            .List(.ListCount - 1, 1) = Cells(i, 2).Value
        End With
    Next i
End Sub

Attention ! Code "non optimisé"...

Mais le principe est là : on ajoute une boucle de renumérotation et on en profite pour mettre à jour la ListeBox.

@ bientôt

LouReeD

Bonsoir LouReed,

Merci pour ce code simple (encore fallait il le penser) Bravo
Je vais voir pour l'adapter à mon projet: ma ListBox est composée de 9 colonnes

Merci pour ce retour.

@ bientôt

LouReeD

Salut Eurêka,
Salut LouReed,

Private Sub Supprimer_Click()
'
Dim i%
'
i = ListBox1.List(ListBox1.ListIndex, 1)
With Worksheets("Feuil1")
    .Range("A" & i).Resize(1, 2).Delete shift:=xlUp
    .Range("B2").Value = 1
    .Range("B2:B" & .Range("B" & Rows.Count).End(xlUp).Row).DataSeries _
        rowcol:=xlColumns, Type:=xlChronological, step:=1, stop:=.Range("A" & Rows.Count).End(xlUp).Row - 1
    Call Macro2
    ListBox1.Clear
    Me.ListBox1.List = .Range("A2:B" & .Range("B" & Rows.Count).End(xlUp).Row).Value
End With
'
End Sub

A+

Merci pour ce retour.

@ bientôt

LouReeD

Bonsoir Curulis57,
j'ai réussi à modifier le code de LouReed pour mes 9 colonnes, cool
Merci pour ta proposition, j'avais trouver un code presque similaire que le tien, mais ça fonctionnait pas vraiment, des erreurs aléatoires !!
je le garde sous le coude et je vais l'étudier pour bien tout comprendre

Merci à vous deux

Bonsoir,

merci @ vous pour ce retour et ces remerciements.

Si vous voulez une explication...

@ bientôt

LouReeD