XL 2016 Numérotation automatique des données avec possibilité de supprimer des lignes _vba

Dadi147 à dit:

Bonjour, pouvez-vous m'aider avec le code vba pour la numérotation automatique des données dans la colonne A à partir de la cellule A2, en tenant compte de la suppression des lignes, merci beaucoup

Cliquez pour agrandir...

=LIGNE()-1

Jacky67 à dit:

Bonjour,
En A2

Code:

=LIGNE()-1

Et tirer vers le bas

Cliquez pour agrandir...

Jacky67 à dit:

RE..
En Vba cela pourrait ressembler à ceci
A Placer dans le module de la feuille en question

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    With Range("a2:a" & Cells.Find("*", , , , xlByRows, xlPrevious).Row)
        .Formula = "=Row() - 1"
        .Value = .Value
    End With
    Application.EnableEvents = True
End Sub

Cliquez pour agrandir...