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

Deniro01 · 18 Août 2009

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 · 18 Août 2009

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

Bonjour,

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

Code:

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 · 18 Août 2009

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

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

Deniro01

XLDnaute Junior

Guest

Guest

Deniro01

XLDnaute Junior

Discussions similaires