Modifier ce code

Bonjour à tous,

j'ai trouvé un code qui ajoute 1 à chaque action mais je n'arrive pas à supprimer les deux lettres FA devant les zéros

Option Explicit

Dim lgn, n°

Sub NlleFacture()

    lgn = Application.Max(2, Range("A" & 65536).End(xlUp)(2).Row)
    If lgn = 2 Then
        Range("A" & lgn) = Format(1, "FA0000")
    Else
        n° = Mid(Range("A" & lgn - 1), 3, Len(Range("A" & lgn - 1)) - 2) + 1
        Range("A" & lgn) = Format(n°, "FA0000")
    End If
End Sub

Merci de jeter un oeil SVP

Pierrot

Bonjour,

Il te suffit de les supprimer !

Mais il serait peut-être judicieux de les remplacer par une apostrophe (') [force format texte] pour être sûr de conserver le format (et ne pas voir disparaître selon cas les 0 placés devant).

Cordialement.

Bonjour,

n° = Mid(Range("A" & lgn - 1), 3, Len(Range("A" & lgn - 1)) - 2) + 1

je reçois ce message souligné en jaune

peux-tu tester ?

Merci

Pierrot

Re,

Je n'ai pas de fichier pour tester... !

Le 3 est à adapter puisque tu as supprimé FA.

Si tu as placé une apostrophe, tu peux remplacer cette ligne par :

    n° = Right(Range("A" & lgn - 1), Len(Range("A" & lgn - 1)) - 1) + 1

sinon simplement par :

    n° = Range("A" & lgn - 1) + 1

Il faut aussi que ton fichier soit conforme à ton code : n° de factures en col. A (à partir de A2) [une en-tête en A1, sinon erreur probable si pas encore de numéros !]

Cordialement.

merci du mal que tu te donnes, mais ça ne marche pas

je vais trouver une autre solution avec les formules SI

Merci pour tout et bonne soirée

Amitiés

Pierrot

Re,

Je n'aurais pas écrit ce code de la même façon mais je n'ai rien vu qui l'empêche de fonctionner !

J'ai monté un fichier test ci-joint : on démarre à zéro et tes numéros s'incrémentent à chaque appui sur le bouton...

Cordialement.

Bonjour,

en Colonne A cela fonctionne bien mais que faut-il changer au code pour avoir même résultat en colonne B

mon N° de facture : 2017-10-0001

la date vient en A et le N° en B

merci pour tout

Ce matin, je dois te laisser, j'ai une chimio en matinée

Amitiés

Pierrot

Bonjour,

A tester

Bonjour

j'ai mis en C2, formule:

=CONCATENER(TEXTE(A2;"aaaa-mm-")&CONCATENER(B2))

si cela peut t'aidé

crdlt,

André

Au lieu de mettre en A, tu mets en B ! Regarde le modèle de M12...

Salut à tous.

Et bon courage à toi.

M12, Andre13 , MFerrand bonjour et merci à vous trois

la formule de M12 me convient parfaitement.

après ma séance de chimio de ce matin, je dois me reposer.

amitiés à vous trois

Pierrot