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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Octobre 2020

• #2

Bonjour David,
A tester en PJ avec :

VB:

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.

 

Pièces jointes

• STOCK. (2).xlsm

  107.3 KB · Affichages: 10

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 22 Octobre 2020

• #3

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Octobre 2020

• #4

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.

 

Pièces jointes

• STOCK. (3).xlsm

  107.7 KB · Affichages: 6

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 22 Octobre 2020

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Octobre 2020

• #6

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 22 Octobre 2020

• #7

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 23 Octobre 2020

• #8

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.

 

Pièces jointes

• STOCK. (4).xlsm

  110.7 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Octobre 2020

• #9

Bonjour,
Pour moi ces deux demandes sont contradictoires :

DAVID-44- à dit:

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

Cliquez pour agrandir...

DAVID-44- à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 23 Octobre 2020

• #10

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 23 Octobre 2020

• #11

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Octobre 2020

• #12

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

 

Pièces jointes

• STOCK. (5).xlsm

  108.8 KB · Affichages: 4

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 23 Octobre 2020

• #13

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Octobre 2020

• #14

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Octobre 2020

• #15

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

VB:

If Target.Count > 1 Then Exit Sub

 

Pièces jointes

• STOCK. (6).xlsm

  108.9 KB · Affichages: 4

Vote positif 0 Vote négatif