Macro incrémentation numéro

Bonjour,

J'ai une macro toute simple pour incrémenter un listing d'une ligne supplémentaire en la numérotant d'une unité de plus à chaque fois (voir fichier joint).

En garcdant la macro pour les nouvelles entrées, J'aimerai que le premier numéro soit sous la forme "001";"002";"003";004";"005";"006";007";"008";"009";010";"011" etc. et que cela s'incrémente jusqu'à 999 en gardant toujours 3 chiffres...

Quelqu'un a t'il une solution ?

Bonne journée.

a tester

Bonjour

A tester car en cas de tri sur la solution de melch, il y aurait un souci

Sub Entree()
Dim dlg As Integer, valeur As Integer
dlg = Range("A" & Rows.Count).End(xlUp).Row - 4
Rows("5:5").Insert Shift:=xlDown
Rows("6:6").Copy
Range("A5").PasteSpecial Paste:=xlFormats
valeur = dlg + 1
Select Case valeur
    Case Is < 10: Range("A5") = "'00" & valeur
    Case 10 To 99: Range("A5") = "'0" & valeur
    Case 100 To 999: Range("A5") = "'" & valeur
    Case Else: MsgBox "vous avez atteint la limite des 999 numéros autorisés"
End Select
Application.CutCopyMode = False
End Sub

Si ok, merci de cloturer le fil en cliquant sur l V vert à coté du bouton EDITER

Cordialement

re

Heu fil cloturé... c'est bon ou pas ?

Oui, tout est nickel, les 2 solutions fonctionnent.

Pourtant j'ai bien cliqué sur "résolu"...mais ce n'est pas la première fois que j'ai des soucis de ce genre...

bonne journée.