Automatisation de macro après appui sur un bouton.

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:

---

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:

---

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 :

Pièce jointe 264043

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

Pièce jointe 264045


Merci d'avance.

Bonjour

Citation:

---

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.

Bonjour,

Comment dois je procéder?

Merci pour la réponse.

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+

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