Microsoft 365 remplacer les espaces dans une chaine par 123456 etc

Marcel32 à dit:

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

Cliquez pour agrandir...

VB:

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

Cliquez pour agrandir...

Usine à gaz à dit:

Ben 😉 : ça serait mieux que ça continue

Cliquez pour agrandir...

Victor21 à dit:

Bonjour à tous.

@Usine à gaz , il a dit une formule :

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...