XL 2010 Historique factures et incrémentation numéro croissant

[Orson83]

Bonjour la communauté,
J'ai une macro qui est censée sauvegarder l'historique des factures dans une feuille dédiée et incrémenter un numéro de facture croissant. Le problème, c'est qu'elle ne fonctionne pas
Merci pour votre aide.
Je joins un fichier exemple dans ce post.
Orson83

 

[Phil69970]

Bonjour à tous

Perso pour le N° de facture je verrais comme ceci :

Sub NumFact()
Dim NumFact$, DebNumFact$

DebNumFact = "F" & Format(Date, "yyyy-mm-")                                 'Exemple ==> F2023-06-    Année 2023 Mois 06 ==> Facture
NumFact = Sheets("Facture modèle").[M1]                                     'Feuille et Cellule ou est stockée le dernier N° de facture à adapter

If Left(NumFact, 9) = DebNumFact$ Then
   NumFact = DebNumFact & Format(Val(Right(NumFact, 2) + 1), "00")          'limité à 100 factures/mois (Modifiable si besoin)
Else
   NumFact = CStr(DebNumFact & "01")                                        'limité à 100 factures/mois (Modifiable si besoin)
End If
Sheets("Facture modèle").[M1] = NumFact                                     'Feuille et Cellule ou est stockée le dernier N° de facture
Sheets("Facture modèle").[G3] = NumFact                                     'Feuille et Cellule de la facture contenant le N° de facture à adapter
End Sub

Et il suffit dans ton code de mettre NumFact pour que la facture s'incrémente .....
Et tout se gère tout seul...

@Phil69970

 

[Staple1600]

Bonjour @Phil69970

Juste parce certains peuvent avoir la phobie du &

Sub Esperluetophobe()
DebNumFact = Format(Date, """F""yyyy-mm-")
MsgBox DebNumFact
End Sub

 

[Phil69970]

Re

Staple tu chipotes....

@Phil69970

 

[Orson83]

Bonsoir à tous,
Merci d'avoir résolu mon problème de numéro de facture et de macro ...
... particulièrement à @Staple1600 qui a résolu ce problème, mais aussi à
@TooFatBoy, @laurent950 et @Phil69970 (j'espère n'oublier personne ) qui ont contribué.
Je joins mon fichier corrigé qui pourra servir à d'autres visiteurs XLD.

Je continue les améliorations de mon fichier XL de location de matériel avec d'autres threads en cours
Bonne soirée à tous

 

[Staple1600]

Re

Staple tu chipotes....

Non, je fais du Staple
(un mix de VBA, d'humour, d'ironie et autres billevesées )
On a le droit ne pas être toujours sérieux, non ?

 

[Staple1600]

Re

Juste pour varier les plaisirs syntaxiques en VBA
(en théorie, cette version light fait la même chose, les formats en moins)

Sub Archiver_CommeJAime()
Dim ligne As Long, vVals
nFact = Nouveau_NUM("FACT_")
Sheets("Facture modèle").[G3] = nFact
With Sheets("Facture modèle")
    vVals = Array(.[G3], .[F49], .[F10], .[F5], .[F6], .[F8], .[E13], .[E14], .[E15], .[G37], .[G38], .[G39])
End With
With Sheets("Historique factures")
ligne = .Cells(Rows.Count, "B").End(xlUp).Row + 1
.Cells(ligne, 2).Resize(, 12).Value = vVals
End With
Sheets("Facture modèle").Range("J5").ClearContents
End Sub

NB: On aura remarqué ... le subtil jeu de mots dans le nom de la macro

 

[Orson83]

Re

Juste pour varier les plaisirs syntaxiques en VBA
(en théorie, cette version light fait la même chose, les formats en moins)

Sub Archiver_CommeJAime()
Dim ligne As Long, vVals
nFact = Nouveau_NUM("FACT_")
Sheets("Facture modèle").[G3] = nFact
With Sheets("Facture modèle")
    vVals = Array(.[G3], .[F49], .[F10], .[F5], .[F6], .[F8], .[E13], .[E14], .[E15], .[G37], .[G38], .[G39])
End With
With Sheets("Historique factures")
ligne = .Cells(Rows.Count, "B").End(xlUp).Row + 1
.Cells(ligne, 2).Resize(, 12).Value = vVals
End With
Sheets("Facture modèle").Range("J5").ClearContents
End Sub

NB: On aura remarqué ... le subtil jeu de mots dans le nom de la macro

@Staple1600,
Merci pour cette version light
et le jeu de mots