Découper une chaine de caractères en segments de 10

Bonjour à tous,

Sur les conseils avisés de dubois, j'ouvre une nouvelle discussion !

Je pensais trouver facilement réponse à mon problème mais non...

J'ai une chaine de lettres sans espace (DILLINSTGNLIAPRGYFKIRSGKSSIMRSDAPIGKCNSECITPNGSIPNDKPFQNVNRITYGACPRYVKQNTLKLATGMRNVPEKQTRGIFGAIAGFIENGWEGMVDGWYGFRHQNSEG), j'aimerais pouvoir la découper en segments de 10, segments séparés par un espace. J'ai essayé avec stxt, mais je ne parviens pas à l'appliquer sur l'ensemble de ma chaine.

Voici le résultat que je recherche : DILLINSTGN LIAPRGYFKI RSGKSSIMRS etc

Qui peut m'aider ?

Merci,

Bonne journée,

Bonjour,

Essaies cette fonction personnalisée

Function Decoupe(Cell As Range)
    Chaine = Cell.Value
    For i = 1 To Len(Chaine) Step 10
        Partiel = Mid(Chaine, i, 10)
        Resultat = Resultat & " " & Partiel
    Next i
    Decoupe = Trim(Resultat)
End Function

Bonsoir Walden, Eric,

Une solution par formules, bien que la solution d'Eric soit bien meilleure.

Je ne pense pas que l'on puisse se passer de ligne intermédiaire.

Amicalement

Bonsoir Éric,

Merci pour le code, j'ai essayé de l'appliquer à mon fichier, avec quelques soucis... Voici mon fichier en pj !

J'ai essayé de modifier le code comme j'ai c'est à dire mal...

Où me suis-je trompé ??

Bien amicalement

Bonsoir Haonv !

Désolé, je ne vois ton message que maintenant ...

Je regarde tout ça !! Merci beaucoup de ton aide !

A+

@ haonv : je ne comprends pas cette partie de la formule =STXT($A1;10*(COLONNE()-1)+2;10)&" "

Pourrais-tu m'expliquer (doucement ...) stp ??

A+

Bonsoir,

j'ai repris le code de RENAUDER,

Sub decoupe()
Dim chaine$, i%, partiel$, resultat$
    chaine = Feuil1.Range("A2")
    For i = 1 To Len(chaine) Step 10
        partiel = Mid(chaine, i, 10)
        resultat = resultat & " " & partiel
    Next i
    Sheets("Output").Range("A2") = Trim(resultat)
End Sub

Amicalement

Claude

édit: n'oublie pas de solder ton poste précédent

Bonjour Walden, Eric,Claude

Je reposte le fichier avec les explications.

Mais dans ton cas ,la solution par VBA est beaucoup plus judicieuse.

Amicalement

MERCI haonv !!

Bonne journée,

Bien amicalement