VBA +1 a une cellule contenant du texte et des chiffres

Bonjour,

Je souhaiterai réalisé une macro me permettant de faire +1 au numéro de série inscrit dans O4.

j'ai essayer 3 macro , mais cela ne fonctionne pas avec le format , pourriez-vous m'aidez a comprendre

'
Sub essai()
ActiveCell = ActiveCell + 1
End Sub
Sub cc()
'
Range("O4").Value = Range("O4").Value + 1
'

'
End Sub

Sub Incrémenter_Facture()

Dim num As Integer

Range("O4").Select

num = Range("O4").Value

num = num + 1

Range("O4").Value = num

End Sub

Merci d'avance

Cordialement

Bonjour,

C'est uniquement la partie N0273724 qui est incrémentée ?
Si oui, il y a toujours 7 chiffres ?

Sinon un truc du genre

Sub Incrementer()
Dim Ref As String, num As String

Ref = Left(Range("O4"), 8)
num = Format(Right(Range("O4"), 7) + 1, "0000000")
Range("O4") = Ref & num
End Sub

Cordialement

Bonjour Dan,

Merci pour ta réponse

Effectivement c'est uniquement la partie N0273724 qui est incrémentée, oui tjr 7 chiffres.

Je viens de tester le code , c'est super Merciiii Beacoup

Bonne Journée