Numérotation automatiquedes des entrées d'un tableau

[Deniro01]

Numérotation automatique des entrées d'un tableau

Bonjour tout le monde,

J'ai crée un tableau pour entrer des livres mais j'ai changer de système de code VBA et je n'arrive plus à recréer la numérotation automatique de chaque ligne insérée que j'avais. La formule se trouve dans le code UserForm mais n'est pas à sa place, ou alors elle n'est plus bonne.
Si quelqu'un pouvait voir ce qui ne va pas dans la formule et me le dire, ce sera bien gentil.

Cordialement Denis

 

[Guest]

Re : Numérotation automatiquedes des entrées d'un tableau

Bonjour,

Dans CommandButton1_click() tu ajoute la ligne en Rouge Gras ci-dessous:

With Sheets("Livres") 'prend en compte l'onglet "Livres"
    li = .Cells(65536, 1).End(xlUp).Offset(1, 0).Row 'définit la variable li
 
     Numéro = Application.Max(Worksheets("Livres").Range("A3:A65536")) + 1 ' Numérotation automatique
[SIZE=3][COLOR=red][B]   .Cells(li, 1).Value = Numéro[/B][/COLOR][/SIZE]
    .Cells(li, 2).Value = Me.Titre.Value      'place le titre en colonne B
    .Cells(li, 3).Value = Me.Auteur.Value     'place l'auteur en colonne C
    .Cells(li, 4).Value = Me.Collection.Value 'place collection en colonne D
    .Cells(li, 5).Value = Me.Catégorie.Value  'place catégorie en colonne E
    .Cells(li, 6).Value = Me.Edition.Value    'place édition en colonne F
    .Cells(li, 7).Value = Me.DateAchat.Value  'place la date en colonne I
    .Cells(li, 8).Value = Me.PrixAchat.Value  'place le prix en colonne J
    .Cells(li, 9).Value = Me.Remarque.Value   'place remarque en colonne K
 
 
End With

A+

 

[Deniro01]

Re : Numérotation automatiquedes des entrées d'un tableau

Bonjour Hasco

Ça marche bien et je te remercie beaucoup pour le dépannage.

Cordialement, Denis