Automatisation de macro après appui sur un bouton.

**ebusmaximus** · 13/04/2017, 01h37

Bonsoir à tous,

Après moult tatonnement j'ai pu créer une feuille excel (COLLABT) qui fait la synthèse des champs de 3 autres feuilles (COLLAB1, COLLAB2 ET COLLAB3) grace à une première macro.
J'aimerais maintenant pouvoir automatiser l'exécution d'une macro qui sert à supprimer les doublons de ma feuille COLLABT (j'ai le résultat attendu en double, sans trop que je sache pourquoi).
J'ai déjà enregistré la macro, mais je ne sais pas comment l'automatiser pour qu'elle supprime automatiquement les doublons après (voir même avant) l'affichage des résultats.

Voici le code de la macro qui s'occupe de la synthèse sur COLLABT

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
Sub COLLABT()
With Sheets("COLLABT")
  .Range("A2:O65536").Delete
  For Each sh In Sheets
    Select Case sh.Name
      Case "COLLAB1", "COLLAB2", "COLLAB3"
 
        For lg = 2 To sh.Range("A65536").End(xlUp).Row
          LgS = .UsedRange.Rows.Count + 1
          .Cells(LgS, 1) = sh.Cells(lg, 1)
          .Cells(LgS, 2) = CDate(sh.Cells(lg, 2))
          .Cells(LgS, 3) = sh.Cells(lg, 3)
          .Cells(LgS, 4) = sh.Cells(lg, 4)
          .Cells(LgS, 5) = sh.Cells(lg, 5)
          .Cells(LgS, 6) = sh.Cells(lg, 6)
          .Cells(LgS, 7) = sh.Cells(lg, 7)
          .Cells(LgS, 8) = sh.Cells(lg, 8)
          .Cells(LgS, 9) = sh.Cells(lg, 9)
          .Cells(LgS, 10) = sh.Cells(lg, 10)
          .Cells(LgS, 11) = sh.Cells(lg, 11)
          .Cells(LgS, 12) = sh.Cells(lg, 12)
          .Cells(LgS, 13) = sh.Cells(lg, 13)
          .Cells(LgS, 14) = sh.Cells(lg, 14)
          .Cells(LgS, 15) = sh.Cells(lg, 15)
 
        Next
    End Select
  Next
End With
End Sub

Le code de la macro de suppression des doublons :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SupDuplicates()
'
' SupDuplicates Macro
' Suppressions de doublons
'
 
'
    ActiveSheet.Range("$A$1:$O$45").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _
        , 8, 9, 10, 11, 12, 13, 14, 15), Header:=xlYes
End Sub