Diviser une chaine de charactète en plusieurs cellules
Bonsoir a vous,
Voila maintenant quelque temps que je bute sur un problème : j'ai récupérer 5 valeurs différentes que j'ai mises dans une même chaine de charactère. Mais je voudrais diviser celle-ci en 5 cellules.
Je m'explique :
La chaine de charactère est composée comme ceci : ZD456/105,6/NULL/MA-TA-RI/AAB1. Je souhaiterais répartir cette chaine dans 5 cellules, chaque valeur d'une cellule était délimitée par les "/".
J'ai cru comprendre que cela était possible grace a la fonction "split" mais sans résultat..
Si vous pouviez éclairer ma lanterne,
Merci beaucoup !
Bonsoir,
C'est vrai que Données > Convertir est le plus simple.
Pour une réponse VBA tu t'inspire de ça :
Sub Separe()
Dim ArrWD$()
ArrWD = Split("Lundi Mardi Mercredi Jeudi")
For i = 0 To 3
MsgBox ArrWD(i)
Next
End SubA+
Voila ce que j'ai fais après m'être inspiré de vos idées, et ca marchel impec !
For k = 1 To noDernLigne
ArrWD = Split(Cells(k, "A"), ";") 'split la cellule k:A a chaque ";"
For i = 0 To 4
Cells(k, "A").Value = ArrWD(0)
Cells(k, "B").Value = ArrWD(1)
Cells(k, "C").Value = ArrWD(2)
Cells(k, "D").Value = ArrWD(3)
Cells(k, "E").Value = ArrWD(4)
Next
Next
Merci a vous !