Decoupage texte dans colonne en utilisant une macro Excel
Bonjour
Je souhaite avoir le texte ci-dessous dans colonne E, dont chaque élément est séparé par une virgule dans les colonnes qui suivent.
j'ai essayé le code suivant mais cela ne fonctionne pas. Message "colonnes fusionnées" mais elles ne sont pas fusionnée !!
Pourriez-vous me venir en aide . D'avance merci
Texte :
| ADHESION (15.00€), Réduction de cotisation annuelle 6 (-55.00€), Aquagym Grand Bassin - Mercredi (130.00€), Gymnastique d'entretien - Vendredi (75.00€), Pilates - Lundi (130.00€), Sweet latino dance - Mardi (110.00€), Forum Vertavien (20.00€), PAC (Mémoire) (30.00€) |
| ADHESION (15.00€), SUPPLEMENT HORS COMMUNE (15.00€), Danse en ligne - DEBUTANTS (90.00€) |
| ADHESION (15.00€), Réduction cotisation annuelle 1 (-30.00€), Aquagym Petit Bassin - Lundi matin (130.00€), Aquagym Grand Bassin - Mercredi (130.00€) |
Code VBA:
Columns("E:E").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("F2"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
Bonjour
Faisable par PowerQuery
Sinon dans le module de la feuille
Sub decoupe()
X = 2
Application.ScreenUpdating = False
While Cells(X, 5) <> ""
Liste = Split(Cells(X, 5), ", ")
Range(Cells(X, 6), Cells(X, 5 + UBound(Liste))) = Liste
X = X + 1
Wend
Application.ScreenUpdating = True
End SubAdapter le X de départ selon où se trouve la 1ère ligne
Merci pour ta réponse