Bonsoir Sphinx,
Comme promis en PV voici un proto de la stat qui t'intéresse.
Programme :
//=======================================================
//Actions_En_Hausse
//========================================================
//
//v1.0
//le 17/04/2008
//smallcaps90
//
//========================================================
//Calculer le % de hausse maxi pour les valeurs en hausse
//depuis le premier jour de cotation de janvier de l'année
//en cours ainsi que la date de la plus forte hausse
//========================================================
//-------1/ Chercher le nombres de jours qui nous séparent
// du premier jour de cotation de janvier de l'année
// en cours et initialiser le Maxi
Pour 270 Cours
D1$=STXT$(DateHisto$(1),7,10)
D2$=STXT$(DateHisto$,7,10)
Si COMPTXT(D1$,D2$)=-1 ET CNUM(D2$)=2008
Alors
R=FinHisto-RangHisto+1
Clot_Depart = cloture
Maxi=Cloture
Break
FinSi
FinPour
//2-------Chercher le Maxi éventuel depuis le premier jour de
// cotation de janvier de la même année et sa date
// Et calculer le % de hausse
Pour R-1 Cours
Si Cloture>=Maxi
Alors
Maxi=Cloture
Date_Maxi$ = DateHisto$
FinSi
FinPour
Pour_Cent = 100*(Maxi-Clot_Depart)/Clot_Depart
//3-------Afficher les résultats
//
Si Pour_Cent>0
Alors
Colonne1 = Date_maxi$
Colonne2 = CTXT$(Pour_Cent,2) & " %"
Select=1
FinSi
Si Select=1 Alors Selection
//Fin du code
Fenêtre Propriétés :
Résultats pour le CAC40 en date du 17/04/2008 :
Groupe : cac40 Date : 17/04/2008
Calculer le % de hausse maxi pour les valeurs en hausse
depuis le premier jour de cotation de janvier de l'année
en cours ainsi que la date de la plus forte hausse
09/01/2008 2,27 % Air Liquide
25/02/2008 5,09 % Alstom
14/01/2008 0,31 % Bnp Paribas
08/01/2008 4,03 % Danone
07/04/2008 8,88 % Dexia
07/01/2008 2,74 % EDF
09/01/2008 1,72 % Essilor International
09/01/2008 5,76 % France Telecom
08/01/2008 7,24 % Gaz de France
26/02/2008 6,85 % Lagardere
26/02/2008 4,64 % Peugeot
09/01/2008 6,86 % Sanofi-Aventis
14/01/2008 0,35 % Societe Generale
10/01/2008 4,67 % Suez
08/01/2008 4,58 % Total
05/03/2008 16,89 % Unibail
10/01/2008 2,30 % Veolia Environnement
08/01/2008 0,26 % Vivendi
Pour des raisons propres à GrapheAT Pro, j'ai placé les noms des actions sélectionnées en fin de ligne.
Cordialement.