Discussion :

[fx007]

Bonjour,

Je souhaite (comme mon titre l'indique) scinder un colonne en deux selon un critère que j'aurai défini.

Je m'explique: Actuellement, j'ai une colonne où chaque cellule comporte un meme caractère qui se répète "]" et je voudrais faire un traitement qui va, à chaque fois qu'il rencontre ce caractère, mettre ce qu'il y a avant le ] dans une colonne et ce qu'il y a après dans une autre.

Je sais qu'il y a une méthode qui le fait mais pour l'ouverture d'un fichier texte (c'est la méthode Opentext qui permet de reconnaitre les séparateur dans un fichier texte), quelqu'un connaitrait- il une fonction de la sorte mais appliqué qu'à excel?

Merci d'avance,

[ouskel'n'or]

Regarde ici, tu en as le principe. Tu remplaces simplement

tb = Split(st, " ")

par

tb = Split(st, "]")

[spitnolan]

Bonjour,

Tout simplement via le menu Données/Convertir avec comme séparateur ] et sans macro.

Cordialement

[fx007]

Génial merci

la solution de spitnolan est exactement ce que je cherchais. Je ne connaissais pas cette fonction sous excel.

Pour le split, c'est marrant je l'ai deja utilsé sur un fichier texte pour faire de la conversion fichier text unix-->Dos, et je l'ai completement zappé

merci à vous deux !

[spitnolan]

Re,

Et la transcription en macro est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Macro1()
    Range("A1:A10").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="]", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub

via l'enregistreur.

Cordialement

Edit : peut être une variante à ajouter au fil indiqué par Ouskel'n'ord ?

[ouskel'n'or]

Bonjour,

Tout simplement via le menu Données/Convertir avec comme séparateur ] et sans macro.

Cordialement

(ou j'avais oublié, ou je ne connaissais pas...) Merci spitnolan

J'ai donc passé ça par macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Test()
    Application.DisplayAlerts = False
        Range("A2:A7").TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
            Other:=True, OtherChar:="]"
    Application.DisplayAlerts = True
End Sub

[fx007]

oui j'ai fait pareil

encore merci