Renumérotation automatique

[lcsdsp]

Bonjour,

J’ai une liste de différents enregistrements avec un ID qui correspond au num de ligne.

Tout mon code est basé sur cette colonne ID donc si l’id de la ligne n’est pas le meme ca ne va plus aller.
Exemple ligne 14 l’id n’est pas 14.

J’aimerais donc que quand je clique sur le bouton vert « renum. les ID », il reprennent tout le tableau et controle si la ligne est bien egal à l’id… Dans le cas ou il rencontre une différence il réattribut automatiquement les ID.

Cordialement Lucas

[taz067]

hello
et sur la base d’une image, tu penses qu’on peut en devinez ton code ?

[lcsdsp]

Je n’ai pas gardé le code puisque celui que j’ai tenté ne fonctionnait pas…

[lcsdsp]

Problème résolu.
Si besoin du code voila :

Private Sub renumid_Click()
    ' numerotation
    Dim dl As Integer
    dl = ActiveSheet.Range("A50000").End(xlUp).Row
    Dim pl As Integer
    
    Dim line As Range
    
    Dim id As Integer
    
    For pl = 13 To dl
        Set line = ActiveSheet.Rows(pl)
        id = line.Columns(2)
        
        If Not (id = pl) Then
            ActiveSheet.Rows(pl).Columns(2).Value = pl
        End If
    Next pl
End Sub

[Jacquinot_WILL-FREAD]

Bonjour,

Si vous commencez toujours par A13, voici ce qu’il vous faut :

Sub incrementation()
Range("A13").Select

While ActiveCell <> ""
    ActiveCell = ActiveCell.Row
    ActiveCell.Offset(1, 0).Select
Wend

End Sub

Simple mais efficace.
Bien cordialement
Will-Fread