Discussion :

[Pincho]

Hello,

Dans un autre forum, j'ai pu obtenir de l'aide sur la création d'une macro. La macro fonctionne correctement.
Le problème est qu'une des étapes de la macro ne donne pas le résultat escompté et que je ne parviens pas à trouver une solution.
L'objectif de cette macro est, entre autres, appliquer un "filtre" sur base de la date la plus éloignée. Actuellement, elle me donne l'inverse, c'est à dire qu'elle choisit la date la plus proche.

Est-ce que quelqu'un aurait la gentillesse d'y jeter un coup d'oeil et de m'indiquer quel paramètre je devrais changer?

D'avance un grand merci.

PS : c'est un topic initialement posté sur forum excel pratique et la macro a été créé par MFerrand (tous les crédits lui reviennent ).

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
38
39
40
41
42
Sub FiltrerListe()
    Dim tbl(), dpt, itm, aa, i%, d As Object, ok As Boolean
    Set d = CreateObject("Scripting.Dictionary")
    aa = ActiveSheet.Range("A1").CurrentRegion.Value2
    For i = 2 To UBound(aa)
        dpt = aa(i, 1)
        If d.exists(dpt) Then
            itm = Split(d(dpt), ";")
            If aa(i, 3) < CInt(itm(1)) Then
                ok = True
            ElseIf aa(i, 4) < CLng(itm(2)) Then
                ok = True
            End If
            If ok Then
                itm = aa(i, 2) & ";" & aa(i, 3) & ";" & aa(i, 4)
                d(dpt) = itm: ok = False
            End If
        Else
            itm = aa(i, 2) & ";" & aa(i, 3) & ";" & aa(i, 4)
            d(dpt) = itm
        End If
    Next i
    ReDim tbl(d.Count, 3): i = 0
    For Each dpt In d.keys
        itm = Split(d(dpt), ";")
        i = i + 1: tbl(i, 0) = dpt: tbl(i, 1) = itm(0)
        tbl(i, 2) = CInt(itm(1)): tbl(i, 3) = CLng(itm(2))
    Next dpt
    itm = Split("Département Décision Phase Date")
    For i = 0 To 3
        tbl(0, i) = itm(i)
    Next i
    Application.ScreenUpdating = False
    With ActiveSheet.Range("J1").Resize(UBound(tbl, 1) + 1, 4)
        .Value = tbl
        With .Rows(1)
            .HorizontalAlignment = xlCenter: .Font.Italic = True
        End With
        .Columns(4).NumberFormat = "dd/mm/yyyy"
        .Columns.AutoFit
    End With
End Sub

[Philippe Tulliez]

Bonjour,
Ce que je n'arrive pas à comprendre, c'est la raison pour laquelle tu ne poses pas directement la question à celui qui t'a aidé.

[Pincho]

Bonjour,

Je pensais qu'il s'agissait d'un forum d'entraide et non pas d'un "tribunal", même s'il n'y a pas encore eu de plaidoirie (ca ne saurait tarder?)
Je ne joue pas au ping-pong et c'est justement pour cette raison que j'ai indiqué qui avait établi cette macro et où.

J'ai relancé le sujet mais je n'ai pas eu de retour de son auteur. Et je peux comprendre, chacun a ses propres occupations et c'est la raison pour laquelle je ne me permets pas d'adresser directement la question en MP à la personne. S'il avait le temps, il l'aurait probablement fait sur le topic.
Il se trouve que mon besoin devient relativement urgent et c'est la raison pour laquelle je me suis adressé à vous ici.

Ce sont deux forums que j'ai l'habitude de fréquenter. Maintenant, il se peut que le fait d'avoir posé la question en premier sur l'autre forum et en 2ème ici puisse gêner. Jamais facile d'être 2ème, n'est ce pas? (sur le ton de la blague hein, au cas ou la susceptibilité de certains se manifesterait )

Quant à la formulation de certaines imprécisions, j'en conviens que ma demande ici peut sembler (et elle l'est) imprécise. Mon objectif n'était pas de refaire la même demande, de donner tout le contexte, etc.
Dans mon esprit, cette macro ne comporte qu'un bout de code relatif à un traitement de dates et je pensais que pour des experts en VBA, repérer ce bout de code serait un jeu d'enfant. Ma conception du VBA est loin d'être réaliste.

