Selection de certaines dates

Version imprimable

05/08/2008, 17h27
charles1280

Selection de certaines dates

Bonjour,

J'ai une liste de date au format jj/mm/aaaa hh:mm:ss.
Cette liste est dans une feuille "calage".
Je voudrais copier les dates qui finissent en jj:mm:00 ou jj:mm:30 pour les coller dans une autre feuille "macro" et copier aussi la cellule à coté de la date selectionnée.

Je ne sais pas du tout comment m'y prendre.
Pouvez vous m'aider?
Merci
05/08/2008, 17h40
ucfoutu

Bonjour,

Commence par t'intéresser à la fonction day

Ceci étant dit : je vois mal ce que peut être une date où le jour serait 00 !

Bonsoir,

j'ai l'impression que charles cause plutôt des secondes regarde cela:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub CopieSecondes00ou30()
 'Supposons que tes dates sont dans colonne A entre A1 e A10 dans Feuil1
 'Copie vers feuille Feuil2 en commençant en A1
 Dim r As Range
 Dim c As Range
 Dim iTO As Integer 'index destination
 iTO = 1
 Set r = ThisWorkbook.Sheets("Feuil1").Range("A1:A10")
 For Each c In r
   If Second(c) = 30 Or Second(c) = 0 Then
     ThisWorkbook.Sheets("Feuil2").Cells(iTO, 1) = c
     iTO = iTO + 1
   End If
 Next
End Sub

07/08/2008, 13h28
charles1280

Effectivement mon problème était sur les secondes.
Merci beaucoup pour la solution.