Aide macro

pango · 24 Janvier 2018

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

Code:

Private Sub Workbook_Open()
Range("B5").Value = Left(Range("B5").Value, 2) & 1 + Mid(Range("B5").Value, 3, 6)
End Sub

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,

M12 · 24 Janvier 2018

Bonjour,
A tester avec PP-2018-01 en B5

Code:

Private Sub Workbook_Open()
  Range("B5").Value = Left(Range("B5").Value, 3) & Year(Date) & "-" & Format(Mid(Range("B5"), 9, 2) + 1, "00")
End Sub

pango · 24 Janvier 2018

M12 à dit:
Bonjour,
A tester avec PP-2018-01 en B5

C'est parfait, merci beaucoup!

Aide macro

pango

XLDnaute Junior

M12

XLDnaute Accro

pango

XLDnaute Junior

Discussions similaires