Modification Macro dispatch texte

[Linkeed]

Bonjour,

Je souhaite utiliser la macro ci-jointe sur l'ensemble de la colonne A du fichier excel.
Actuellement la macro s'exécute uniquement sur la cellule sélectionnée.

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

Pouvez-vous m'aider svp.
Cdlt

 

[phlaurent55]

Re : Modification Macro dispatch texte

Bonjour linkeed, et bienvenue sur le forum

ton fichier en retour

à+
Philippe

 

[Linkeed]

Re : Modification Macro dispatch texte

Bonjour,

La macro fonctionne parfaitement.
Merci Phlaurent