Ajout d'une incrémentation dans code VBA

Bonsoir;

Je voudrais incrémenter un N° +1 après chaque "Validation"

Fichier joint.

Merci d'avance

Bonjour il suffit d'ajouter trois lignes à ton code en début de validation :

Dim ListObj As ListObject, Sh As Worksheet, j As Long
Dim listobj2 As ListObject, sh2 As Worksheet, lig As Long

Dim NUMLOC As Long
NUMLOC = Range("D4").Value
Range("D4").Value = NUMLOC + 1

Application.ScreenUpdating = False

Nota dans ton exemple C'est D4 et pas B4 à voir si dans ton original c'est une autre cellule ???

Xmenpl a écrit :

Bonjour il suffit d'ajouter trois lignes à ton code en début de validation :

Dim ListObj As ListObject, Sh As Worksheet, j As Long
Dim listobj2 As ListObject, sh2 As Worksheet, lig As Long

Dim NUMLOC As Long
NUMLOC = Range("D4").Value
Range("D4").Value = NUMLOC + 1

Application.ScreenUpdating = False

Nota dans ton exemple C'est D4 et pas B4 à voir si dans ton original c'est une autre cellule ???

Ps si tu supprimes toutes les lignes du tableau tu seras obligé d'indiquer 0 en numéro location en D4 pour ne pas buguer ton code.

Merci,

avec toutes mes excuses pour le retard

Cordialement