Discussion :

[maxval18]

Bonjour,

Je recherche un code pour ajouter un N° a chaque enregistrement automatiquement dans la colonne "A"

Ci joint mon fichier exemple

Cordialement

Max

[Philippe Tulliez]

Bonjour,
Je n'ai pas téléchargé ton classeur.
Plusieurs options sont possibles
Soit tu donnes comme numéro le nombre d'enregistrements qu'il y a dans la feuille.
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim sht As Worksheet: Set sht = Worksheets("Feuil1")
Dim Compteur As Long
Compteur = sht.Range("A" & sht.Rows.Count).End(xlUp).Row

Soit tu utilises une cellule, par exemple A2, dans une autre feuille nommée par exemple [Paramètre] où tu places le n° d'enregistrement que tu incrémentes à chaque nouvel enregistrement.
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Dim sht As Worksheet: Set sht = Worksheets("Paramètre")
 Dim Compteur As Long
 Compteur = sht.Range("A2") + 1: sht.Range("A2") = Compteur

[maxval18]

Bonjour corona

Je te remercie Nickel

Bonne soirée

Max