incrémentation automatique

-1

Bonjour Famille et bonne année à tous,

j'ai besoin d'aide pour créer un code vba qui me permettra d'incrémenter automatiquement mes dévis.
J'ai écris un code qui incrémente mais seulement le format qu'il m'affiche ne me satisfait pas ( 1 2 3 4 ....)
je voudrais que le numéros s'affiche sous la forme 001 002 003 004 ......
Pour l'exemple j'ai joint un fichier TEST qui comprend un bouton qui est censé me générer un numéro séquentiel (sous la forme 001
002 ...) à chaque fois que je clique dessus. derrière ce bouton , voici le code que j'ai inséré ( Range("D3").Value = Range("K3").Offset(1, 0).Value )
mais pas le bon code apparemment.
Merci de m'aider s'il vous plait

https://www.cjoint.com/c/JAoo0ygep4t

    matsniper Posté le 14 janvier 2020, 15:48
    par matsniper
    Répondre
    0

    Bonjour,

    Supprime tes données de la colonne et remplace ta macro avec cette ligne

    Range("D3").Value = Format(Range("D3").Value + 1, "000")

    Posté le 14 janvier 2020, 16:38
    1

    Merci Boss ça marche parfaitement

    matsniper Posté le 14 janvier 2020, 18:40
    par matsniper

    Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
    Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :