Format affichage personnalisé

[domburg]

Bonjour,

Je cherche à afficher dans Excel une chaîne de 10 caractères avec des séparateurs tous les 2 caractères.
Exemple 1 : pour une valeur 1234567890 => afficher 12 34 56 78 90
Exemple 2 : Pour une valeur AB34567890 => afficher AB 34 56 78 90
Si j'utilise le format personnalisé 00" "00" "00" "00" "00, ça fonctionne pour les valeurs numériques comme dans l'exemple 1
S'il y a au moins un caractère texte (comme dans l'exemple 2), ça ne fonctionne pas.
Quelqu'un a t'il une solution

Merci d'avance

 

[Guest]

Re : Format affichage personnalisé

Bonjour,

Une possibilité parmi d'autres: =GAUCHE(A1;2)& " " & STXT(A1;3;2) & " " & STXT(A1;5;2) & " "& STXT(A1;7;2) & " " & DROITE(A1;2)

A+

 

[excfl]

Re : Format affichage personnalisé

Bonsoir le forum,

=GAUCHE(A1;2)&" "&DROITE(GAUCHE(A1;3))&DROITE(GAUCHE(A1;4))&" "&DROITE(GAUCHE(A1;5))&DROITE(GAUCHE(A1;6))&" "&DROITE(GAUCHE(A1;7))&DROITE(GAUCHE(A1;8))&" "&DROITE(GAUCHE(A1;9))&DROITE(GAUCHE(A1;10))

excfl

 

[mapomme]

Re : Format affichage personnalisé

Bonsoir domburg,

Un essai par macro. Le code est dans le module de Feuil1:

Sub formater()
Dim xrg As Range, xcell As Range, s As String
Dim i As Long, i0 As Long, L As Long, Tablo

Application.ScreenUpdating = False
Set xrg = Range("A" & Rows.Count).End(xlUp)
Set xrg = Range(Range("A1"), xrg)

For Each xcell In xrg
  If Len(xcell) <> 0 Then
    If Len(xcell) Mod 2 = 1 Then s = " " & xcell Else s = xcell
    L = Len(s) \ 2
    i0 = Len(s)
    ReDim Tablo(1 To L)
    For i = i0 To 2 Step -2
      Tablo(i \ 2) = Mid(s, i - 1, 2)
    Next i
    xcell = LTrim(Join(Tablo))
  End If
Next xcell
Application.ScreenUpdating = True
End Sub

Edit: préférer la version v2 ici #5

 

[mapomme]

Re : Format affichage personnalisé

Bonjour domburg,

Une version v2 qui, contrairement à la v1, autorise les formatages successifs.

Le code légèrement modifié:

Sub formater()
Dim xrg As Range, xcell As Range, s As String
Dim i As Long, i0 As Long, L As Long, Tablo

Application.ScreenUpdating = False
Set xrg = Range("A" & Rows.Count).End(xlUp)
Set xrg = Range(Range("A1"), xrg)

For Each xcell In xrg
  If Len(xcell) <> 0 Then
    Tablo = Split(xcell)
    s = Join(Tablo, "")
    If Len(s) Mod 2 = 1 Then s = " " & s
    L = Len(s) \ 2
    i0 = Len(s)
    ReDim Tablo(1 To L)
    For i = i0 To 2 Step -2
      Tablo(i \ 2) = Mid(s, i - 1, 2)
    Next i
    xcell = LTrim(Join(Tablo))
  End If
Next xcell
Application.ScreenUpdating = True
End Sub