Construire un tableau recap

Version imprimable

12/03/2013, 16h27
FFGUY

1 pièce(s) jointe(s)

Construire un tableau recap

Bonjour,

J ai un fichier avec des donnees client sur une annee, un onglet Menu et 12 onglets correspondants a chaque mois. Je voudrais creer une capable d aller chercher mes donnees client pour les presenter sur l annee. Le probleme c est que je n ai jamais la meme liste de clients suivant les mois et si un client est present en Janvier je veux que les donnees se mettent a la suite de Janvier.
De meme, il est possible que certain fichier ne commence pas en Janvier mais qu en Mars. Les colonnes correspondantes a Total sont calcule avec des formules pour l instant mais je pourrais aussi les inscrires dans le code vba.
Comment pourrais je faire ca ?

Merci d avance.

Pièce jointe 113436
12/03/2013, 17h07
Daniel.C

Bonjour,

Un classeur, c'est bien, mais sans données, même fictives, ça ne sert pas à grand-chose. A quoi correspondent les nombres de la colonne A (present month) ?
12/03/2013, 17h22
FFGUY

La colonne present Month donne le classement par volume des clients, past month le classement du mois d avant et progression le nombre de place gagne ou perdu au classement.

Le volume attempted = Le volume en MM de contrat dans lesquels on a ete en comptetition
Volume executed= Le volume en MM de contrat conclu.
Volume HR= La division de l execute sur le tente.
12/03/2013, 17h30
Daniel.C

Poste un classeur avec des données bidon; tu n'es pas forcé de remplir tout tous les mois, juste quelques données sur deux mois.
12/03/2013, 18h41
FFGUY

1 pièce(s) jointe(s)

J ai fait un exemple de deux mois dis moi si c est suffisant.

Pièce jointe 113453

1 pièce(s) jointe(s)

C'est suffisant.

J'ai mis la macro suivante dans un module standard. Regarde le classeur en PJ :

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
Sub Consolidation()
    Dim Sh As Worksheet, C As Range, Ligne As Integer
    With Sheets("Menu")
        .[A16:AP1000].ClearContents
        For Each Sh In Worksheets
            If Sh.Name <> "Menu" Then
                col = Application.Match(Sh.Name, .[14:14], 0)
                If Application.CountA(Sh.[D:D]) > 1 Then
                For Each C In Sh.Range(Sh.[D2], Sh.Cells(Sh.Rows.Count, 4).End(xlUp))
                    If IsNumeric(Application.Match(C.Value, .[A1:A1000], 0)) Then
                        Ligne = Application.Match(C.Value, .[A1:A1000], 0)
                    Else
                        Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                    End If
                    .Cells(Ligne, 1).Resize(, 3).Value = C.Resize(, 3).Value
                    .Cells(Ligne, col) = C.Offset(, 3)
                    .Cells(Ligne, col + 1) = C.Offset(, 4)
                    .Cells(Ligne, col + 2) = C.Offset(, 5)
                    .Cells(Ligne, 4).Formula = "=sumproduct(G" & Ligne & ":AP" & Ligne & "*(G15:AP15=""x""))"
                    .Cells(Ligne, 5).Formula = "=sumproduct(G" & Ligne & ":AP" & Ligne & "*(G15:AP15=""y""))"
                    .Cells(Ligne, 6).Formula = .Cells(Ligne, 4) / .Cells(Ligne, 5)
                    .Cells(Ligne, 6).NumberFormat = "#0.00%"
                Next C
                End If
            End If
        Next Sh
    End With
End Sub

13/03/2013, 14h30
FFGUY

Ca marche parfaitement.
Merci beaucoup Daniel.

Bonne journee

J ai completement oublie un cas de figure, des fois un client peux porter plusieurs fois le meme nom et donc je change le nom en de client a Client1 pour que dans mon tableau recap je vois bien qu il s agait de plusieurs entitees d un meme client (Je les differencient par rapport au nombre d utilisateurs).
De plus, j ai l impression que la formule calculant les totaux sur l onglet "Menu", ne calcule pas vraiment le total.

Merci pour l entraide.
13/03/2013, 15h15
Daniel.C

Citation:

J ai completement oublie un cas de figure, des fois un client peux porter plusieurs fois le meme nom et donc je change le nom en de client a Client1 pour que dans mon tableau recap je vois bien qu il s agait de plusieurs entitees d un meme client

Qu'est-ce que je suis censé modifier ?

Citation:

De plus, j ai l impression que la formule calculant les totaux sur l onglet "Menu", ne calcule pas vraiment le total.

Tu as un exemple ?
13/03/2013, 16h00
FFGUY

1 pièce(s) jointe(s)

J ai refait un fichier exemple pour illustrer le cas de figure que j avais oublie.
J imagine que du coup se check se fera avant que les donnees soient copiees dans l onglet Menu.
En ce qui concerne les totaux, une fois toutes les donnees dans l onglet Menu, il faut ajouter toutes les colonnes x dans la colonne D, toutes les y dans E et la colonne F egale colonne D / E et ensuite sorter par volume executed.

Dis moi si c est assez clair.

Pièce jointe 113542

Est-ce que tu veux dire que je dois regrouper par client name + active users + country ? C'est pas gagné.

