Incrémenter automatiquement mes dévis
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
Bonjour matsniper
Remplacer le code par celui-ci
Private Sub Facture_suivante_Click()
Dim Dl As Long
Dl = Range("K" & Rows.Count).End(xlUp).Row
Range("D3").Value = Format(Range("K" & Dl) + 1, "000")
End Subcdt
Henri
Merci encore AFEH ça marche parfaitement.
j'avais trouvé une solution qui consiste à insérer seulement le code : Range("D3").Value = Format(Range("D3").Value + 1, "00")
derrière le bouton. Du coup la colonne K n'est plus nécessaire. Ce qui me manquait c’était le mot " Format" qui permet de mettre les valeurs 1 2 3 4..... sous la forme 001 002 003 004.
Bravo et merci pour ton aide.
Ta méthode qui permet de sélectionner les numéros de devis (colonne K du 1er fichier TEST) l'un après l'autre va beaucoup me servir pour un autre projet.C’était une alternative dont je n'arrivais pas à exprimer le code.
Content d'avoir été utile.
Henri