Discussion :

[FFGUY]

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.

Example.xls

[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) ?

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

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

[FFGUY]

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

Example.xls

[Daniel.C]

C'est suffisant.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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