Macro pour report de chiffres selon date

Version imprimable

12/03/2009, 08h35
exqlicit

Macro pour report de chiffres selon date

Bonjour,

J'essaye depuis quelques temps de créer une macro qui me reporte des chiffres d'une cellule à une autre présente dans un autre classeur en fonction de la date. C'est à dire que la colonne A représente la date et la B des chiffres.

Par eXemple, lorsque dans mon premier tableau je rentre "1" au 11.03.2009, j'aimerais pouvoir copié ce chiffre dans le deuXième tableau à la même date. Je sais pas si c'est assez clair... lol

D'avance merci! :yaisse2:

a+
12/03/2009, 08h59
laetitia

bonjour exqlicit le forum pas bien explicit exqlicit zip petit fichier avec le resultat sur une autre feuille desire sans donnees confid...

Il me semble avoir compris moi :aie:

Si tu n'as pas bien compris laetitia relis simplement l'explication même si souvent c'est vrai il y a des truc tordus ^^

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim plage as range
dim cellule as range
 
With Worksheet("Premierefeuille")
   set plage  =.range(Cells(1,1),Cell(10,1) 'Exemple sur les 10 premieres ligne
      For each cellule in plage
         if cellule = Date() then 
                 Worksheet("Deuxiemefeuille").cells(1,1) = .cells(cellule.row, 2)
                 exit for 'Quitte la boucle a faire uniquement si la date n'apparait qu'une fois
          end if          
     Next
end with