Modification Macro dispatch texte

Sub decoup_text()

mot_a_couper = ActiveCell

'recherche du nombre de caracteres de la cellule
nb_caractere = Len(mot_a_couper)

'scrutation des caracteres 1 par 1
For n = 1 To nb_caractere

'observation du caratere n
caract_n = Mid(mot_a_couper, n, 1)
'stocke les caracteres 1 à 1
stock = stock + caract_n
'repérage d'une virgule
If caract_n = "," Then
'on sauve stock et le caractere suivant
mot = stock + Mid(mot_a_couper, n + 1, 1)
'on ecrit le resultat dans [cellule de départ avec un offset(décalage) de 0 ligne et d colonnes]
ActiveCell.Offset(0, d).Value = mot
'on incrémente l'index de colonne de la cellule cible
d = d + 1
'effacement du stockage
stock = ""
'on decale pour echapper le caractere après la virgule
n = n + 1

End If

Next n 'on reboucle

End Sub

Cliquez pour agrandir...