Discussion :

[jawed]

Bonsoir a vous tous, Je tiens a vous préciser que je débute en VBA
le code VBA que je joint supprime toutes les lignes superflus pour en garder que l'essentiel, ma question est es que ont peut réduire les lignes de ce code

Code :

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

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub Test()
Dim i As Integer, j As Integer
    i = Range("A65536").End(xlUp).Row
    For j = i To 1 Step -1
        If Cells(j, 1) = "!                 Age  Dev Chap.      Compte                     Nom                           Intitule                            !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "! Agence ......: 00512-AP TLEMCEN                                                                                                  !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "------------------------------------------------------------------------------------------------------------------------------------" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "!                                                                                                                                  !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "! BANQUE NATIONALE D'ALGERIE                                                                                          CTB-102-3283 !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "! Compte No  ..: 00512 DZD 220021     0300000075-24     ALGERIE TELECOM SPA                CCdzd entr n .financ privees            !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "! No Client  ..: 0064800001                                                                                                        !" Then
            Rows(j).Delete
        End If
    Next j
    For j = i To 1 Step -1
        If Cells(j, 1) = "!Date compta!Date valeur!Util!Exo! No piece  !No eve!Ope!            Libelle             !       Debit        !       Credit       !" Then
            Rows(j).Delete
    End If
    Next j
    For j = i To 1 Step -1
        If Left(Cells(j, 1), 6) = "! Date" Then
            Rows(j).Delete
    End If
    Next j
    For j = i To 1 Step -1
        If Left(Cells(j, 1), 57) = "!           !           !    !   !           !      !   !" Then
            Rows(j).Delete
    End If
     Next j
        For j = i To 1 Step -1
        If Left(Cells(j, 1), 67) = "!                                      HISTORIQUE DES MOUVEMENTS DU" Then
            Rows(j).Delete
    End If
    Next j
End Sub

Cordialement

[ARTURO83]

Bonjour,

Comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
    Dim i As Integer, j As Integer
    i = Range("A65536").End(xlUp).Row
    For j = i To 1 Step -1
        If Cells(j, 1) = "!                 Age  Dev Chap.      Compte                     Nom                           Intitule                            !" Or _
         Cells(j, 1) = "! Agence ......: 00512-AP TLEMCEN                                                                                                  !" Or _
         Cells(j, 1) = "------------------------------------------------------------------------------------------------------------------------------------" Or _
         Cells(j, 1) = "!                                                                                                                                  !" Or _
         Cells(j, 1) = "! BANQUE NATIONALE D'ALGERIE                                                                                          CTB-102-3283 !" Or _
         Cells(j, 1) = "! Compte No  ..: 00512 DZD 220021     0300000075-24     ALGERIE TELECOM SPA                CCdzd entr n .financ privees            !" Or _
         Cells(j, 1) = "! No Client  ..: 0064800001                                                                                                        !" Or _
         Cells(j, 1) = "!Date compta!Date valeur!Util!Exo! No piece  !No eve!Ope!            Libelle             !       Debit        !       Credit       !" Or _
         Left(Cells(j, 1), 6) = "! Date" Or _
         Left(Cells(j, 1), 57) = "!           !           !    !   !           !      !   !" Or _
         Left(Cells(j, 1), 67) = "!                                      HISTORIQUE DES MOUVEMENTS DU" Then Rows(j).Delete
    Next j
End Sub

Cdlt

[jawed]

Bonjour ARTURO83
C'est claire, parfait et même nettement plus rapide
Cordialement