Bonsoir à tous,
Je souhaiterais appliquer un format particulier à un code alphanumérique :
Le code : 013SLS2013010003
Le résultat souhaité : 013-S-LS-201301-0003
Le résulta actuel : 013-0-13-S20130-0003
Pour obtenir ce résultat j'applique cet macro que j'ai faites en fouillant un peu sur le web.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("A:A")) Is Nothing Then
For Each c In Target
If Len(c) = 16 Then c = Left(c, 3) & "-" & Mid(c, 1, 1) & "-" & Mid(c, 2, 2) & "-" & Mid(c, 6, 6) & "-" & Right(c, 4)
Next
End If
End Sub
Merci d'avance pour vos conseils.
P.S. : Si vous pouvez m'aider et me faire comprendre comment la modifier pour d'autre mise en forme ce serait super.
Si vous avez une solution plus simple je sous prenneur car partisan du plus simple.
Je souhaiterais appliquer un format particulier à un code alphanumérique :
Le code : 013SLS2013010003
Le résultat souhaité : 013-S-LS-201301-0003
Le résulta actuel : 013-0-13-S20130-0003
Pour obtenir ce résultat j'applique cet macro que j'ai faites en fouillant un peu sur le web.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("A:A")) Is Nothing Then
For Each c In Target
If Len(c) = 16 Then c = Left(c, 3) & "-" & Mid(c, 1, 1) & "-" & Mid(c, 2, 2) & "-" & Mid(c, 6, 6) & "-" & Right(c, 4)
Next
End If
End Sub
Merci d'avance pour vos conseils.
P.S. : Si vous pouvez m'aider et me faire comprendre comment la modifier pour d'autre mise en forme ce serait super.
Si vous avez une solution plus simple je sous prenneur car partisan du plus simple.
Pièces jointes
Dernière édition: