Discussion :

[Naoned005]

Bonjour j'ai une macro qui me selectionne des lignes sur excel avec des date allant jusqu'a J-7. La voici:

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
Sub Macro5()
 
 Dim ad As Range 'déclare la variable ad (Anciennes Données)
 Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
 Dim pl As Range 'déclare la variable pl (PLage)
 Dim cel As Range 'déclare la variable cel (CELlule)
 Dim dest As Range 'déclare la variable dest (cellule de DESTination)
 Dim cl As Workbook
 Dim da As Date
 
Set cl = Workbooks("KARA_VIEW_GP.xls")
 Set ad = Sheets("Port_Bellecour").Range("D4").CurrentRegion 'définit la plage des anciennes données
 
 With cl.Sheets("Daily Equity")  'prend en compte l'onglet "Daily Equity"
     'dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée de la colonne A
     Set pl = .Range("A2:A15000") 'définit la plage pl
 End With 'fin de la prise en compte de l'onglet "Daily Equity"
 For Each cel In pl 'boucle sur toutes les cellule cel de la plage pl
     'condition : si la date correspond et si en B il y a "Momentum"
     da = Format(Day(cel.Value), "00") & "/" & Format(Month(cel.Value), "00") & "/" & Format(Year(cel.Value), "0000")
     If da <= Date And da > Date - 7 And cel.Offset(0, 1).Value = "Bellecour" Then
         'définit la celulle de destination
          Set dest = IIf(Sheets("Port_Bellecour").Range("D4") = "", Sheets("Port_Bellecour").Range("D4"), Sheets("Port_Bellecour").Cells(Application.Rows.Count, 4).End(xlUp).Offset(1, 0))
         dest.Value = cel.Value 'récupère la date
         dest.Offset(0, 1).Value = cel.Offset(0, 4).Value 'récupère le code isin
         dest.Offset(0, 2).Value = cel.Offset(0, 3).Value 'reçupère le nom de la valeur
         dest.Offset(0, 3).Value = cel.Offset(0, 12).Value 'récupère la devise
         dest.Offset(0, 4).Value = cel.Offset(0, 36).Value 'récupère la quantité
         dest.Offset(0, 5).Value = cel.Offset(0, 6).Value 'récupère le sens
         dest.Offset(0, 6).Value = cel.Offset(0, 15).Value 'récupère le cours
     End If 'fin de la condition
 Next cel 'prochaine celllule de la boucle
 End Sub

J'aimerais quelle n'aille pas chercher toute la semaine mais jusqu'au jeudi précedent! Mais la je seche!!

Quelqu'un voit -il une solution (si besoin d'un fichier mel'indiquer )

Thanks

[HopPopPop]

Bonjour à tous,

A essayer.

Ajouter en déclarations,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Jour As Byte, Ecart As Byte

Mettre en ligne18 avant la boucle For

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Jour = Weekday(Date, 2)
If Jour < 5 Then Ecart = Jour + 3 Else Ecart = Jour - 4

Remplacer la ligne 21 actuelle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If da <= Date And da > Date - 7 And cel.Offset(0, 1).Value = "Bellecour" Then

par la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If da <= Date And da >= (Date - Ecart) And cel.Offset(0, 1).Value = "Bellecour" Then

Cordialement

N.B. Il ya peut-être plus simple ou plus noble, mais cela devrait fonctionner.

[Naoned005]

Bonjour HOPPOPOP

ca fonctionne! nickel MERCI bcp

Have a good day