Decomposer une chaine en lettre et chiffre

[CelluleVide]

Bonjour le forum,
Mon probleme du jour: Comment decomposer une chaine mixte de lettre et chiffres soit par formule ou VBA
C'est a dire qu'a chaque changement de type de caractere (letttre ou chiffre) on insert un espace
Sachant que:
la position des caracteres "lettre" peut varier
Le nb de caracteres peut aussi varier

Exemple:
Départ Resultat
FO15BET FO 15 BET
MO09BET2 MO 09 BET 2
MO15FR1 MO 15 FR 1
MO15FR23 MO 15 FR 23
MO19PLW2 MO 19 PLW 2
MOF25FO5 MOF 25 FO 5

Merci d'avance

 

[CelluleVide]

Re : Decomposer une chaine en lettre et chiffre

Oups!
L'affichage est loin d'etre top dans mon exemple.
Je joins un fichier pour plus de clarté.

A+

 

[tototiti2008]

Re : Decomposer une chaine en lettre et chiffre

Bonjour Cellulevide,

un essai

 

[tototiti2008]

Re : Decomposer une chaine en lettre et chiffre

Re,

une version VBA

Edit : Salut JHA

 

[CelluleVide]

Re : Decomposer une chaine en lettre et chiffre

Bonjour tototiti2008,
Meme si j'ai pas tout compris dans les formules matricielles, le résultat est bien celui que j'attendais.

Merci et bonne journée.

 

[JHA]

Re : Decomposer une chaine en lettre et chiffre

Bonjour à tous,

Un essai en pièce jointe bien moins astucieux que la solution de tototiti2008 que je salue

JHA

 

[Lolote83]

Re : Decomposer une chaine en lettre et chiffre

Salut CelluleVide
En retard, mais voici une version avec formule personnalisée.
Je vais vite regarder les autres propositions .....
@+ Lolote83

 

[CelluleVide]

Re : Decomposer une chaine en lettre et chiffre

Bonjour JHA, Lolote83,

Que de solutions!

Bien merci a tous!

Bonne journée

 

[david84]

Re : Decomposer une chaine en lettre et chiffre

Bonjour tout le monde,
une fonction personnalisée utilisant une expression rationnelle :

Function Decomposer(chaine As String) As String
Dim oRegExp As Object, matches As Object
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
    .Global = True
    .Pattern = "(\d+)"
    If .test(chaine) Then
        Set matches = .Execute(chaine)
        chaine = .Replace(chaine, " $1 ")
        Decomposer = Trim(chaine)
    End If
End With
End Function

A+