Discussion :

[voldo2142]

Bonsoir,

J'ai besoin d'aide pour réaliser mon projet, j'explique :

J'ai une date de début soit le 01.01.1990 et une date de fin 01.01.2000.

Je souhaite que s'affiche sur une feuille chaque début d'année à la suite. c'est a dire, avoir une colone qui commence par 01.01.1990 ensuite sur la cellule du dessous : 01.01.1991 etc jusqu'a la date de fin.

Ensuite, si vous pouvez.... je dois faire un recherchev pour que s'affiche le cours à la date mentionnée (se trouvant dans une base de donnée...

Mon fichier est en annexe. Merci de jeter un coup d'oeil

Merci pour votre aide

[Abed_H]

Bonsoir
essaie ceci pour la date

Code :

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

=SI(MOIS(Base de donnée!A3)=1;Base de donnée!$A3;"") 'recopie vers le bas

et cela pour les valeurs

Code :

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

=SI(ESTNA(RECHERCHEV(E3;Base de donnée!$A$3:$B$242;2;0));"";RECHERCHEV(E3;Base de donnée!$A$3:$B$242;2;0)) 'recopie vers le bas

NB:dans la formule mettre la feuille Base de donnée entre ' '
Bonne soirée

Abed_H

[ucfoutu]

Bonsoir,

voilà ma façon personnelle de te répondre :

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_Click()
  annee1 = 1990
  annee2 = 2000
  For i = annee1 To annee2
    MsgBox DateSerial(i, 1, 1)
  Next
End Sub

A toi de t'en servir, maintenant, en te rappelant ce à quoi peut éventuellement servir la fonction Year

[voldo2142]

Bonsoir ucfoutu,

J'arrive pas a utiliser ton code, qui normalement devrait me permettre d'afficher les dates aux intervalles que je désire.

Si je comprend bien, je donne les valeurs : annee1 = annee(cellule désirée) et annee2 = annee(cellule de fin)

Ensuite il s'agit donc de donner l'ordre qu'il mette l'année1 dans la cellule A1 (par exemple) et qu'il aille jusqu'a l'année2. Ce qui serait traduit par :

Code :

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

1
2
3
For i = annee1 To annee2
    MsgBox DateSerial(i, 1, 1)
  Next

Malgré ca, j'arrive toujours pas à réaliser le code

Et en plus je vois pas comment il va pouvoir aller chercher la cotation dans ma database, juste a l'aide de l'année.

En faite j'ai besoin des cotations de chaque janvier d'années, celon les dates choisie dans la première feuilles...

J'ai remis le fichier un peu plus a jour....

Help Help Help

[voldo2142]

Hello,

J'ai pu avancé, mais bon c'est plus du codage VBA mais plutot des formules dans les cellules, il y a moyen de transformer ma colone de date et mon adj close ena en code?

Merci D'avance
Nico