Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Dadi147

XLDnaute Occasionnel
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
 
Solution
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
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

Jacky67

XLDnaute Barbatruc
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
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
 
Dernière édition:

Dadi147

XLDnaute Occasionnel
Merci beaucoup c'est ce qu'il faut
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…