Copier automatiquement une ligne d'une feuille sur une autre feuille suivant une date donnée.

[DAVID-44-]

Bonjour, j'ai créé un classeur afin de gérer correctement les stocks.
Aussi, je souhaiterais, dans un premier temps, être alerté sur la feuille "URGENT" une semaine avant, sur les produits qui seraient à passer suivant leurs DLC dans toutes les catégories de la feuille "STOCK" ( ???? - Divers - Frais etc...).
En fait, copier automatiquement sur la feuille "URGENT", les lignes des produits, dont les DLC approchent de la date, une semaine avant et trier de haut en bas les produits de la date les plus prêts à la date la plus éloignée.

J'ai fait des essais, mais je n'y arrive pas.
Merci de votre aide.

 

[sylvanu]

Bonjour David,
A tester en PJ avec :

Sub Worksheet_Activate()
    Range("B9:G100").ClearContents
    LenCours = 9
    For L = 9 To 158
        If IsDate(Sheets("STOCK").Cells(L, "G")) And Sheets("STOCK").Cells(L, "G") <= Date - 7 Then
            Sheets("Urgent").Cells(LenCours, "B") = Sheets("STOCK").Cells(L, "B")
            Sheets("Urgent").Cells(LenCours, "C") = Sheets("STOCK").Cells(L, "C")
            Sheets("Urgent").Cells(LenCours, "E") = Sheets("STOCK").Cells(L, "E")
            Sheets("Urgent").Cells(LenCours, "F") = Sheets("STOCK").Cells(L, "G")
            Sheets("Urgent").Cells(LenCours, "G") = Sheets("STOCK").Cells(L, "H")
            LenCours = LenCours + 1
        End If
    Next L
    Range("B9:G100").Select
    ActiveWorkbook.Worksheets("URGENT").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("URGENT").Sort.SortFields.Add Key:=Range("F9:F100") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("URGENT").Sort
        .SetRange Range("B9:G100")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    [B6].Select
End Sub

La macro se lance quand on sélectionne la page URGENT.

 

[DAVID-44-]

Rebonjour, le procédé fonctionne, mais la date n'est pas la bonne ! En fait, j'aimerais être alerté dans " URGENT ", quand la DLC arrive près (1 semaine avant) de la date du jour c'est-à-dire pour cette semaine: du 15/10/2020 au 22/10/2020.

 

[sylvanu]

Voilà.
J'avais mal interprété.
Je m'étonne que vous ne vous intéressiez pas aux DLC dépassées de plus d'une semaine, si tant est qu'il y en ait.

 

[DAVID-44-]

Merci, en fait c'est pour m'alerter des produits qui arrivent en fin de vie pour les passer avant.

 

[sylvanu]

🙂
Je pensais que c'était pour ré approvisionner.

 

[DAVID-44-]

En tout ca merci beaucoup,😉 vous êtes génial !

 

[DAVID-44-]

Bonjour, je reviens avec mon fichier, car je viens de m'apercevoir que dans ma feuille "URGENT", j'ai toutes les dates après le jour d'aujourd'hui et j'aimerais simplement être alerté que sur une semaine (par ex. : du 23/10/2020 au 30/10/2020). J’ai bien essayé de modifier, mais sans succès !

Merci de votre aide.

 

[sylvanu]

Bonjour,
Pour moi ces deux demandes sont contradictoires :

c'est-à-dire pour cette semaine: du 15/10/2020 au 22/10/2020.

que sur une semaine (par ex. : du 23/10/2020 au 30/10/2020

Que désirez vous ? La semaine passée ou la semaine à venir ?

 

[DAVID-44-]

OOOOOppppsssss !!!!! Oui en effet ! Excusez moi, en fait la semaine à venir ... du 23/10/2020 au 30/10/2020

 

[DAVID-44-]

Est-il possible de supprimer la (les) ligne(s) dans la feuille "STOCK" ?

 

[sylvanu]

Bonjour,
S'agissant d'une DLC j'aurais aussi pu m'en apercevoir. 🙄
En PJ les deux modifs demandées.

 

[DAVID-44-]

Super, excusez-moi encore pour mon erreur ! Bonne journée.

 

[sylvanu]

Par contre votre méthode pose un problème.
Dans stock vous ne pouvez plus insérer de ligne en cliquant sur le N° de ligne et faire Insertion ... car ça ouvre le calendrier puisque en sélectionnant la ligne vous sélectionner clic droit la cellule I.
A voir comment vous allez contourner le problème, si tant est que cela en soit un.
Peut être devrions nous effacer la ligne et non la supprimer, mais dans ce cas il y aura des "trous" dans la liste stock.

 

[sylvanu]

En écrivant j'ai trouvé la solution.
Il suffit d'exclure le calendrier si plusieurs cellules sont sélectionnées :

If Target.Count > 1 Then Exit Sub