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.

[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é :

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

[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