créer espace dans suite de chiffres

[tim1]

bonjour,
j'ai ceci: 5h5p0p0p0p8p0c0p
je voudrais ceci:5h 5p 0p 0p 0p 8p 0c 0p
la longueur de la suite peut être variable.
merci de votre aide.
tim

 

[JJ1]

Re : créer espace dans suite de chiffres

Bonjour,
Est-ce une seule cellule concaténée ou plusieurs cellules, car ça change le problème.
Si elle est concaténée, il te suffit de rajouter de espaces avec &
Bon am

 

[mth]

Re : créer espace dans suite de chiffres

Bonjour tim1, JJ1 🙂

Un petit essai sans prétention avec ce code:

Sub espace()
Dim i As Long, j As Long, Derlig As Long, Vlen As Long
Dim Vstr As String, y As String
 
With Sheets("Feuil1")
Derlig = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To Derlig
        Vstr = .Cells(i, 1)
        For j = 1 To Len(Vstr) Step 2
            y = y & Mid(Vstr, j, 2) & " "
        Next j
        .Cells(i, 2) = y
        y = ""
    Next i
End With
End Sub

Bon après-midi à tous,

mth

 

[tim1]

Re : créer espace dans suite de chiffres

merci pour la réponse rapide.
un petit pb cependant j'ai ceci qui est surligné en jaune: et qui bloque la macro.
.Cells(i, 2) = y 🙁

désolé.
tim

 

[Tibo]

Re : créer espace dans suite de chiffres

Bonjour à tous,

S'il n'y a que trois lettres, une solution formule :

=SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;"h";"h ");"p";"p ");"c";"c ")

Je te laisse tester

@+

 

[mth]

Re : créer espace dans suite de chiffres

re 🙂
Bonjour Tibo 🙂

Tim1, je te joins mon fichier d'essai, je ne vois pas pour l'instant mais bon, ça fonctionne sur l'intégralité du fichier et des exemples que tu nous as fournis.

Bon après-midi

mth

 

[tim1]

Re : créer espace dans suite de chiffres

c'est pas mal du tout, c'est une très bonne astuce. merci pour votre aide Tibo.

 

[tim1]

Re : créer espace dans suite de chiffres

c'est une très bonne astuce que je vais utiliser. merci Tibo.

 

[tim1]

Re : créer espace dans suite de chiffres

merci mth c'est du bon travail.