[XL-2007] Mise en forme apres insersion fichier txt [Résolu]

[chris09300]

Bonjour
Je souhaiterais faire une mise en forme d'un fichier text insere dans excel
1- supprimer les 7 premieres lignes
2- supprimer les colonnes B,D,E,F,G,H,I,J,L,M,O,P,Q,R,S,T,U,V,W,X,Y,ET Z
3- supprimer 1 lignes sur deux, a partir de la ligne 2, c'est a dire 2,4,6,8, etc
une fois cela effectue couper en colonne F les 2 premiers caracteres et le 9 derniers ou ne conserver que 4 caracteres, c'est a dire TT 7101 (Bah2202),ne garder que 7101.
4- deplacer la colonne E en A puis D en B
j'ai cette manip a effectuer sur au 50 fichiers d'ou ma demande.
Pour supprimer les colonnes j'ai essayer avec l'enregistreur de macros, mais pour le reste je ne sais pas faire
merci
cris

[Daniel.C]

Bonjour,

Essaie la macro suivante. Note que, pour le dernier point, lorsque tu déplaces la colonne E en A, la colonne D devient la colonne E. C'est elle-ci que j'ai déplacé devant la colonne B (ex colonne A) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub test1()
    Dim Cols, c As Range, i As Long
    Cols = Array("B", "D", "E", "F", "G", "H", "I", "J", "L", "M", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
    With Sheets("Feuil1")
        .Range("1:7").Delete
        For i = 26 To 1 Step -1
            If IsNumeric(Application.Match(Left(.Cells(1, i).Address(0, 0), 1), Cols, 0)) Then
                .Columns(i).Delete
            End If
        Next i
        For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 3 Step -1
            If Application.IsEven(i) Then
                .Rows(i).Delete
            End If
        Next i
        For Each c In .Range(.[F1], .Cells(.Rows.Count, 6).End(xlUp))
            txt = Mid(c.Value, 4, 4)
            c.Value = Mid(c.Value, 4, 4)
        Next c
        Columns(5).Cut
        Columns(1).Insert
        Columns(5).Cut
        Columns(2).Insert
    End With
End Sub

[chris09300]

merci a toi
j'aimerais une petite explication, car a ce niveau le resultat est de 3 caracteres et non 4

Code :

1
2
3
4
        For Each c In .Range(.[F1], .Cells(.Rows.Count, 6).End(xlUp))
            txt = Mid(c.Value, 4, 4)
            c.Value = Mid(c.Value, 4, 4)
        Next c

[ZebreLoup]

Il doit y avoir des espaces en trop ou en moins quelque part...

[Daniel.C]

Effectivement, le "TT 7101 m'a trompé. Tu as dit vouloir conserver uniquement 7101, ce qui fait que j'ai éliminé les 3 premiers caractères. Rectifie comme suit (la ligne 2 étant inutile) :

Code :

1
2
3
        For Each c In .Range(.[F1], .Cells(.Rows.Count, 6).End(xlUp))
            c.Value = Mid(c.Value, 3, 4)
        Next c

[chris09300]

j'avais oublie une colonne AB apres Z j'ai AA et AB et je veux supprime AB
toujours meme probleme
7101(Bah2202),ne garder que 7101.
cris

[Daniel.C]

TT 7101 (Bah2202)

?

C'est devenu :

7101(Bah2202)

On garde les 4 premiers caractères. Sinon, pour la colonne AB :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub test1()
    Dim Cols, c As Range, i As Long
    Cols = Array("B", "D", "E", "F", "G", "H", "I", "J", "L", "M", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
    With Sheets("Feuil1")
        .Range("1:7").Delete
        For i = 28 To 1 Step -1
            If IsNumeric(Application.Match(Left(.Cells(1, i).Address(0, 0), 1), Cols, 0)) Or _
            i = 28 Then
                .Columns(i).Delete
            End If
        Next i
        For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 3 Step -1
            If Application.IsEven(i) Then
                .Rows(i).Delete
            End If
        Next i
        For Each c In .Range(.[F1], .Cells(.Rows.Count, 6).End(xlUp))
            txt = Mid(c.Value, 4, 4)
            c.Value = Left(c.Value, 4)
        Next c
        Columns(5).Cut
        Columns(1).Insert
        Columns(5).Cut
        Columns(2).Insert
    End With
End Sub