vba date

[garrec]

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

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 que cette macro n'aille pas chercher toute la semaine MIAS jusqu'au jeudi précedent! Mais la je seche!!

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

Thanks


Garrec

 

[Pierrot93]

Re : vba date

Bonjour,

préférable de rester sur le même fil, quitte à le remonter au besoin...

https://www.excel-downloads.com/threads/date-vba.188718/

bon après midi
@+

 

[garrec]

Re : vba date

Bonjour Pierrot!

Bah ou est la différence??? ça revient au même. Autant ne pas s'embrouiller avec des discutions qui prendrait du temps a rechercher non?

Et sinon concenant la macro

Bonne jjournée a toi

 

[Pierrot93]

Re : vba date

Re,

bah la difference c'est que c'est tres difficile à suivre pour tout le monde, et également pour le questionneur....¨perso quand je vois plusieurs fils pour le même sujet, je n'y participe pas....

 

[garrec]

Re : vba date

lol susceptible mais fort en VBA

Tu veux que je repost cela dans l'ancienne file?


Merci encore pour ta macro hein !!!

 

[Pierrot93]

Re : vba date

Re,

Tu veux que je repost cela dans l'ancienne file?

c'est toi qui vois, pas sûr que cela apporte des détails supplémentaires....