Faire une synthèse des onglets précédents en supprimant les doublons

[jozerebel]

Bonjour à tous!


Dans un classeur, je souhaiterais sur un onglet "synthèse" faire la synthèse (et oui, ça ne s'invente pas😀) des onglets précédents (sans en maîtriser le nombre) et supprimer les doublons sur la base des colonnes A et C... Par macro, j'imagine.

Je mets un fichier pour exemple...

D'avance merci si vous pouvez m'aider.

A plus!

 

[JHA]

Re : Faire une synthèse des onglets précédents en supprimant les doublons

Bonjour,

un début de réponse avec une fonction personnalisée du forum et une recherchev

JHA

 

[BOISGONTIER]

Re : Faire une synthèse des onglets précédents en supprimant les doublons

Bonjour,

Voir pj

Sub supDoublons()
 Set mondico = CreateObject("Scripting.Dictionary")
 For s = 1 To Sheets.Count - 1
   Set f = Sheets(s)
   For Each c In Range(f.[a2], f.[a65000].End(xlUp))
      tmp = c & "*" & c.Offset(, 2)
      mondico(tmp) = tmp
   Next c
  Next s
  i = 2
  For Each c In mondico
    a = Split(c, "*")
    Sheets("synthèse").Cells(i, 1) = a(0)
    Sheets("synthèse").Cells(i, 2) = "'" & (a(1))
    i = i + 1
  Next c
End Sub

JB

 

[jozerebel]

Re : Faire une synthèse des onglets précédents en supprimant les doublons

hello,

Merci pour ces réponses rapides!

je vais tester!

A plus.

 

[jozerebel]

Re : Faire une synthèse des onglets précédents en supprimant les doublons

Re,

La macro donnée synthétise également les feuilles qui se trouvent après l'onglet "synthèse". Y-a-t-il une solution pour qu'elle ne prennent que les onglets à gauche (avant) la feuille synthèse?

D'avance merci!

 

[BOISGONTIER]

Re : Faire une synthèse des onglets précédents en supprimant les doublons

Dans le classeur envoyé, il n'y a pas de feuilles après synthèse!!!

JB
Formation Excel VBA JB

 

[jozerebel]

Re : Faire une synthèse des onglets précédents en supprimant les doublons

Merci bcp pour votre aide!