Deconcatener une cellule en colonnes

[JeanLoup]

Bonjour,
Dans la cellule A1, j'ai une zone texte avec la forme suivante

texte1/texte2/texte3/ ...

C'est toujours le même séparateur /

J'aimerais le résultat suivant :

A2 = texte1
A3 = texte2
A4 = texte3

etc ...

Merci pour votre réponse

 

[JHA]

Re : Deconcatener une cellule en colonnes

Bonjour à tous,

Regardes ruban Données/convertir/délimité/autre "/"

JHA

 

[Dormeur74]

Re : Deconcatener une cellule en colonnes

Fonction split()
Essaye cette macro :

Sub Macro1()
    Dim chaine As String
    Dim tableau() As String
    Dim x As Integer
    
    chaine = Cells(1, 1)
    tableau = Split(chaine, "/")
    
    ' Attention : comme en C, zéro est la première valeur d'un tableau
    For x = 0 To UBound(tableau)
        Cells(x + 2,1) = tableau(x)
    Next x
End Sub

 

[Dormeur74]

Re : Deconcatener une cellule en colonnes

Je corrige une petite erreur xy :

Sub Macro1()
    Dim chaine As String
    Dim tableau() As String
    Dim x As Integer
   
    chaine = Cells(1, 1)
    tableau = Split(chaine, "/")
   
    ' Attention : comme en C, zéro est la première valeur d'un tableau
    For x = 0 To UBound(tableau)
        Cells(x + 2, 1) = tableau(x)
    Next x
End Sub

 

[JeanLoup]

Re : Deconcatener une cellule en colonnes

Grand Merci à tous