Numéro automatique

Bonjour,

Dans le programme de généalogie codé avec VBA qui compte quelques 17000 noms, j'aimerais avoir les numéros automatiquement qui peut me donner un peut de son temps pour me codé.

Avec tos mes remerciements

Lucky

Bonjour,

Tu peux par exemple utiliser la fonction Max() afin de récupérer la valeur la plus élevée et lui rajouter 1 :

Sub Test()

    Dim Plage As Range
    Dim NumAuto As Long

    With Worksheets("Sources"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    NumAuto = Application.Max(Plage) + 1

    MsgBox NumAuto

End Sub

Merci pour ta réponse mais j'ai juste une question a son sujet

ou je mets ce code que tu ma donné?

merci pour ton rensignement

Lucky

Bonjour

A la place de : ActiveCell = txt_n?.Value

        ActiveCell = Application.Max(Columns(1)) + 1 ' txt_n?.Value

A+

Maurice

Bonsoir,

le code fonctionne super bien

problème résolu

merci au intervenants

cordialement

Lucky