reprise des données d'un autres onglets

**Naoned005** · 27/06/2012, 18h56

Bonjour

Dans le fichier ci joint j'ai fais un tableau synthetique d'un grand tableau qui est dans le 1ere onglet.

Mon critere de selection est la date d'aujourd'hui

J'incere ma macro mais mon tableau synthetique se resume a une seule et même ligne (qui a bien la date d'aaujourd'hui quand même

)

Voici ma macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Macro1()
 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)
 
 
 
Set ad = Sheets("Port_MOMENTUM").Range("BT173").CurrentRegion 'définit la plage des anciennes données
 If ad.Rows.Count > 1 Then 'condition : si ad contient plus d'une seule ligne
     Set ad = ad.Offset(1, 0).Resize(ad.Rows.Count - 1, ad.Columns.Count) 'redéfinit ad (sans la première ligne)
     ad.Clear 'efface ad
 End If 'fin de la condition
 
 
With Sheets("Daily Equity")  'prend en compte l'onglet "Feuil1"
     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:A" & dl) 'définit la plage pl
 End With 'fin de la prise en compte de l'onglet "Feuil1"
 For Each cel In pl 'boucle sur toutes les cellule cel de la plage pl
     'condition : si la date correspond
 
      If Day(cel.Value) = Day(Date) And Month(cel.Value) = Month(Date) And Year(cel.Value) = Year(Date) Then
         'définit la cellle de destination
         Set dest = IIf(Sheets("Port_MOMENTUM").Range("BT173") = "", Sheets("Port_MOMENTUM").Range("BT173"), Sheets("Port_MOMENTUM").Cells(Application.Rows.Count, 5).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, 11).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

Voici mon fichier

Donc ma question est: Pourquoi il ne prend pas toute les lignes dans le 1ere onglet qui ont la date d'aujourd'hui?

J'ai relu 100 fois le code sans m'en expliquer!!