Discussion :

[Tomtom91]

Bonjour le forum!

je manipule Excel depuis des années, j'utilise les formules en tâtonnant... , mais là j'arrive à la limite de ma débrouillardise.. et je n'arrive pas à trouver le moyen de faire les actions suivantes:

Dans un tableur contenant plusieurs onglets:
Un onglet "données" contient des données que je reçois de mon distributeur, et les autres onglets "extraits client 1" , "extraits client 2 etc .... "viennent chercher des éléments dans l'onglet "données" en fonction du nom des mes clients, afin d'obtenir une synthèse (une somme de chiffres) de ce que chaque client a généré (produits vendus, retours, provisions, total du CA généré).

Je commence à avoir pas mal de clients et ça n'est plus très lisible d'avoir un onglet différent par client, j'aimerais mettre en place un process plus élaboré et dynamique.


Mon onglet "données" est assez simple :



Mes onglets "Extrait Client 1 , 2 etc ..." sont identiques sauf qu'ils ne concernent qu'un seul client, ses ventes , ses retours, son total etc ...


Pour améliorer mon process d'extraction pour chaque client, j'aurais souhaité sélectionner a l'aide d'un menu déroulant pour chaque colonne une donnée différente contenue dans la colonne :

• pour la colonne AN, pouvoir choisir l'année (2019 , 2018 )
• pour la colonne SEMESTRE , pouvoir choisir le semestre (2018-S1, 2018-S2, 2019-S1 )
• Pour la colonne MOIS, choisir le mois (2018-01, 2018-02, 2018-03 ...etc ..etc ..)
• idem pour les colonnes CODE BARRE et CLIENT

une fois cette sélection faite, j'aurais besoin que la macro fasse la somme des données contenues dans les colonnes VENTES, RETOURS, S TOTAL1, PROVISION, TOTAL DEF, des lignes concernées par la sélection.

... rien que ça ;o)

je ne me rends absolument pas compte de la complexité de programmer une macro de la sorte.
J'espère que mes explications sont compréhensible, et s'il faut préciser je suis là

Si quelqu'un pouvait m'aider à y voir plus clair sur la méthode à tenir pour réaliser de genre de chose.
Merci par avance.

Thomas

[Menhir]

Un onglet "données" contient des données que je reçois de mon distributeur, et les autres onglets "extraits client 1" , "extraits client 2 etc .... "viennent chercher des éléments dans l'onglet "données" en fonction du nom des mes clients, afin d'obtenir une synthèse (une somme de chiffres) de ce que chaque client a généré (produits vendus, retours, provisions, total du CA généré).

Je commence à avoir pas mal de clients et ça n'est plus très lisible d'avoir un onglet différent par client, j'aimerais mettre en place un process plus élaboré et dynamique.

Pourquoi ne pas, tout simplement, mettre un filtre sur tes données ?
Ca prend 2 s à mettre en place et, à priori, ça répond à ton besoin.
Et en plus, tu gardes la maitrise du processus, ce qui ne serait pas le cas si tu faisais faire une macro VBA à quelqu'un d'autre.

Au pire, si tu veux vraiment que tes donnée client soient dans un autre onglet, tu peux utiliser un filtre avancé.

Mes onglets "Extrait Client 1 , 2 etc ..." sont identiques sauf qu'ils ne concernent qu'un seul client, ses ventes , ses retours, son total etc ...

Raison de plus pour la solution Filtre.

• pour la colonne AN, pouvoir choisir l'année (2019 , 2018 )
• pour la colonne SEMESTRE , pouvoir choisir le semestre (2018-S1, 2018-S2, 2019-S1 )
• Pour la colonne MOIS, choisir le mois (2018-01, 2018-02, 2018-03 ...etc ..etc ..)
• idem pour les colonnes CODE BARRE et CLIENT

C'est exactement ce que fait un filtre.

une fois cette sélection faite, j'aurais besoin que la macro fasse la somme des données contenues dans les colonnes VENTES, RETOURS, S TOTAL1, PROVISION, TOTAL DEF, des lignes concernées par la sélection.

Pour faire des somme sans tenir compte des données filtrée, utilise les fonctions de base de données comme BDSOMME.
Lire ça : https://support.office.com/fr-FR/art...3-529a322be41b

[ARTURO83]

Bonjour à tous,

