Séparer les caractères par un espace

Bonjour,

Le problème semble simple mais je ne trouve pas de solution.
Je pars d'une chaîne de caractères composée de x caractères dont je dois mettre un espace tous les 2 caractères:

chaîne_entrée = "ABCDEFGHI"
chhaîne_sortie =""A BC DE FG HI"

Avez-vous une solution à ce problème ?

Merci

Comment extraire une partie d'une chaîne ?
Comment connaitre la longueur d'un chaîne ?
Comment concaténer deux chaînes ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim chaine_entree Dim chaine_sortie Dim T chaine_entree = "ABCDEFGHI" For T = 1 To Len(chaine_entree) Step 2 chaine_sortie = chaine_sortie & Mid(chaine_entree, T, 2) & " " Next chaine_sortie = Left(chaine_sortie, Len(chaine_sortie) - 1) 'chaîne_sortie = "AB CD EF GH I" MsgBox chaine_sortie     chaine_sortie = Left(chaine_entree, 1) & " " For T = 2 To Len(chaine_entree) Step 2 chaine_sortie = chaine_sortie & Mid(chaine_entree, T, 2) & " " Next chaine_sortie = Left(chaine_sortie, Len(chaine_sortie) - 1) 'chaîne_sortie = "A BC DE FG HI" MsgBox chaine_sortie

---

Merci pour la réponse.

Est-il possible de simplifier le code en insérant le séparateur " " en commençant la lecture de la chaine_entree par la droite ?

La longueur de la chaine_entrree peut-être paire ou impaire.
La fonction Mid() commence son traitement par la gauche, il faudrait une fonction équivalente qui commence par la droite.

bonjour,

Citation:

---

il faudrait une fonction équivalente qui commence par la droite.

---

tu te compliques la vie...:calim2:
teste si la longueur de ta chaine est paire ou impaire (par un mod ou un And 1)
si pair, l'algo est bon
si impair, tu traites le 1er caractère et tu utilises l'algo à partir de la position 2

Salut omen999, fleurparis
Il peut aussi y arriver en utilisant StrReverse, se qui ne l'oblige pas a tester la longueur de chaine_entree

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Option Explicit Dim chaine_entree Dim chaine_sortie '--------------------------- prog. principal-------------------------- chaine_entree = "ABCDEFGHI" ' 9 caractères AjoutEspaces MsgBox chaine_sortie   chaine_entree = "ABCDEFGHIJKL" ' 12 caractères AjoutEspaces MsgBox chaine_sortie   '++++++++++++++++++++++++ Routine +++++++++++++++++++++++++++++++++++++ Sub AjoutEspaces() Dim T chaine_entree = StrReverse(chaine_entree)'< ******** nouveauté chaine_sortie = "" For T = 1 To Len(chaine_entree) Step 2 chaine_sortie = chaine_sortie & Mid(chaine_entree, T, 2) & " " Next chaine_sortie = Left(chaine_sortie, Len(chaine_sortie) - 1) chaine_sortie = StrReverse(chaine_sortie)'< ******** nouveauté end sub '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

---

Ou j'ai pas compris, le doute étant que je ne suis pas sûr si chaine_sortie doit systematiquement commencer par une lettre suivit immediatement par un espace ?

Merci pour votre aide.