Déconcatener les données d'une cellule

Bonour,

je souhaiterai pouvoir répartir les différentes informations contenu dans une cellule de la feuille 1 et séparé par une virgule ; dans mon fichier colonne C et les transférer dans la feuille 2 dans des colonnes distinctes.

pouvez vous m'aider sur le sujet ?

d'avance merci

xavier

23classeur1test.xlsx (18.19 Ko)

Bonjour,

Vite fait avec l'enregistreur de macro

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("Feuil1").Activate
    Columns("C:C").Select
    Selection.Copy
    Sheets("Feuil2").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
    Columns("A:F").Select
    Columns("A:F").EntireColumn.AutoFit
    Range("A1").Select
End Sub

bonjour et merci pour ta réponse,

j'avais effectué ce test, j'ai intégré cette macro à un bouton mais le message d'erreur suivant apparait :

erreur d'éxécution 1004

la méthode select de la classe range a échoué


ok done j'ai trouvé la solution ici :

https://forum.excel-pratique.com/excel/erreur-1004-methode-select-t49632.html

merci encore )

Rechercher des sujets similaires à "deconcatener donnees"