simplification macro pour gain de temps

**tben08** · 05/02/2016, 09h54

Bonjour,

Voici ma macro que j’exécute sur un fichier de plus de 200 000 lignes :

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
Sub suppression_doublons()
    vchrono = Now()
    Dim B As String
    B = InputBox("Quelle est la colonne pour supprimer les 3?")
    If B = "" Then
        'MsgBox "annulé"
    Exit Sub
    Else
    End If
         Dim C As String
    C = InputBox("Quelle est la colonne pour supprimer les doublons?")
 
 
    If C = "" Then
        MsgBox "annulé"
    Exit Sub
    Else
    End If
 
    Dim z As Long
    Partir du bas du tableau
    For z = Range(B & Rows.Count).End(xlUp).Row To 2 Step -1
    If Range(B & z) = "3" Then Range(B & z).EntireRow.Delete xlShiftUp
    Next z
 
 
Dim i&, l&, t()
     With Feuil1.Columns(C & ":" & C)
    l = .Cells(.Rows.Count).End(xlUp).Row
    t = Range(.Cells(1), .Cells(l)).Value
    With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With
    For i = l To 3 Step -1
      If Not IsEmpty(t(i, 1)) Then If AscW(t(i, 1)) <> 9658 And IsEmpty(t(i - 1, 1)) Then .Cells(i).Value = Chr(33) & .Cells(i).Value: i = i - 1: .Parent.Rows(i).Delete
    Next
    With Application: .Calculation = -4105: .EnableEvents = 1: .ScreenUpdating = 1: End With
  End With
      Cells.Replace What:="!", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
  vchrono = Now() - vchrono
MsgBox Format(vchrono, "h:mm:ss")
  MsgBox ("traitement terminé")
End Sub

Elle dure 20 minutes ce qui est quand même long. Je voulais donc savoir si il y avait des choses à enlever pour gagner du temps.

Merci pour votre aide

Invité · 05/02/2016, 10h10

Bonjour,
Déjà interdire les rafraichissement d'écran, les évènements Excel et passe en calcul manuel des formules pendant le traitement de la macro!

**joe.levrai** · 05/02/2016, 10h31

Bonjour,

il n'y a pas besoin de faire des boucles pour ça :

Version la plus intuitive :
1) suppression des lignes contenant 3 en colonne B : poser un filtre automatique sur la colonne B, n'appeler que les lignes contenant 3 et supprimer la plage visible
2) suppression des doublons en colonne C : utiliser la méthode RemoveDuplicates (méthode native excel "supprimer les doublons")

Version optimale :

1) filtre avancé pour exporter les lignes <> 3 en colonne B
2) RemoveDuplicates sur la plage exportée, en ciblant les doublons de la colonne C

tout ceci peut s'appréhender en effectuant manuellement l'opération avec l'enregistreur de macro

on obtient un code qu'il suffit d'adapter pour l'intégrer à ta procédure.

**mercatog** · 05/02/2016, 10h55

Tout à fait joe +1
Il faudra penser d'abord Excel

**tben08** · 05/02/2016, 14h06

Pour la colonne contenant les 3 je le fais manuellement car ça va plus vite.

Par contre les doublons je suis obligé de passer par une macro car quand il y a un code analytique je dois effacer la colonne du dessus qui elle n'a pas de code analytique.