Quoi qu'il en soit, je suis relativement surpris par la tournure que prend ce post. Je suppose que de temps à autre il faut sortir un peu de la routine qui consiste à aider "le pauvre inculte qui n'y comprend rien" et d'envoyer balader certaines demandes. Aujourd'hui (ou hier) c'est tombé sur moi. Pas grave, on fera mieux la prochaine fois.

En vous souhaitant une agréable journée Mesdames.

[Menhir]

ce long discourt n'apporte malheureusement aucune information nouvelle sur ta demande alors qu'il t'a été indiqué qu'elle n'est pas suffisamment précise pour apporter une réponse fiable.
Ne connaissant rien de tes données, comment savoir où se trouvent les dates dont tu parles ?

Mais il est sans doute plus simple et logique de supposer que tous les participants de ce forum sont contre toi personnellement plutôt que d'envisager que ce soit ta demande qui soit imparfaite et de prendre la peine d'y apporter des informations complémentaires.

[Pincho]

A la lecture du commentaire de unparia, j'ai pensé qu'une aide (par rapport à une demande déjà effectuée ailleurs) n'était pas appropriée.
Raison pour laquelle je n'ai pas apporté plus de précisions. Et loin de moi la supposition que tous les membres du forum sont contre moi, il serait inutile de m'accorder autant d'importance, surtout que c'est moi qui ait besoin de quelque chose. Je n'ai pas généralisé, j'ai juste indiqué qu'il y a des jours avec et des jours sans, et que cette fois-ci c'était un jour sans.

Puisqu'il faut plus de précisions, en voici :

J'ai un tableau de données qui se présente sous cette forme :



La colonne C reprend des données de 1 à 4, où 1 > 2, 2 > 3, 3 > 4
La colonne A, reprend une donnée commune à plusieurs lignes. Je ne souhaiterais garder cette valeur qu'une seule fois, en affichant en colonne C la variable la plus "importante" selon ce que j'ai décrit ci-dessous.
La valeur à reprendre en colonne D serait la date la plus éloignée dans le temps, par rapport à la date d'aujourd'hui.

Le tableau ressemblerait à ceci :


La macro fonctionne parfaitement à l’exception près que c'est la date la plus proche qui est choisie alors que je recherche la date la plus éloignée.

La colonne B n'a que peu d'importance. Limite je la supprimerais de mon tableau.

Est-ce que ces précisions sont-elles suffisantes?

Merci

[Philippe Tulliez]

Bonjour,
Alors d'après ton explication ci-dessous, je ne comprends pas pourquoi on retrouve dans ton dernier tableau quatre lignes avec la lettre A dont deux avec à la fois A en colonne A et 1 en colonne C

La colonne A, reprend une donnée commune à plusieurs lignes. Je ne souhaiterais garder cette valeur qu'une seule fois, en affichant en colonne C la variable la plus "importante" selon ce que j'ai décrit ci-dessous.

mais peut-être n'ai je rien compris ce qui est encore possible.

[Menhir]

Je pense (sans certitude) que c'est l'inégalité de la ligne 11 qui est dans le mauvais sens.
Même si ce n'est pas ça, tu ne perds rien à essayer.

[Pincho]

Bonjour,
Alors d'après ton explication ci-dessous, je ne comprends pas pourquoi on retrouve dans ton dernier tableau quatre lignes avec la lettre A dont deux avec à la fois A en colonne A et 1 en colonne C

mais peut-être n'ai je rien compris ce qui est encore possible.

Erreur de ma part, je jongle avec plusieurs fichiers pour trouver une solution et j'ai copié le tableau du mauvais fichier. Oui ok, je l'ai mérité, balancez les tomates.

Voici le résultat corrigé :

[RyuAutodidacte]

Bonjour,

As tu fait déjà ce que @Menhir (que je salue) t'as proposé?

Je pense (sans certitude) que c'est l'inégalité de la ligne 11 qui est dans le mauvais sens.
Même si ce n'est pas ça, tu ne perds rien à essayer.

Edit : Si on doit prendre en compte le chiffre supposé être le plus important (1, 2, 3, 4) puis ensuite la date la plus éloignée (Est ce cela ?), la bonne réponse est laquelle pour le B ? :

B	Lisbonne	2	28/02/18
OU
B	Madrid	3	30/06/18

[Pincho]

Bonjour RyuAutodidacte,

J'ai effectivement essayé la solution de Menhir.
Cela a pour effet de prendre la bonne date, mais ne tient plus compte du critère prépondérant de 1 à 4.
Cela signifie, par exemple, que pour le département E, la macro va bien choisir la date la plus éloignée (le 30/06) mais me donnera comme valeur en colonne C le "4".

