Microsoft 365 remplacer les espaces dans une chaine par 123456 etc

Staple1600

XLDnaute Barbatruc

• 19 Février 2022

• #2

Bonjour

Un truc du genre?

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2022

• #3

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2022

• #4

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

VB:

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Février 2022

• #5

Re,

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

VB:

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2022

• #6

Merci JM,

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2022

• #7

ç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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Février 2022

• #8

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)

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2022

• #9

mapomme à dit:

Re,

Fonction personnalisée:

VB:

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

Cliquez pour agrandir...

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

lionel

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Février 2022

• #10

Re

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

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Février 2022

• #11

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)

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2022

• #12

Staple1600 à dit:

Re

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

VB:

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

Cliquez pour agrandir...

C'est vraiment mieux lol
Merci à toi,

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Février 2022

• #13

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)

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2022

• #14

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2022

• #15

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 ....

 

Vote positif 0 Vote négatif