Discussion :

[torso]

Bonjour,

Je voudrais éditer un fichier notepad contenant des millier de ligne avec excel.
J'ai attaché un fichier txt avec une seule ligne pour vous montrer à quoi ça ressemble.

Lorsque je copie une ligne dans excel, je sais la fractionner pour que chaque grouppe apparaisse dans une cellule, mais une fois que je recopie de excel vers notepad, le format d'origine n'est plus le même (les espaces entre chaque groupe est le même et égal a une tabulation).

Il devrait y avoir 1 espace entre 1010 et 2012 puis 6 espaces entre 2012 et 2317.
Y a-t-il une macro simple pour automatiquement ré-exporter mes données avec les bons espaces ?

Merci pour votre aide.

[Daniel.C]

Bonjour,

Exécute cette macro quand le fichier texte est ouvert et que tu veux l'exporter.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test1()
Dim Sh As Worksheet, C As Range
Set Sh = ActiveWorkbook.ActiveSheet
Workbooks.Add 1
With Sh
    For Each C In .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
        Cells(C.Row, 1) = C.Value & " " & C.Offset(, 1).Value & "      " & C.Offset(, 2).Value
    Next C
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "notepad2.txt", xlTextWindows
    ActiveWorkbook.Close False
End With
End Sub

[torso]

Bonjour Daniel,

Merci pour ton code, ça fonctionne parfaitement !

Il faut maintenant que j'adapte ce code à mon fichier original qui contient 2000 lignes et quelques colonnes en plus.

Quelle boucle permet de lister les 2000 lignes ?

Tu peux m'expliquer comment fonctionne la syntaxe pour que je puisse ajouter d'autres chiffres a la 1ère ligne ?
Je vois que les espaces sont définis entre les " ".

Code :

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

Cells(C.Row, 1) = C.Value & " " & C.Offset(, 1).Value & "      " & C.Offset(, 2).Value

Par exemple:
1010 2012 2317 et ajouter le nombre 22 après 2317, séparé de 3 espaces.

[Daniel.C]

J'ai supposé que les 3 nombres étaient dans les cellules des colonnes A, B et C. La macro est prévue pour traiter toutes les lignes, tu n'as rien à modifier pour cela. La macro traite successivement chaque ligne. C représente la cellule de la colonne A en cours de traitement. La ligne de code :

Code :

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

Cells(C.Row, 1) = C.Value & " " & C.Offset(, 1).Value & "      " & C.Offset(, 2).Value

peut se traduire littéralement :

dans la cellule du nouveau classeur ayant le même numéro de ligne que la cellule C, je mets la valeur de C et un espace et la valeur de la première cellule à droite de la cellule C (C.Offset(, 1).Value) et 6 espaces et la valeur de la deuxième à droite de la cellule C (C.Offset(, 2).Value). Si tu doit ajouter 3 espaces et la cellule de la colonne D, mets :

Code :

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

1
2
        Cells(C.Row, 1) = C.Value & " " & C.Offset(, 1).Value & "      " & C.Offset(, 2).Value & _
        "   " & C.Offset(, 3).Value

[torso]

Génial, je vais essayer ça.

Merci encore pour ton aide !!