C'est peut être dû au fait que le système va retrouver les valeurs sur la même ligne. Or, mon objectif est de ne garder qu'une seule fois la valeur Département, de choisir le critère le plus important (de 1 à 4) et indépendamment de la ligne où se trouve le critère, de prendre la date la plus éloignée de toutes les lignes du département A par exemple.

Concernant ta question sur la valeur a reprendre en colonne B, cela n'a pas d'importance. Comme je l'ai indiqué ci-dessus, je supprimerais cette colonne.

[RyuAutodidacte]

Colonne B ou pas pour moi je devrai avoir ceci :

A	New-York	1	30/06/18
B	Lisbonne	2	28/02/18
C	Las Vegas	1	31/08/18
D	Madagascar	3	30/05/18
E	Lima	1	31/03/18

Est ce exact pour toi ?

[Pincho]

Malheureusement non.

Le résultat devrait ressembler au dernier tableau posté ci-dessus.

Edit : Un exemple, pour le département B, tu prends la valeur 1 (qui est > à 2). OK
Ensuite, tu prends la date 28/02 qui correspond à la valeur [date] de la même ligne que le critère.
Or, c'est justement ca le problème, il faudrait que les valeurs soient choisies indépendemment l'une de l'autre. C'est à dire que la macro va garder le département, puis va chercher dans les valeurs colonne "C" le critère le plus important (il est possible qu'il y en ait plusieurs, mais cela ne change rien, 1 c'est toujours 1) puis va prendre la date la plus éloignée dans toutes les lignes avec ce département.

[RyuAutodidacte]

alors pourquoi pour C tu as mis :

C

Las Vegas

1

31/08/18

et non :

C

Las Vegas

1

31/10/2018

pas très clair …
qu'en est il ?

Edit :
Prends l'habitude de mettre : "Edit : ton texte"
lorsque tu modifies ton post

[Pincho]

je ne pensais pas que vous posteriez avant mon edit

Tu as raison, dans mon tableau, comme il s'agit d'un traitement manuel, j'ai loupé le 31/10

Département Decision Phase Date
A New-York 1 30/06/2018
B Madrid 2 30/06/2018
C Las Vegas 1 31/10/2018
D Madagascar 3 30/05/2018
E Lima 1 30/06/2018

Donc ca devrait bien être le 31/10.

[Menhir]

J'ai l'impression qu'on se prend la tête pour rien à vouloir corriger cette macro utilisant une solution alambiquée alors qu'il serait plus simple d'utiliser des solutions "conventionnelles".

Il suffirait de copier la partie de ta liste qui sert de référence (la première colonne si j'ai bien compris) dans une autre zone.
De supprimer les doublons avec un RemoveDuplicate.
https://msdn.microsoft.com/fr-fr/lib.../ff193823.aspx
Et ensuite de scruter la liste d'origine avec un banal For To en comparant, àa chaque tour, les valeurs critères à ceux qui sont enregistrés sur la ligne référence de la nouvelle liste avec un simple If (ou deux si on veut faire une priorité d'un critère par rapport à l'autre).
Si le critère est meilleur (date plus vieille et prépondérance) remplacer les données.

[RyuAutodidacte]

Tout à fait d'accord avec toi Menhir, d'ailleurs je n'ai pas cherché à corriger la macro mais à pointer le manque de clarté et d'incohérence dans les résultats voulu montré dans les posts ci-dessus (images fournis par @Pincho)

@Pincho faut savoir que pour élaborer un code l'imprécision et le manque de clarté ne sont pas de mises;
le code demande rigueur, clarté, logique … afin de ne pas tourner autour du pot.
Donc le mieux à faire c'est de donner toujours des explications claires et exhaustives avec tous les tenants et aboutissants afin d'avoir une aide correspondant exactement à ce qui est voulu.

De cette manière l'aide sera donné plus aisément et rapidement !!!

[Pincho]

je suis d'accord avec toi.
Malheureusement, il n'est pas toujours aisé de donner des explications claires et je n'ai pas l'approche rigoureuse qu'un codeur peut avoir, autrement je pense que j'aurais changé de métier.
J'ai essayé de transmettre l'idée du mieux que je peux mais il n'est pas évident d'exprimer ce qu'on a dans la tête en termes technique.
J'en conviens donc qu'il est encore plus difficile pour ceux qui veulent aider de "deviner" ou "imaginer" une solution. Mais c'est aussi l'objectif de solliciter des gens qui savent par quel bout s'y prendre et cela permet, certes après plusieurs posts, de clarifier une demande.
A l'inverse de cela, étant donné le niveau d'expertise de certains membres, certaines choses paraissent tellement évidentes que pour des néophytes de mon genre, cela s'apparente à un langage extraterrestre. Et ce n'est pas faute d'essayer de comprendre...

J'ai bien compris la première partie de la suggestion de Menhir (je passerais par l'enregistreur de macro pour le traitement des doublons).
Par contre je n'ai pas compris la deuxième partie.

