Discussion :

[lio62]

bonsoir,

lors de la recopie vers la feuille controle il n'est absolument pas tenu compte de la condition >= ladate.
pourtant en faisant F8 la valeur de ladate est bonne mais il me prend la première ligne de ma base de données les dates qui conviennent puis il recpie également la première date qu'il rencontre sur la base de données et qui est inférieure a la condition.

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
  Worksheets("bd").Select
 
ladate = [am1]
With Sheets("bd")
     Set LaPlage = .Range("b:b")
 
End With
 
 i = 1
 b = 1
 'Workbooks.Open Filename:="D:\PARTAGE\FDCN\CONTROLES.xls"
Windows("CONTROLES.xls").Activate
For Each cell In LaPlage
 
If cell.Value >= (ladate) Then
 
Sheets("CONTROLES" & i).Select
  'cell.EntireRow.Copy
 
     cell.EntireRow.Offset(0, 0).Range("a2:x2").Copy              '
 
     b = b + 1
     Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True
End If
If b > 8 Then
i = i + 1
 
 
     Sheets("CONTROLES" & i).Select
     Range("b2").Select
     b = 1
     b = b + 1
     Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True
 
 
End If

Ne serait il pas possible d'extraire par rapport à la date de série pour éviter ce pb et qu'elle est la syntaxe

merci a+

[patbou]

pouquoi ladate entre parenthese ???
si c 1 function alors ladate() ou ladate(arguments)

[lio62]

bonsoir patbou

c'est moi qui ai oublié de les enlever en faisant des essais

ladate est une variable

dim ladate as date
si je mets comme ceci ladate() il me demande un tableau
par contre en faisant F8 il me met cell=vide mais je ne sais pas pourquoi

merci a+
edit :
ou cell =date (qui est l'entete de la colonne)

[patbou]

bonj
je vais peut etre dire une connerie mais
je n ai pas vu la declaration de cell
dim cell as range

[lio62]

j'avis oublié

mais ca ne change rien je joins le fichier

merci a+

[alsimbad]

moi, j'ai essayé ton code et il fonctionne, et il reconnait bien les dates, tu devrais chercher plutot derriere une histoire de format de date.
oups, je reviens, je prouve ce que je dis

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
Sub essais()
Worksheets("bd").Select
ladate = [a1]
With Sheets("bd")
     Set LaPlage = .Range("b1:b3")
 End With
  i = 1
 b = 1
For Each cell In LaPlage
 If cell.Value >= (ladate) Then MsgBox cell & "  date superieure ou égale à  " & ladate
If cell.Value = (ladate) Then MsgBox cell & "  date  égale à  " & ladate
If cell.Value <= (ladate) Then MsgBox cell & "  date  inferieure ou égale à  " & ladate
If cell.Value < (ladate) Then MsgBox cell & "  date  inferieure à  " & ladate
Next cell
 End Sub

a une ou deux modif pres portant sur les ranges, c'est bien le même code
avec une date en a1 et 3 date < = et > en b1:b3

[lio62]

Bonsoir Alain,

les formats de date je pensais que c'était réglé, je sais plus

j'ai joins le fichier je ne sais pas si tu a vu.

merci a+
lionel