Format Alphanumérique

[yolutho]

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.

 

[Papou-net]

Re : Format Alphanumérique

Bonsoir yolutho,

Voici ta macro corrigée:

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, 4, 1) & "-" & Mid(c, 5, 2) & "-" & Mid(c, 7, 6) & "-" & Right(c, 4)
Next
End If
End Sub

Une solution plus simple? Je ne vois pas, mais l'heure n'est pas des plus propices.

Cordialement.

 

[yolutho]

Re : Format Alphanumérique

Ca fonctionne, merci de ta réponse.

Pourrais-tu m'expliquer mon erreur ? Merci encore.

 

[Gardien de phare]

Re : Format Alphanumérique

Bonjour,

Papou est à la plage sans doute

Extrait de l'aide XL :

Syntaxe

Mid(string, start[, length])

Donc Mid(c,1,1) renvoie le 0 en début de la chaîne C

Au fait, ce code n'applique pas un format mais transforme la valeur de la chaîne c

 

[Papou-net]

Re : Format Alphanumérique

Bonjour,

@ yolutho: Gardien de phare a répondu justement à ta question.

@ François: et non, je ne suis pas encore à la plage, sinon je t'aurais aperçu tout en haut de ton monument.

Cordialement à tous.