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.