XL 2016 création d'une période de date de validité de prix

[desmonts]

Bonjour à Toutes et tous,

J'aurai encore besoin de votre aide. Je fais une extraction avec N° Ref, prix et début de date de validité. Une ref qui change de prix sera notée comme cela

Article	Date de début de validité du prix	Prix
TUTU2PJ860	30/12/2017	2,89
TUTU2PJ860	16/01/2019	2,95
TUTU2PJ860	12/02/2019	2,13
TUTU2PJ860	01/04/2019	2,19

Ce que je souhaiterai avoir une date de début prix et une date de fin de prix de validé de prix, la date de fin de validité étant la date de début de la prochaine période.
Voici ce que cela donnerai.

Ref​	Prix​	debut validité​	fin de validité​
TUTU2PJ860	2,89	30/12/2017	16/01/2019
TUTU2PJ860	2,95	16/01/2019	12/02/2019
TUTU2PJ860	2,13	12/02/2019	01/04/2019
TUTU2PJ860	2,19	01/04/2019

Si quelqu'un serait faire cela de façon simple en vba, cela me simplifierai la vie, par avance merci.
cdt,

 

[Dranreb]

Bonsoir.
Remarque: ça semble lié à un problème exposé dans une autre discussion, où dans la solution que je proposai je n'avais besoin que de la date de début de validité.
Cela dit avec la fonction Gigogne on pourrait l'établir facilement.

 

[desmonts]

Bonjour Dranreb, oui c'est tout affect cela. Je pensais pouvoir extraire une ref un prix et une plage de validé mais en fait je ne peux extraire que la date de début, la date de fin prend fin donc avec la date de début suivante. Et du coup la petite macro que tu m'avais faite ne fonctionne pas en l'état avec mes donées d'entrée. Si jamais cela peut fonctionner facilement avec la fonction Gigogne je serai preneur. Merci pour ton aide.
cordialement

 

[Dranreb]

Bonjour.
Quelle macro que j'avais faite ne fonctionne pas ? Elle fonctionnait au contraire et n'avait besoin que de la date de début d'application. Celle de fin en plus était plus embarrassante qu'autre chose et source d'erreurs, d'autres ayant proposé des solutions en croyant qu'il ne fallait rien sortir quand une date n'était pas comprise dans une période d'application d'un prix dûment spécifiée.

 

[desmonts]

Re Dranreb,

Effectivement cela fonctionne parfaitement un grand merci. (je n'avais pas compris que tu t'appuyais uniquement sur la date de début de validité).
Est il possible de modifier la mise en page cela serait plus facile pour moi de filtrer et trier ?
avoir la ref sur chaque ligne, supprimer les sous totaux et la dernière colonne fin de validité de prix, pour avoir un rendu comme ceci.
si jamais tu as du tps sinon pas grave tu m'as déjà beaucoup aidé, encore merci.
cdt,

Ref	date de reception	qtité	Prix de la période	CA	date de début de validité prix
TUTU2PJ860	31/12/2017	12	2,89 €	34,68 €	30/12/2017
TUTU2PJ860	16/01/2019	10	2,95 €	29,50 €	16/01/2019
TUTU2PJ860	17/01/2019	14	2,95 €	41,30 €	16/01/2019
TUTU2PJ860	02/02/2019	100	2,95 €	295,00 €	16/01/2019
TUTU2PJ860	13/02/2019	15	2,13 €	31,95 €	12/02/2019
TUTU2PJ860	02/04/2019	17	2,19 €	37,23 €	01/04/2019
TUTU2PJ896	31/12/2017	1889	2,19 €	4 136,91 €	01/04/2019
TUTU2PJ896	20/06/2018	110	2,19 €	240,90 €	01/04/2019
TUTU2PJ896	17/01/2019	10	2,19 €	21,90 €	01/04/2019
TUTU2PJ896	13/02/2019	20	2,19 €	43,80 €	01/04/2019
TUTU2PJ896	02/04/2019	18	2,19 €	39,42 €	01/04/2019

 

[Dranreb]

La toute première mouture ne sortait qu'une récap, mais j'ai ajouté des choses pour trouver pourquoi je n'avais pas les mêmes chiffres que toi. Il n'y a qu'à les enlever. Pour commencer, il n'y a plus que 6 colonnes à produire, donc le tableau destiné à accueillir le résultat doit être dimensionné à 6 colonnes: Redim TRés(1 To 5000, 1 To 6), plus 7. Et naturellement il ne faut plus rien verser dans la 7, et 'resizer' à 6 à la fin pour verser le tableau.

 

[desmonts]

Merci Dranreb,
grâce à tes conseilles du message précédant j'ai réussi à obtenir ce que je souhaitais. La seule chose que je n'arrivais à faire c'est de tout éditer sans ligne vide entre chaque changement de ref. j'ai donc rajouter une ligne de code suppriment les lignes vide, cela risque de ramer un peu si le fichier est gros mais c'est top encore merci pour ta patience.

Private Sub Worksheet_Activate()
   Dim Ref As SsGr, Dat As SsGr, Détail, TRés(), L, LDéb, PrixU As Currency, Montant As Currency, TotRéf As Currency, DDébPrix As Date
   ReDim TRés(1 To 100000, 1 To 6)
   L = -1
   For Each Ref In Gigogne(TableUnique(Feuil1.[A2], Feuil2.[A2]), 1, 3)
      L = L + 1: TRés(L + 1, 1) = Ref.ID: TotRéf = 0
      For Each Dat In Ref.co
         For Each Détail In Dat.co
            If Détail(0) = 0 Then
               PrixU = Détail(2)
               DDébPrix = Détail(3)
            Else
               L = L + 1
               TRés(L, 1) = Ref.ID
               TRés(L, 2) = Dat.ID
               TRés(L, 3) = Détail(2)
               TRés(L, 4) = PrixU
               Montant = Détail(2) * PrixU
               TRés(L, 5) = Montant
               TotRéf = TotRéf + Montant
               TRés(L, 6) = DDébPrix
               End If
            Next Détail, Dat, Ref
         'L = L + 1: TRés(L, 2) = "Total :": TRés(L, 5) = TotRéf
      'Next Ref
   Me.[A3].Resize(100000, 6).Value = TRés
   Range("D:D").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   End Sub

 

[Dranreb]

Ben supprime la sortie de la 1ère ligne juste derrière le for Each Ref in Gigogne(etc.
Et inutile désormais de commencer à L = -1 au début, 0 par défaut convient parfaitement.
Inutile aussi de calculer le total TotRéf si tu ne veux plus le sortir.
En fait tout devient plus simple …

 

[desmonts]

ok c'est parfait ainsi, merci.