Macro pour incrémenter un numéro de facture

Bonjour, j'ai une macro qui permet d'incrémenter un numéro de facture. Dans cette macro, le numéro s'affiche dans la cellule "E8", mais le problème comme mon numéro de facture est comme suit FA000001 la macro met juste 1 au lieu de FA000001 comment la réparer merci.Cordialement

Sub Incrémenter_Facture()

Dim num As Integer

Range("E8").Select

num = Range("E8").Value

num = num + 1

Range("E8").Value = num

End Sub

Salut,

Pas besoin de toucher à ta macro, clic droit dans ta cellule E8 > format de cellule > personnalisée et tu mets "FA"000000

Et ça marche très bien.

Cdt

Koro

bonjour ,

sinon si tu veut garder ta macro

Option Explicit

Sub Incrémenter_Facture()

Dim num As String
Dim i As Integer

num = Right(Range("E8").Value, 6) + 1
For i = 1 To 6 - Len(num)
    num = "0" & num
Next i
Range("E8").Value = "FA" & num

End Sub

cordialement

Merci à vous tous c'est Règlé