Teste cette macro sur le dernier classeur que tu as mis en PJ et dis-moi où le calcul se fait mal.

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
31
32
33
Sub Consolidation()
    Dim Sh As Worksheet, C As Range, Ligne As Integer, Col As Integer
    With Sheets("Menu")
        .[A16:AP1000].ClearContents
        For Each Sh In Worksheets
            If Sh.Name <> "Menu" Then
                Col = Application.Match(Sh.Name, .[14:14], 0)
                If Application.CountA(Sh.[D:D]) > 1 Then
                For Each C In Sh.Range(Sh.[D2], Sh.Cells(Sh.Rows.Count, 4).End(xlUp))
                    If IsNumeric(Application.Match(C.Value, .[A1:A1000], 0)) Then
                        If C.Offset(, 1) = .Cells(Application.Match(C.Value, .[A1:A1000], 0), 2) And _
                            C.Offset(, 2) = .Cells(Application.Match(C.Value, .[A1:A1000], 0), 3) Then
                            Ligne = Application.Match(C.Value, .[A1:A1000], 0)
                        Else
                            Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                        End If
                    Else
                        Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                    End If
                    .Cells(Ligne, 1).Resize(, 3).Value = C.Resize(, 3).Value
                    .Cells(Ligne, Col) = C.Offset(, 3)
                    .Cells(Ligne, Col + 1) = C.Offset(, 4)
                    .Cells(Ligne, Col + 2) = C.Offset(, 5)
                    .Cells(Ligne, 4).Formula = "=sumproduct(G" & Ligne & ":AP" & Ligne & "*(G15:AP15=""x""))"
                    .Cells(Ligne, 5).Formula = "=sumproduct(G" & Ligne & ":AP" & Ligne & "*(G15:AP15=""y""))"
                    .Cells(Ligne, 6).Formula = .Cells(Ligne, 4) / .Cells(Ligne, 5)
                    .Cells(Ligne, 6).NumberFormat = "#0.00%"
                Next C
                End If
            End If
        Next Sh
    End With
End Sub

13/03/2013, 18h24
FFGUY

Avec cette Macro, on va avoir toutes les iterations d un client vont se mettre a la suite. On aura en premier tous les clients de Janvier, puis a la suite tout fevrier etc
Je pense qu il serait peut etre plus simple pour moi d ajouter les resultats de toutes les entites.
En reprenant le fichier exemple, il faudrait que sur le recap, je recupere le resultats du client 1 (Somme de Active users : blabla, bloblo, blublu)

Les formules dans "Total" fonctionnent, c est moi qui avait mal nomme mes colonnes.

Essaie :

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
31
32
33
34
35
36
37
38
39
40
Sub Consolidation()
    Dim Sh As Worksheet, C As Range, Ligne As Integer, Col As Integer
    With Sheets("Menu")
        .[A16:AP1000].ClearContents
        For Each Sh In Worksheets
            If Sh.Name <> "Menu" Then
                Col = Application.Match(Sh.Name, .[14:14], 0)
                If Application.CountA(Sh.[D:D]) > 1 Then
                For Each C In Sh.Range(Sh.[D2], Sh.Cells(Sh.Rows.Count, 4).End(xlUp))
                    If IsNumeric(Application.Match(C.Value, .[A1:A1000], 0)) Then
                        i = 0
                        Do Until C.Offset(i) = ""
                            If C.Offset(i) = .Cells(Application.Match(C.Value, .[A1:A1000], 0), 1) And _
                                C.Offset(i, 1) = .Cells(Application.Match(C.Value, .[A1:A1000], 0), 2) And _
                                C.Offset(i, 2) = .Cells(Application.Match(C.Value, .[A1:A1000], 0), 3) Then
                                Ligne = Application.Match(C.Value, .[A1:A1000], 0)
                                Exit Do
                            End If
                            i = i + 1
                        Loop
                        If C.Offset(i) = "" Then
                            Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                        End If
                    Else
                        Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                    End If
                    .Cells(Ligne, 1).Resize(, 3).Value = C.Resize(, 3).Value
                    .Cells(Ligne, Col) = C.Offset(, 3)
                    .Cells(Ligne, Col + 1) = C.Offset(, 4)
                    .Cells(Ligne, Col + 2) = C.Offset(, 5)
                    .Cells(Ligne, 4).Formula = "=sumproduct(G" & Ligne & ":AP" & Ligne & "*(G15:AP15=""x""))"
                    .Cells(Ligne, 5).Formula = "=sumproduct(G" & Ligne & ":AP" & Ligne & "*(G15:AP15=""y""))"
                    .Cells(Ligne, 6).Formula = .Cells(Ligne, 4) / .Cells(Ligne, 5)
                    .Cells(Ligne, 6).NumberFormat = "#0.00%"
                Next C
                End If
            End If
        Next Sh
    End With
End Sub

14/03/2013, 12h59
FFGUY

Ca marche avec l exemple mais dans mon vrai fichier. ca me mets encore tous les clients de Janvier, puis tous ceux de fevrier et ainsi de suite.
Je vais rajouter un champs Custumer number dans les onglets, de la sorte je vais ajouter les volumes et recalculer mon HR par Cust number.
Et comme ca j utiliserais ta premiere Macro pour faire le recap.

Merci encore pour ton aide Daniel