simplification macro pour gain de temps

Version imprimable

Bonjour,

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

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
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

05/02/2016, 10h10
Invité

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!
05/02/2016, 10h31
joe.levrai

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.
05/02/2016, 10h55
mercatog

Tout à fait joe +1
Il faudra penser d'abord Excel
05/02/2016, 14h06
tben08

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.
05/02/2016, 14h41
Invité

Code:

Range("B:B,Z:Z").Delete xlShiftUp
05/02/2016, 15h33
joe.levrai

Je ne comprend pas l'explication avec le code analytique

peux tu écrire rapidement dans un message un exemple de quelques lignes dans ce cas, et comment doit réagir la macro ?
08/02/2016, 10h33
tben08

1 pièce(s) jointe(s)

voici un fichier ce sera plus simple à comprendre. Quand il y a une valeur dans la colonne section analytique, la ligne du dessus est le doublon mais n'a pas le code analytique. C'est pour ça que je peux pas utiliser la fonction supprimer les doublons