VBA Formulaire Id automatique

thev a écrit :

Bonsoir,

Comme visiblement ton tableau est un objet tableau, ci-dessous le code pour incrémenter automatiquement ton numéro client :

   
    With ActiveSheet.ListObjects(1)
        'si dernière ligne du tableau non vide, ajout d'une ligne
        If .ListColumns("Num Client").DataBodyRange.Rows(.ListRows.Count) <> Empty Then .ListRows.Add
        'incrémentation automatique du numéro de client
        .ListColumns("Num Client").DataBodyRange.Rows(.ListRows.Count) = Application.Max(.ListColumns("Num Client").DataBodyRange) + 1
    End With

"ActiveSheet.ListObjects(1) est l'objet tableau présent sur la feuille active.

Num Client" est le nom de la première colonne de ton tableau.

Application.Max(.ListColumns("Num Client").DataBodyRange) donne le numéro le plus élevé de la colonne Num Client

Tout fonctionne un grand merci, je l'ai rajouté à mon code au niveau du bouton d'ajout d'un client