XL 2016 Besoin d'aide pour un format personnalisé

fenec

XLDnaute Impliqué
Bonjour le forum,

Je cherche à faire un format de cellule personnalisé mais je n'y parviens pas depuis deux heures.

Je vous explique et vous joint un fichier qui est plus parlant:

si je tape:
EZ100200300
je souhaiterais avoir:
EZ 100 200 300
Cordialement,

Philippe.
 

Pièces jointes

  • Format personnalisé.xlsx
    8 KB · Affichages: 11
Solution
Re

@fenec
Comme mentionné par @Wayki pas possible sauf en VBA
En admettant que les données à traiter soit dans la colonne B

Code:
Sub Worksheet_Change(ByVal Target As Range)

Dim MaCel As Range

If Not Intersect(Target, Range("B:B")) Is Nothing Then
    For Each MaCel In Target
        If Len(MaCel) = 11 Then MaCel = Left(MaCel, 2) & " " & Mid(MaCel, 3, 3) & " " & Mid(MaCel, 6, 3) & " " & Mid(MaCel, 9, 3)
    Next
End If

End Sub

*Merci de ton retour

@Phil69970

Phil69970

XLDnaute Barbatruc
Bonjour @fenec

Vu que je n'ai pas eu de réponse la dernière fois cela sera sans moi.o_O

@Phil69970
 

Phil69970

XLDnaute Barbatruc
Re

@fenec
Comme mentionné par @Wayki pas possible sauf en VBA
En admettant que les données à traiter soit dans la colonne B

Code:
Sub Worksheet_Change(ByVal Target As Range)

Dim MaCel As Range

If Not Intersect(Target, Range("B:B")) Is Nothing Then
    For Each MaCel In Target
        If Len(MaCel) = 11 Then MaCel = Left(MaCel, 2) & " " & Mid(MaCel, 3, 3) & " " & Mid(MaCel, 6, 3) & " " & Mid(MaCel, 9, 3)
    Next
End If

End Sub

*Merci de ton retour

@Phil69970
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo