Microsoft 365 remplacer les espaces dans une chaine par 123456 etc

Usine à gaz · 19 Février 2022

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 · 19 Février 2022

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

TooFatBoy · 19 Février 2022

Bonjour,

Faudrait mettre un modulo 10.

Usine à gaz · 19 Février 2022

Bjr Marcel
C'est koi "un modulo10" ?

TooFatBoy · 19 Février 2022

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 · 19 Février 2022

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

Usine à gaz · 19 Février 2022

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

Ben : ça serait mieux que ça continue

Victor21 · 19 Février 2022

Bonjour à tous.

@Usine à gaz , il a dit une formule :

TooFatBoy · 19 Février 2022

Usine à gaz à dit:
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 · 19 Février 2022

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 · 19 Février 2022

Victor21 à dit:
Bonjour à tous.

@Usine à gaz , il a dit une formule :

Bonjour Patrick
Merci pour la formule elle fonctionne nickel,
lionel

Staple1600 · 19 Février 2022

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

Code:

=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 · 19 Février 2022

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

VB:

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 · 19 Février 2022

Staple1600 à dit:
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

Code:

=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 · 19 Février 2022

patricktoulon à dit:
Bonsoir
ça pourrait être la petite sœur de SUBSTITUEX

VB:

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 · 20 Février 2022

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 :

Code:

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

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

A+

Microsoft 365 remplacer les espaces dans une chaine par 123456 etc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Victor21

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires