Discussion :

[bebel9313]

voilà le problème:
Au départ je télécharge les cotations boursières journalières d'une action.
J'ai quatre colonnes que j'aimerai trier.
J'aimerai trier les données de la manière suivante:
1) Regrouper les 5 jours ouvrables de bourse de la semaine.
2)Sortir le cours le Plus haut de la semaine
3)Sortir le cours le Plus bas de la semaine
4)Sortir le cours d'ouverture de la semaine
5)Sortir le cours de cloture de la semaine

Vous allez me dire "mais c'est simple, il suffit de regrouper par tranche de 5 jours".

Oui mais, il faut que je tienne compte des jours feriés.

Comment faire??

[diude54]

Un truc pour t'aider:
fait une boucle sur ton tableau, tu test la colonne date avec l'un ou l'autre:

Code :

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

1
2
3
datepart("w",ta_date) renvoie 1 pour dimanche, 2 pour lundi... 
 
format(ta_date,"dddd") renvoie dimanche, lundi...

Et ensuite tu recupere les infos par semaine (du lundi au lundi ou dimanche ou vendredi comme tu veux)

[diude54]

tu peux aussi récupérer le numero de la semaine en fonction de la date:

Code :

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

1
2
3
4
5
Function NOSEM(D As Date) As Long
   D = Int(D)
   NOSEM = DateSerial(Year(D + (8 - WeekDay(D)) Mod 7 - 3), 1, 1)
   NOSEM = ((D - NOSEM - 3 + (WeekDay(NOSEM) + 1) Mod 7)) \ 7 + 1
End Function

Ensuite tu fait un sous total par n° de semaine

Code :

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

1
2
3
With Range("ton tableau")
    .Subtotal n° de colonne avec le n° des semaines, fonction de sous total souhaitée(ex xlSum pour somme), Array(3, 10, 11, 13, 15)colonne pour lesquelles s'effectue le sous total, True, , xlSummaryBelow
End With

[bebel9313]

C'est bon. Merci bien.
J'ai utilisé la fonction datepart().
J'ai résolu mon pb.
Je pense avoir trouvé une solution qui marche.
Mais pas la solution la plus courte.

Merci bien....