Le contraire de concaténer !?

  • Initiateur de la discussion Initiateur de la discussion WEIDER
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

WEIDER

XLDnaute Impliqué
Bonjour à toutes et tous,

Je suis face à un problème de formule ou d'automatisme (à définir) et pour tout vous dire, je sèche lamentablement... :-(
Votre aide me serait très précieuse.

Tout est dit dans mon petit fichier joint.

Mille mercis à tous pour vos réponses.

Amicalement,

WEIDER45
 

Pièces jointes

Bonsour®
Cool, en .ZIP ça fonctionne 🙂
Voici donc le fichier brut, tel que le sors de la clef USB.
WEIDER45
bien que marqué CSV (comma separator virgule)
le délimiteur utilisé est en fait "tabulation"
dans un nouveau classeur excel
insérer cette macro dans un module standard
et après avoir modifier le chemin ou se trouve les données,
exécuter la macro
VB:
Sub Macro1()
' Macro1 Macro
' Adapter ici le chemin complet ou se trouve le fichier original
    Workbooks.Open Filename:="C:\Users\GeeDee\Downloads\fichier original ATEQ.CSV"
     
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, 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), Array(9, 1), Array(10, 4), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1)), TrailingMinusNumbers:= _
        True
End Sub
résultat obtenu :
upload_2017-1-26_15-16-41.png
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
481
  • Question Question
XL pour MAC Calcul de notes.
Réponses
5
Affichages
783
Retour