[Menhir]

Etant donné le niveau d'expertise de certains membres, certaines choses paraissent tellement évidentes que pour des néophytes de mon genre, cela s'apparente à un langage extraterrestre. Et ce n'est pas faute d'essayer de comprendre...

Il semble cependant évident que tu es extrêmement passif dans la recherche de solution à ton problème.
Si vraiment tu veux essayer de comprendre, je te conseille cette lecture : http://bidou.developpez.com/article/VBA/
Selon ma conception, ce forum n'a pas pour vocation d'offrir du poisson mais d'apprendre à pêcher.

Par contre je n'ai pas compris la deuxième partie.

Après avoir copié la liste et supprimé les doublons, tu te retrouves avec deux listes : une liste source (tes données d'origine) et une liste cible (pour mettre le résultat).

Dans ta macro, tu va faire une boucle For To qui scrutera toutes les lignes de ta source.
https://msdn.microsoft.com/fr-fr/VBA...next-statement
Pour chaque ligne, tu repères la ligne correspondante dans la liste cible par son critère, par exemple avec un Find.
https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx
Tu compares les paramètres de la ligne source et de ce qui est enregistré dans la liste destination avec un If.
https://msdn.microsoft.com/en-us/VBA...else-statement
Si les paramètres de la source sont meilleurs, tu les copies dans la ligne de la liste destination correspondante.

A la fin, tu récupères une liste destination avec les meilleurs paramètres.

[RyuAutodidacte]

re,

Malheureusement, il n'est pas toujours aisé de donner des explications claires et je n'ai pas l'approche rigoureuse qu'un codeur peut avoir, autrement je pense que j'aurais changé de métier.

En fait contrairement à ce que tu crois, il n'y a pas besoin de connaitre réellement un language de codeur ou technique mais d'utiliser tout simplement le language usuel.
En sus la logique est un ++ et t'aidera à deviner comment coder. (adopter la méthode de faire une action par action pour apprendre et s'approprier un code - avec de la recherche bien sur et en testant le code de l'action voulu)

Il est donc alors tout à fait possible d'expliquer ce que l'on veut faire (explication claire et exhaustive)
avec les tenants et aboutissants (ses origines et ses conséquences, tout ce qui s'y rattache, y est impliqué)
et le but final.

et tout cela grâce au language usuel ! (le reste s'apprend au fur et à mesure et permettra de s'approprier le language du code/le coté technique/les méthodes)

Edit : ton résultat :

A	1	30/06/18
B	2	30/06/18
C	1	31/10/18
D	3	30/05/18
E	1	30/06/18

[Pincho]

Bonjour à vous,

Je ne peux qu'être d'accord avec ce qui s'est dit, par les uns et les autres. Et l'approche qui consiste à aider les autres à concevoir eux-mêmes leurs solutions, je ne peux que l'encourager.
Seulement, lorsqu'il s'agit d'un besoin urgent, c'est un peu comme si tu étais en vacances dans un pays étranger et que t'allais à l’hôpital. Les médecins qui ne comprennent pas ta langue, te donnent un dico et te disent, apprend cette langue pour nous dire ce qui ne va pas. C'est la où le caractère urgent perd son sens. Et pas que le sens...
Initialement, pour reprendre la métaphore de Menhir, je n'ai pas demandé du poisson... J'ai juste demandé de jeter un coup d’œil à la ligne de pêche (que je n'avais certes pas mis en place moi même mais ca c'est un autre problème). Et la solution fut : ta ligne de pêche est trop complexe, pêche à la dynamite.

Quoi qu'il en soit, je vais lire et essayer d'appliquer les bouts de code que Menhir m'a gentiment fourni. Je verrais bien où j’atterris.

Merci pour votre temps.

Bonne journée.