J'arrive encore trop tard, mais bon je mets quand même, histoire de ne pas avoir travaillé pour rien.
le code:

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
29
30
31
32
33
34
35
36
37
Sub Creation_Listes()
    Dim i As Long, DerLig As Long, B
    Dim C As Range
 
    Application.ScreenUpdating = False
    Range("O1:S10000").ClearContents
    For i = 2 To 6
        Set B = CreateObject("Scripting.Dictionary")
        For Each C In Range(Cells(5, i), Cells(Cells(10000, i).End(xlUp).Row, i))
            If Not B.exists(C.Text) And C.Text <> "" Then B(C.Text) = ""
        Next C
        If B.Count > 0 Then Cells(1, i + 13).Resize(B.Count) = Application.Transpose(B.keys)
 
        Range(Cells(1, i + 13), Cells(B.Count, i + 13)).Select
        ActiveWorkbook.Names.Add Name:="Liste" & i, RefersToR1C1:="=Feuil1!R1C" & i + 13 & ":R" & B.Count & "C" & i + 13
 
        Cells(2, i).Select
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=" & "Liste" & i
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    Next i
 
    'Formules "Total"
    DerLig = [B10000].End(xlUp).Row
    Range("G2:K2").FormulaR1C1 = "=SUMPRODUCT((R5C2:R" & DerLig & "C2=R2C2)*(R5C3:R" & DerLig & "C3=R2C3)*(R5C4:R" & DerLig & "C4=R2C4)*(R5C5:R" & DerLig & "C5=R2C5)*(R5C6:R" & DerLig & "C6=R2C6),(R5C:R" & DerLig & "C))"
 
    Set B = Nothing
End Sub

le fichier
Pièce jointe 501202

Cdlt

[MarcelG]

Bonjour à vous, Salut Menhir,

Arthuro,

Dans ton code, le dictionnaire B est déclaré - implicitement - en Variant.
Personnellement, en activant la référence Scripting Run Time, je pratique cette déclaration en Scripting.Dictionary.

Au demeurant, sur le Forum Excel VBA, j'ai eu plusieurs échanges à ce sujet, de mémoire avec l'ami mercatog le grand, et, plus récemment, avec Joe Levrai dans cette discussion.

[Igloobel]

Bonjour à tous

J'ai beau chercher je vois pas ce qui t'empèche de faire un TCD à partir de ton listing principal.

tout ce que tu as cité se fait au sein d'un TCD :

• pour la colonne AN, pouvoir choisir l'année (2019 , 2018 )
• pour la colonne SEMESTRE , pouvoir choisir le semestre (2018-S1, 2018-S2, 2019-S1 )
• Pour la colonne MOIS, choisir le mois (2018-01, 2018-02, 2018-03 ...etc ..etc ..)
• idem pour les colonnes CODE BARRE et CLIENT

une fois cette sélection faite, j'aurais besoin que la macro fasse la somme des données contenues dans les colonnes VENTES, RETOURS, S TOTAL1, PROVISION, TOTAL DEF, des lignes concernées par la sélection.

Qu'est-ce que tu entends par : "Je commence à avoir pas mal de clients et ça n'est plus très lisible d'avoir un onglet différent par client"

aujourd'hui cela fait combien de client ?

Parce que les : "Je commence à avoir pas mal de ... cela reste vague

[Tomtom91]

Bonjour à tous,

et un immense merci d'avoir pris la peine de m'aider ...et aussi vite ... vous êtes au top !!
je vais tester tout ça et suivre aussi vos recommandations.

@igloobel = Pas mal de client ça fait une quinzaine là ou je pensais n'en avoir que 5 ou 6 max au départ. Et puis chaque client peut avoir plusieurs références ce qui complique encore la donne car je n'avais pas prévu ça au départ...

Je reviens ici vous faire par de mes avancées.

Cdlt

Thomas

[Tomtom91]

Bonjour
j'ai testé le TCD pour l'instant, c'est dingue la puissance du truc, j'arrive très falicement à obtenir tous les calculs que je veux , et même plus ... en fait ça ouvre même d'autres perspectives dans la méthode etc ...bref.
Je teste le VB dans que j'arrive à dégager du temps.

Merci encore !!

Thomas

[Igloobel]

Bonjour,

Une quinzaine c'est rien pour les TCD sous Excel je dirai même que c'est parfaitement adapté facilement maintenable, évolutif également bref je pense l'idéal pour toi.

au vu de ton premier post je crains que le VBA soit un peu difficile pour toi (sans vouloir te véxé) c'est pourquoi même si j'adore VBA je privilégie les fonctionnalités d'Excel avant.

C'est juste une histoire de facilité de maintenance.



(A moins que tu veuilles te rendre indispensable )


A bientôt