Microsoft 365 remplacer les espaces dans une chaine par 123456 etc

[Usine à gaz]

Bonjour à toutes et à tous,

Je cherche une formule pour remplacer les espaces dans une cellule :
(sans faire intervenir la position de l'espace)

Par exemple j'ai :
aaa bbbb ccccc dddeee eeeeeee fff etc

Je voudrais obtenir :
aaa1bbbb2ccccc3dddddd4eeeeeee5fff etc

Auriez-vous la solution ?
Un grand merci,
lionel

 

[Usine à gaz]

Oui j'ai trouvé pour le code de Mapomme :
"Next i"

 

[TooFatBoy]

Bonjour,

Faudrait mettre un modulo 10.

 

[Usine à gaz]

Bjr Marcel
C'est koi "un modulo10" ?

 

[TooFatBoy]

Arrivé à 10, au lieu de mettre 10, ça repart de 0.
Comme ça, chaque espace n'est remplacée que par un seul caractère et ta chaîne fait toujours la même longueur.

 

[Usine à gaz]

Bon, je vais rafraichir ce qu'il me reste de neurones et je reviens dans un p'tit moment

 

[Usine à gaz]

Arrivé à 10, au lieu de mettre 10, ça repart de 0.

Ben : ça serait mieux que ça continue

 

[Victor21]

Bonjour à tous.

@Usine à gaz , il a dit une formule :

=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;" ";1;1);" ";2;1);" ";3;1);" ";4;1);" ";5;1)

 

[TooFatBoy]

Ben : ça serait mieux que ça continue

Alors pas de modulo.

Et modification pour la fin de chaîne.
Un truc dans le genre : boucler jusqu'à Ubound-1 et après la boucle faire un c = c & b(i+1).

 

[Staple1600]

Bonjour Victor

Moi aussi j'ai formulé le souhait d'une formule
(cf message#5)
D'ailleurs je suis en train de me compliquer le vie avec FILTRE.XML

 

[Usine à gaz]

Bonjour à tous.

@Usine à gaz , il a dit une formule :

Bonjour Patrick
Merci pour la formule elle fonctionne nickel,
lionel

 

[Staple1600]

Re

Adapté d'une formule de R@chid
Elle ne fait pas le job demandé, mais comme je la trouve jolie, je publie
(mais je sens qu'elle pourrait te servir, Lionel, non ? )
La formule en B2

=SIERREUR(INDEX(FILTRE.XML("<a><b>"&SUBSTITUE($A1;" ";"</b><b>")&"</b></a>";"//b");COLONNES($C:C));"")

A valider matriciellement pour Excel 2013
Recopie vers la droite puis vers le bas

 

[patricktoulon]

Bonsoir
ça pourrait être la petite sœur de SUBSTITUEX

Function SubstituePos(ByVal Cell As Range, ByVal Char As String, Optional ByVal arrays As Variant = "")
 'patrictoulon
Dim t,i&: t = Split(Cell.Text, " ")
    If Not IsArray(arrays) Then
        arrays = Evaluate("COLUMN(" & Cells(1).Resize(, UBound(t) + 1).EntireColumn.Address(0, 0) & ")")
    Else
        arrays = Application.Transpose(arrays)
    End If
    For i = 0 To UBound(t):        t(i) = t(i) & arrays(i&+ 1):    Next
    SubstituePos = Join(t, "")
End Function

juste comme ça en passant
bien sur on peut laisser des item vide "" si on veut le nieme etc......

 

[Usine à gaz]

Re

Adapté d'une formule de R@chid
Elle ne fait pas le job demandé, mais comme je la trouve jolie, je publie
(mais je sens qu'elle pourrait te servir, Lionel, non ? )
La formule en B2

=SIERREUR(INDEX(FILTRE.XML("<a><b>"&SUBSTITUE($A1;" ";"</b><b>")&"</b></a>";"//b");COLONNES($C:C));"")

A valider matriciellement pour Excel 2013
Recopie vers la droite puis vers le bas
Regarde la pièce jointe 1131396

merci JM pour ce que tu fais pour moi. Je prends aussi cette formule

 

[Usine à gaz]

Bonsoir
ça pourrait être la petite sœur de SUBSTITUEX

Function SubstituePos(ByVal Cell As Range, ByVal Char As String, Optional ByVal arrays As Variant = "")
 'patrictoulon
Dim t,i&: t = Split(Cell.Text, " ")
    If Not IsArray(arrays) Then
        arrays = Evaluate("COLUMN(" & Cells(1).Resize(, UBound(t) + 1).EntireColumn.Address(0, 0) & ")")
    Else
        arrays = Application.Transpose(arrays)
    End If
    For i = 0 To UBound(t):        t(i) = t(i) & arrays(i&+ 1):    Next
    SubstituePos = Join(t, "")
End Function

Regarde la pièce jointe 1131399

juste comme ça en passant
bien sur on peut laisser des item vide "" si on veut le nieme etc......

Merci Patrick, je regarde dès que j'ai un moment

 

[job75]

Bonjour Lionel, le fil, le forum,

A partir d'Excel 2016 je crois il existe la fonction JOINDRE.TEXTE.

Voyez le fichier joint et cette formule matricielle en B1 :

=JOINDRE.TEXTE("";VRAI;SIERREUR(STXT($A1;deb;fin-deb)⟩""))

Il faut auparavant sélectionner B1 et définir les 4 noms mat deb fin rang comme indiqué.

A+