Contraire de concatener

isa -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,

J'ai dans une première cellule du texte, j'utilise comme renvoi à la ligne alt+entrée

dans une 2ème cellule j'ai une autre donnée (toujours du texte)

j'ai concaténé les deux cellules .... jusque là, pas de souci.

j'obtiens donc "deux groupes" fusionnés dans une seule cellule.

comment faire si je dois (dans un autre fichier) déconcaténer, j'ai bien utilisé la fonction données convertir et délimité mais le résultat ne me donne que la première ligne

ex; : entreprise (alt+entrée)
nom (alt+entrée)
secteur

en fait comment indiquer quand j'utilise la fonction données convertir délimité que la "coupure" se fait à alt+entrée

merci bcp

1 réponse

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonjour

    sans macro, je ne vois pas
    avec macro

    Public Sub Deconcatener()
    Dim s As String
    s = Selection.Value
    s = Replace(s, Chr(10), ";")
    Selection.Value = s
    Selection.TextToColumns Destination:=Selection, DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
            :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    End Sub


    Alt-F11 pour passer à l'éditeur vba
    Insertion/module
    copier/coller le code
    Revenir dans la feuille
    Outils/Macros/Choisir Deconcaténer/Option/
    affecter un raccourci clavier (Ctrl+d par exemple)

    Utilisation
    Selectionner la cellule à déconcaténer
    Ctrl+d

    bonne suite
    0