P
pango
Guest
Bonjour
Je tente d'incrémenter un numéro de facture avec une macro. Le code ci-dessous fonctionne bien, si mon numéro de facture est de type : PP201801
Par contre, si j'ajoute des tirets (PP-2018-01), je suis largué. J'ai pourtant modifié la Value de mon Mid(Range
Pouvez-vous m'aider svp?
J’aimerais garder la macro avec la même simplicité que ci-haut.
Je vous remercie de votre attention,
Je tente d'incrémenter un numéro de facture avec une macro. Le code ci-dessous fonctionne bien, si mon numéro de facture est de type : PP201801
Code:
Private Sub Workbook_Open()
Range("B5").Value = Left(Range("B5").Value, 2) & 1 + Mid(Range("B5").Value, 3, 6)
End SubPar contre, si j'ajoute des tirets (PP-2018-01), je suis largué. J'ai pourtant modifié la Value de mon Mid(Range
Pouvez-vous m'aider svp?
J’aimerais garder la macro avec la même simplicité que ci-haut.
Je vous remercie de votre attention,