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

J

JHA

XLDnaute Barbatruc

• 13 Novembre 2010

• #2

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

 

Pièces jointes

• Fusion liste.zip

  17.9 KB · Affichages: 29

Dernière édition: 13 Novembre 2010

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 13 Novembre 2010

• #3

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

Bonjour,

Voir pj

Code:

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

 

Pièces jointes

• Copie de Classeur1.zip

  18.3 KB · Affichages: 43
• Copie de Classeur1.zip

  18.3 KB · Affichages: 39
• Copie de Classeur1.zip

  18.3 KB · Affichages: 42

Dernière édition: 13 Novembre 2010

Vote positif 0 Vote négatif

J

jozerebel

XLDnaute Occasionnel

• 13 Novembre 2010

• #4

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.

 

Vote positif 0 Vote négatif

J

jozerebel

XLDnaute Occasionnel

• 13 Novembre 2010

• #5

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!

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 13 Novembre 2010

• #6

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

 

Pièces jointes

• SupDoublonsMF2.zip

  19.2 KB · Affichages: 48

Vote positif 0 Vote négatif

J

jozerebel

XLDnaute Occasionnel

• 13 Novembre 2010

• #7

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

Merci bcp pour votre aide!

 

Vote positif 0 Vote négatif