Numero de ligne automatique dans un tableau

Bonjour,

J'ai un code qui me permet d'ajouter des lignes dans mon tableau :

Sub ajoutLigne()
    Dim nvlLig As Long
    nvlLig = Range("A" & Rows.Count).End(xlUp).Row + 1
    Rows(nvlLig).Insert
    ActiveSheet.ListObjects("Tableau1").Resize Range("A1:C" & nvlLig)
End Sub

Et la première colonne est un numero.

Ligne 1 : 6200

Ligne 2 : 6201

Ligne 3 : 6202

Ligne 4 : 6203 etc

J'aimerais que la ligne qui s'ajoute, affiche automatiquement le numéro du dessus + 1

Si vous savez comment faire, de mon coté je n'en ai aucune idée.

Merci beaucoup =)

Bonjour,

As-tu pensé à une simple formule pour faire la chose ?

=6200+LIGNE()-LIGNE(Tableau1[[#En-têtes];[Colonne1]])

Ce n'est pas écrit en dur, mais c'et peut être suffisant !

Cdlt.

Bonjour,

En VBA,

Tu pourrais ajouter la commande suivante

Sub ajoutLigne()

Dim nvlLig As Long

nvlLig = Range("A" & Rows.Count).End(xlUp).Row + 1

Rows(nvlLig).Insert

ActiveSheet.ListObjects("Tableau1").Resize Range("A1:C" & nvlLig)

Cells(nvlLig, "A").Select

ActiveCell.FormulaR1C1 = "=R[-1]C+1"

End Sub

Bonne journée.

Nikel ! c'est parfait ! =) Merci beaucoup

Bonjour Micka_Plays,

je te propose ce fichier Excel :

dhany

Rechercher des sujets similaires à "numero ligne automatique tableau"