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

[Dadi147]

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

 

[Jacky67]

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

Bonjour,
En A2

=LIGNE()-1

Et tirer vers le bas

 

[Dadi147]

Bonjour,
En A2

=LIGNE()-1

Et tirer vers le bas

Merci de votre intérêt pour le sujet.Je recherche un code vba qui effectue automatiquement la même tâche lors de la copie de données

 

[Jacky67]

Merci de votre intérêt pour le sujet.Je recherche un code vba qui effectue automatiquement la même tâche lors de la copie de données

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

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

 

[Dadi147]

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

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

Merci beaucoup c'est ce qu'il faut