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

 

[Staple1600]

Bonjour

Un truc du genre?

Sub Bus()
a = "aaa bbb ccc ddd eee fff "
b = Split(a)
For i = 0 To UBound(b)
c = c & b(i) & i + 1
Next
MsgBox Left(c, Len(c) - 2)
End Sub

 

[Usine à gaz]

Re-Bjr JM,
Merci pour ce retour rapide
je regarde,
lionel

 

[Usine à gaz]

Re-JM,
Merci ça à l'air super

Sub Bus()
a = [b2]
b = Split(a)
For i = 0 To UBound(b)
c = c & b(i) & i + 1
Next
MsgBox Left(c, Len(c) - 2)
End Sub

J'ai commencé à la cellule B2
Au lieu d'avoir un MsgBox, on peut avoir le résultat dans une cellule à droite de chaque cellule col B traitée par exemple en col D ?

 

[Staple1600]

Re,

La même, mais transformée en fonction personnalisée

Function outtaspace(r As Range)
Dim i As Byte
b = Split(r.Value2)
For i = 0 To UBound(b)
c = c & b(i) & i + 1
Next
outtaspace = Left(c, Len(c) - 2)
End Function

A utiliser de la sorte
Si on en A1: aaa bbb ccc ddd eee fff
alors en B1, saisir =outtaspace(A1)

Je laisse les formulistes proposer la formule qui se passera de VBA.

 

[Usine à gaz]

Merci JM,

Très content de ton retour
Il me manquait quelques chose lol

 

[Usine à gaz]

ça fonctionne super bien mais "bizarrement" ça m'enlève toujours le dernier caractère :

Par exemple :
QUEFAISTU THONON LES BAINS Catherine
Donne :
QUEFAISTU THONON LES BAINS Catherin

 

[Staple1600]

Bonjour mapomme

Y a une coquille dans ton code

NB: Tu n'aimes pas Lio ?
(Oui, je sais elle vient de loin )
(voir le message#5)

 

[Usine à gaz]

Re,

Fonction personnalisée:

Function EspaceNombre(ByVal x) As String
Dim n&, i&
 For i = 1 To Len(x)
   If Mid(x, i, 1) = " " Then n = n + 1: x = Replace(x, " ", n, , 1)
   ext i
   EspaceNombre = x
End Function

Re-Bonjour Mapomme,
Merci pour ton code mais ça beugue

lionel

 

[Staple1600]

Re

Ce sera un peu mieux comme ceci (mais jusqu'à un certain point)

Function outtaspace(r As Range)
Dim i As Byte
b = Split(VBA.Trim(r.Value2))
For i = 0 To UBound(b)
c = c & b(i) & i + 1
Next
outtaspace = Left(c, Len(c) - 1)
End Function

 

[Staple1600]

Re

Usine à gaz
Franchement ?
Tu ne vois pas où est la coquille ?? (après tout le temps passé sur ce forum...)
(Pourtant j'avais prévenu = > message#8)

 

[Usine à gaz]

Re

Ce sera un peu mieux comme ceci (mais jusqu'à un certain point)

Function outtaspace(r As Range)
Dim i As Byte
b = Split(VBA.Trim(r.Value2))
For i = 0 To UBound(b)
c = c & b(i) & i + 1
Next
outtaspace = Left(c, Len(c) - 1)
End Function

C'est vraiment mieux lol
Merci à toi,

(mais jusqu'à un certain point)
Jusqu'à quel point ?

 

[Staple1600]

Re

Je te laisse découvrir ce point en testant avec une chaine de caractère contenant plus de 9 espaces

Tu as trouvé ce qu'il faut corriger dans le code de mapomme ?
(ou plutôt ce qu'il faut ajouter)

 

[Usine à gaz]

"Tu as trouvé ce qu'il faut corriger dans le code de Mapomme ?"
je n'ai pas encore pris le temps de tester

 

[Usine à gaz]

Re-JM
aaa1bbbb2ccccc3dddeee4eeeeeee5fffffffffffff6ggggggggggggg7hhhhhhhhhhhhhhhhh8iiiiiiiiiiiii9jjjjjjjjjjjjjjjjjjj10kkkkkkkkkkkkkkkkkk1

lol, ça repart à 1 mais ça ne devrait pas me gêner je pense?
Mais si tu as la solution pour passe à 11 ....