Discussion :

[ebusmaximus]

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

Voici le résultat de l'exécution de la 1ere macro par le bouton mise à jour :



Le résultat attendu (et celui qui se produit après l'exécution de la suppression des doublons)




Merci d'avance.

[unparia]

Bonjour

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

Il est toujours possible d'automatiser l'outil de suppression des doublons à la fin de ta procédure (l'utilisation de l'enregistreur de macros te permettra d'en connaître le code nécessqaire)

Il serait toutefois bien mieux de travailler a priori (contrôle avant ajout) plutôt qu'à posteriori.

[ebusmaximus]

Bonjour,

Comment dois je procéder?

Merci pour la réponse.

[nouveauvba]

Bonjour
Onglet développeur dans excel,
puis enregistrer une macro (à gauche dans le ruban)
exécuter manuellement ce que tu souhaites faire
arrêter l'enregistrement
regarder le code généré dans le module créé.

Piste à envisager l'utilisation d'un dictionnaire qui permet de supprimer les doublons? Je laisse les spécialistes répondre....

a+

[ebusmaximus]

Bonjour,

Merci mais c'est déjà fait ,j'ai même joint le code de la macro de suppression de doublons dans mon message initial. Le problème est que je ne sais pas comment l'automatiser pour qu'elle se lance toute seule (sans raccourcis).