Séparer text en fonction des / en VBA

Bonjour

j'ai une colonne qui contient un text : paris/lyon/01/alo

et j'aimerais copier et collier chaque valeur dans A1 B1 C1 D1 en fonction du séparateur / . avec VBA et pas avec les formules

Merci

Bonsoir,

Essaye ça :

Sub Macro1()
    Dim tablo() As Variant
    tablo = split(Range("A1"), "/")
    For i = 0 To UBound(tablo)
        Cells(1, i + 1) = tablo(i)
    Next i
End Sub

Bonjour Hello29, voilà une proposition:

Dim extraction as Variant
extraction = Split("paris/lyon/01/alo","/")
For i = lbound(extraction,1) to ubound(extraction,1)
Cells(1,i+1) = extraction(i)
Next i

il faudra remplacer

Split("paris/lyon/01/alo","/")

par

Split(Cells(x,y).Value,"/")

@Raja: Tu es vraiment rapide!

Bonjour ,

Merci pour les réponse !

j'étais pas trop clair ..... voici l’exemple :

j'ai un fichier test.xlsx qui contient des valeurs oui , non ,autres valeurs dans la colonne AF de comparaison et en fonction de ca si la colonne AF1 a une valeur "oui" je fractionne le text de la colonne V1 qui est sous cette forme par exemple : BLA/2/KRT/SYST/000/STAND/EPC ( c'est pas toujours les memes valeurs ) et j'écris chaque valeur dans les colonnes du 2 eme fichier TRANSFORM.xlsx :

A1 : BLA

F1: 2

G1: :KRT

H1; 000

I1: SYST

J1:STAND

K1: EPC

voila

merci d'avance