XL 2010 Séparer une chaine de caractères

[David590]

Bonjour à tous,

J'aurai besoin de séparer en VBA des informations qui se trouve dans un chaine de caractères séparé par des ;/

Par exemple, il faudrait que ce qui se trouve en D1 :
;/Nom;/Prénom;/nomprenom@gmail.com;/0711223344;/1 rue des Oliviers;/75000;/Paris

se décompose sur
C5: Nom
C6: Prénom
C7: nomprenom@gmail.com
C8: 0711223344
C9: 1 rue des Oliviers
C10: 75000
C11: Paris

Pouvez vous m'aidez, là je bloque

 

[JM27]

bonjour

Sub Splitter()
    Dim Nom
    Nom = Range("D1")
    Nom = Split(Nom, ";/")
    For I = 1 To UBound(Nom)
        Range("C" & 4 + I) = Nom(I)
    Next
End Sub

 

[David590]

Super exactement ce qu'il me fallait,
Merci @JM27

 

[Phil69970]

Bonjour @David590 , @JM27

J'arrive après la bataille 😳 mais voici une version sans variable et sans boucle......

Option Explicit

Sub separer()
[D1].TextToColumns Destination:=Range("C5"), DataType:=xlDelimited, _
     OtherChar:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
    Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True

End Sub

@Phil69970

 

[David590]

Bonjour @Phil69970

J'ai essayé mais ca ne sépare pas, ca me mets la même chose en C5 qu'en D1

 

[Phil69970]

Re

Essaye cette version

Option Explicit

Sub separer()
[D1].TextToColumns Destination:=Range("C5"), DataType:=xlDelimited, Other:=True, OtherChar:="/", FieldInfo:= _
    Array(Array(1, 9), Array(2, 9), Array(3, 1), Array(4, 9), Array(5, 1), Array(6, 9), Array(7, 1), Array(8, 9) _
    , Array(9, 1), Array(10, 9), Array(11, 1), Array(12, 9), Array(13, 1), Array(14, 9), Array(15, 1))
End Sub

@Phil69970

 

[David590]

Merci pour ton aide mais je vais plutôt garder la version de @JM27 qui me permet de pouvoir changer la source et la destination très facilement

 

[JM27]

bonsoir
D'autant plus que convertir ne sépare qu'un seul caractère et par contre la fonction split le permet (;/)