Répertorier infos plusieurs signets_Excel

Salut,
Si par signet tu sous entends Feuille et que tu n'as pas de feuille nommée "Liste des contacts"
Alors essayer :

Option Explicit

Sub Audrey()
Dim Feuille As Worksheet, TablContacts(), Dico As Object, i As Long

Set Dico = CreateObject("Scripting.Dictionary")
If FeuilleExiste(ThisWorkbook, "Liste des contacts") Then Worksheets("Liste des contacts").Delete
For Each Feuille In ThisWorkbook.Worksheets
    With Feuille
        TablContacts = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
        For i = LBound(TablContacts, 1) To UBound(TablContacts, 1)
            If Not Dico.exists(TablContacts(i, 1)) Then Dico.Add TablContacts(i, 1), TablContacts(i, 1)
        Next i
    End With
Next Feuille
ThisWorkbook.Worksheets.Add after:=Sheets(ThisWorkbook.Worksheets.Count)
With ActiveSheet
    .Name = "Liste des contacts"
    .Range("A2").Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
End With
End Sub

Function FeuilleExiste(wk As Workbook, stFeuille) As Boolean
 On Error Resume Next
 FeuilleExiste = Not (wk.Sheets(stFeuille) Is Nothing)
End Function

Tout va bien alors?

Si vous le souhaitez, la macro peux s'occuper des countproduct à votre place...
Vous dites...

Tu, je ne sais jamais non plus... Mais tu c'est bien!

réponse... dès que prêt!

Dans les colonnes B, tu as un nom de palettes. Ok!
Mais tu dois bien avoir quelque part le nombre de palettes commandées par le contact?

J'ai fait une simulation sur le mois de février dans un nouveau doc.

J'ai trier les contacts (à côté de mes col A et B, en col E) puis créé de nouvelles colonnes, une pour chaque type de palette.
J'avais fait une fonction que j'ai ensuite copié.

Ce qui me donne:

=SUMPRODUCT(($B$2:$B$329=E$1)*($A$2:$A$329=$D2))

Col B: type de palette par client (sachant que 1 ligne = 1palette et non 1ligne =1client)
Cel E: palette "cible"

Col A: client
Cel D: client "cible"

Cela marche à la perfection. Mais maintenant que j'ai étendu sur l'année, ou plutôt 11mois (avec 1 par feuille), ça se complique!

Pour répondre à ta question plus clairement. Non, je n'ai pas le nombre de palettes envoyées. C'est justement le but de l'opération, avoir par client combien de palettes "A" ou "B" ou"C"...etc... qu'on a envoyé...

