Séparer caractères d'une cellule

Bonjour,

Je souhaiterai ajouter dans une macro la possibilité de séparer chacun des caractères d'une cellule en plusieurs caractères mais je ne sais pas comment faire, une idee?

J'ai une cellule avec par exemple: ddvgdd

et j aimerai avoir 6 cellule différentes: d d v g d d

Merci d avance pour votre aide

Bonjour

Sub espaces()
    Chainedep = "ddvgddh"
    lg = Len(Cells(1, 1))
    For i = 1 To lg
    chaine = chaine & Left(Chainedep, 1) & " "
    nvlg = Len(Chainedep)
    Chainedep = Right(Chainedep, nvlg - 1)
    Next
    MsgBox chaine
End Sub

A voir

Hello Patty

merci pour ta réponse

cela me parait etre un bon départ mais la macro insert seulement des espaces dans la meme cellule

voici ce dont j'ai besoin exactement:

si cela ne te derange pas j'aimerai comprendre qu'est ce que "len" et aussi comment s'utilise Right ou left

J'ai regardé un peu sur internet mais c est un peu abstrait pour moi

merci encore

Bonjour,

par exemple

Sub aargh()
    s = "dddddghhhge"
    cellsdest = "B1"
    For i = 1 To Len(s)
        Range(cellsdest).Cells(1, i) = Mid(s, i, 1)
    Next
End Sub

Bonjour,

=STXT($A2;COLONNE()-1;1)

à tirer vers la droite

eric

Bonjour whereisbryan,

Pour répondre à ta 1ère question : i know that bryan is not here, perhaps there ? traduction pour les non anglophones : je sais que bryan n'est pas ici, peut-être là-bas ?

Pour répondre aux 3 questions que tu as posées à Patty5046 :

1) la fonction VBA Len() retourne le nombre de caractères d'une chaîne de caractères ; équivalent Excel : =NBCAR()

2) MsgBox Right$("abcdefgh", 3) affiche les 3 caractères de droite de "abcdefgh", donc : "fgh"

3) MsgBox Left$("abcdefgh", 3) affiche les 3 caractères de gauche de "abcdefgh", donc : "abc"

cela étant dit sans faire aucune politique pour un parti ou un autre ; de toute façon, c'est blanc bonnet et bonnet blanc, et c'est toujours le contribuable qui trinque (ou qui est le dindon de la farce, ce qui revient au même)

Je te propose ce fichier Excel :

En B2 : ddvgddh ; Ctrl e ➯ séparation de caractères effectuée

Sans effacer le résultat, tu peux mettre un autre mot en B2, puis : Ctrl e

Alt F11 pour voir la macro, puis revenir sur Excel

Pour une solution sans VBA, tu peux lire le message d'eriiic de 00:30

dhany

SUPER Merci à tous pour votre aide