Format personnalisé pour un texte

filiph79 · 10 Novembre 2016

Bonjour,

je souhaite transformer 111222333A44 en 111 222 333 A44;

je sais le faire en réalisant une formule dans une cellule adjacente du type :
=GAUCHE(A1;3)&" "&STXT(A1;4;3)&" "&STXT(A1;7;3)&" "&DROITE(A1;3), avec 111222333A44 en A1
mais je souhaiterai le faire directement sur la formule saisie via un format personnalisé.

Le A dans le code fait que cette valeur est considérée comme du texte et je n'arrive pas a créer le code de format personnalisé.

le code serait 111222333444 je ferai un format personnalisé du type 000 000 000 000 .

Comment faire la même chose avec du texte ?

cordialement

Philippe

gilbert_RGI · 10 Novembre 2016

Bonjour,

peut-être avec cette petite fonction perso

VB:

Function tx(range)
    lg = Len(range)
    a = 3: b = 1
    For i = 3 To lg Step 3
        rg = rg + Mid(range, b, a) + " "
        b = b + 3
    Next
    If lg Mod 3 <> 0 Then rg = rg + Right(range, lg Mod 3)
    tx = rg
End Function

sousou · 10 Novembre 2016

Bonjour a vous deux
En ajoutant ceci à la fonction de gilbert
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = tx(Target)
Application.EnableEvents = True
End Sub

gilbert_RGI · 10 Novembre 2016

Bien à condition que filiph79 veuille mettre toute sa feuille dans ce format

sousou à dit:
Bonjour a vous deux
En ajoutant ceci à la fonction de gilbert
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = tx(Target)
Application.EnableEvents = True
End Sub

filiph79 · 8 Décembre 2016

merci pour vos réponses

filiph79 · 8 Décembre 2016

merci pour vos réponses
Cordialement

Format personnalisé pour un texte

filiph79

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

sousou

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

filiph79

XLDnaute Occasionnel

filiph79

XLDnaute Occasionnel

Discussions similaires