Alors, testes ceci (c'est pas garantie!...):

Option Explicit

Sub Audrey()
Dim Feuille As Worksheet, i As Long
Dim TablContacts(), DicoNoms As Object
Dim TablPalettes(), DicoPalettes As Object
Dim Sommes(), t

t = Timer
Set DicoNoms = CreateObject("Scripting.Dictionary")
Set DicoPalettes = CreateObject("Scripting.Dictionary")

If FeuilleExiste(ThisWorkbook, "Liste des contacts") Then Worksheets("Liste des contacts").Delete

For Each Feuille In ThisWorkbook.Worksheets
    With Feuille
        TablContacts = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
        For i = LBound(TablContacts, 1) To UBound(TablContacts, 1)
            If Not DicoNoms.exists(TablContacts(i, 1)) Then DicoNoms.Add TablContacts(i, 1), TablContacts(i, 1)
        Next i
        TablPalettes = .Range("B2", .Range("B" & Rows.Count).End(xlUp))
        For i = LBound(TablPalettes, 1) To UBound(TablPalettes, 1)
            DicoPalettes(TablPalettes(i, 1)) = DicoPalettes(TablPalettes(i, 1)) + 1
        Next i
    End With
Next Feuille

ReDim Sommes(1 To DicoNoms.Count, 1 To DicoPalettes.Count)
For Each Feuille In ThisWorkbook.Worksheets
    With Feuille
        For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
            Sommes(Application.Match(.Cells(i, 1), DicoNoms.keys, 0), Application.Match(.Cells(i, 2), DicoPalettes.keys, 0)) = Sommes(Application.Match(.Cells(i, 1), DicoNoms.keys, 0), Application.Match(.Cells(i, 2), DicoPalettes.keys, 0)) + 1 '.Cells(i, 3).Value
        Next i
    End With
Next Feuille
ThisWorkbook.Worksheets.Add after:=Sheets(ThisWorkbook.Worksheets.Count)
With ActiveSheet
    .Name = "Liste des contacts"
    .Range("A2").Resize(DicoNoms.Count, 1) = Application.Transpose(DicoNoms.keys)
    .Range("B1").Resize(1, DicoPalettes.Count) = DicoPalettes.keys
    .Range("B2").Resize(UBound(Sommes, 1), UBound(Sommes, 2)) = Sommes()
End With
MsgBox "Procédure terminée en : " & Timer - t & " secondes. Tu peux reprendre un café..."
End Sub

Function FeuilleExiste(wk As Workbook, stFeuille) As Boolean
 On Error Resume Next
 FeuilleExiste = Not (wk.Sheets(stFeuille) Is Nothing)
End Function

De rien.
Au cas ou, tu sais ou demander?
A+

J'ai besoin de tes talents pour plusieurs raisons.
La première est que je n'arrive pas à renommer dans la macro la feuille créé par la macro.

La deuxième est que je souhaiterai aller plus loin dans l'exploitation des infos générées par la macro: nouvelle feuille avec le top 10 et top5.

Et je me demandais s'il est possible qu'excel repère repère les doublons causés par des différences d'écritures (ex: client a/client A/client.a)

Donc, tu imagines bien que j'ai besoin de toi...

Pour renommer la feuille, deux choses sont à changer dans le code :
en début de code :

If FeuilleExiste(ThisWorkbook, "Liste des contacts") Then Worksheets("Liste des contacts").Delete

Changer "Liste des contacts" par ce que tu veux. Les 2 fois...

Et, dans ces lignes :

ThisWorkbook.Worksheets.Add after:=Sheets(ThisWorkbook.Worksheets.Count)
With ActiveSheet
    .Name = "Liste des contacts"

Même chose, changer "Liste des contacts" par ce que tu veux...

Qu'appelles tu Top10 et Top5?
Tu veux dans une feuille, nommée Top10, tes 10 meilleurs vendeurs, et dans une autre, nommée Top5 tes 5 meilleurs, ou dans une seule feuille le top10? Ben oui le top5 c'est les 5 meilleurs du top10 non???

Pour le repérage des doublons, c'est toujours délicat... Le risque le plus important est de supprimer des clients... Par conséquent, il te faut les traiter une fois pour toutes manuellement.
Méthode :
tu lances la macro. Donc tu va récupérer dans ta feuille de résultats, une liste de tes contacts allégées. Tu cherches, dans cette liste les noms qui seraient des doublons mais écris différemment, et, par macro* ou avec CTRL+H tu les remplaces dans chaque feuille... Je sais c'est long... Mais c'est la seule solution réellement correcte.
*si tu veux je te fais un code...

Ensuite, pour l'avenir, je te recommande de passer par un Userform de saisie.

Je te bricole un truc dans le genre...

Et zut, je suis allé trop vite en besogne...
J'aurais du attendre ta réponse.
C'est rien, je mets quand même un classeur exemple.
https://www.cjoint.com/?BCin4dCNIkS

La sub "audrey" en tiens pas compte des colonnes C (quantité)
la sub "RécapAvecSommeDesColonnesC" fait le total par vendeur et par type de palette (ici ce sont de drôles de palettes;-)).
la sub top10 fait le top 10 toutes palettes confondues.
Idem pour top5

Le formulaire de saisie est inutile...

Ok. Je r'commence.
Mais d'abord, comment choisis tu le critère de sélection "palette" du top10 et du top5???? Hein? Bonne question non?

Lol... Oups... Désolée!!

C'est possible une macro où on dit top 7-8 des palettes "a", "ba" et "c"??
Ce serait mon critère.

Tu le sais, il y a différents types de palettes, certaines ne sont pas récupérables chez le client. Seuls 3types le sont. Le but du top7-8 est de savoir qui sont les plus gros consommateurs de ces 3palettes récupérables

Question :
C'est possible une macro où on dit top 7-8 des palettes "a", "ba" et "c"??

Tu veux :
- le top10 de : palettes "a"
- le top10 de palettes "ba"
- le top10 de palettes "c"

ou bien
- le top10 de palettes "a" + "ba" + "c"

?????

J'aimerai le top 10 des clients qui consomment le plus de palettes a,b, et c.

Oui, je comprends ce que ta question. Alors on a qu'à faire un top 10 par type de palettes (pour ces 3), sur la mm feuille.
C'est possible ça?

Ateeeeeends

Il faut une étape intermédiaire pour que ça fasse ce que je veux

Donc il faut d'abord faire le total par clients pours ces 3palettes (client a : 300 (ce qui sera le total des 3palettes))
et ensuite faire le top10

Dis moi ce que tu en penses.......

Je n'en pense que du bien.

L'ai copié dans mon doc. mais ça ne marche plus...

Bernard tu peux le virer sans souci.

Par contre tu touches pas à Whyskie... Nanmého!

Content pour toi.

A+ peut être...

Salut Audrey-
Oui???

Quelqu'un m'appelle?

Tadam boum j'arrive.

KessKissPass?

ça va bien. Merci! Et toi?

Peux tu me transférer ton fichier, je ne l'ai pas conservé... S'il contient des infos confidentielles, tu peux me l'envoyer par MP : ICI
ou par mail à l'adresse que tu trouveras dans mon profil (clic sur mon pseudo)