Contraire de concatener

isa -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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






A voir également:

1 réponse

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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