Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Decomposer une chaine en lettre et chiffre

CelluleVide

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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+
 

Pièces jointes

  • Classeur2.xlsx
    10.6 KB · Affichages: 54
  • Classeur2.xlsx
    10.6 KB · Affichages: 60
  • Classeur2.xlsx
    10.6 KB · Affichages: 58

tototiti2008

XLDnaute Barbatruc
Re : Decomposer une chaine en lettre et chiffre

Re,

une version VBA

Edit : Salut JHA
 

Pièces jointes

  • Classeur3.xlsm
    15 KB · Affichages: 52
  • Classeur3.xlsm
    15 KB · Affichages: 58
  • Classeur3.xlsm
    15 KB · Affichages: 60
Dernière édition:

JHA

XLDnaute Barbatruc
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
 

Pièces jointes

  • Dissociation de contenu de cellule.xlsm
    19.1 KB · Affichages: 52

Lolote83

XLDnaute Barbatruc
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
 

Pièces jointes

  • Copie de CelluleVide - Decomposer une cellule.xls
    34.5 KB · Affichages: 51

david84

XLDnaute Barbatruc
Re : Decomposer une chaine en lettre et chiffre

Bonjour tout le monde,
une fonction personnalisée utilisant une expression rationnelle :
Code:
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+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…