Discussion :

[titeZ]

Alors si j'ai bien compris et malgré que ça aille dans le sens contraire de ma logique à moi
pour excel:
16 fevrier 2007< 26 janvier 2007...

jusque là tout vas bien

le probleme c'est que quand je fais des comparaison mano mano dans excel ca va mais en vba il semble rien comprendre

mon code c'est ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
For k = 1 To lignefinc
For l = 5 To lignefinm
If Workbooks("carole.xls").Worksheets(2).Cells(k, 22).Value = Workbooks("mouve.xls").Worksheets(1).Cells(l, 8).Value Then
If Workbooks("mouve.xls").Worksheets(1).Cells(l, 4).Value < Workbooks("carole.xls").Worksheets(1).Cells(k, 8).Value Then
Workbooks("mouve.xls").Activate
Worksheets(1).Select
Workbooks("mouve.xls").Worksheets(1).Rows(l).Copy Destination:=Workbooks("carole.xls").Worksheets(1).Cells(l, 1)
End If
End If
Next
Next

le probleme c'est qu'il ne veut pas comprendre dans ce sens là

il est faux que le 20/03 et le 10/04 sont aprés le 20/03 ( bah jsuis ok pour le 20/03 mais pas pour le 10/04)
et dans l'autre sens (>)
il est vrai que le 20/03 et le 10/ 04 sont avant le 20/03

je veux lui faire dire qu'il se moque de mon 20/03 mais qu'il me copie ( selon mon code) le 10/04

pouvez vous m'aider et surtout qu'est ce qu'il ne va pas dans mon code???
merci

[ouskel'n'or]

Déjà, tu devrais regarder là, tu as un grand nombre d'exemples de gestion des dates.
Le pb, c'est que VBA ne reconnaît pas "forcément" une date
pour comparer deux cellules contenant des dates aux formats "dd/mm/yyyy" et "d/m/yy" par exemple, il faut préciser que les deux sont des dates.

Code :

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

If cdate(Cells(1,1).value) = cdate(Cells(1,2).value then

Hélas, ça ne fonctionne pas toujours. Si l'une des dates a été collée ainsi dans une cellule Excel

Code :

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

Cells(1,1).value = Now()

que le format de cellule, dans Excel, est "jj/mm/aaaa", le numéro de série ne sera pas le même que si l'on a placé

Code :

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

Cells(1,1).value = Format(Now(), "dd/mm/yyyy"

Bref, c'est pas simple.
Dans un cas tu as des décimales, dans l'autre tu n'en as pas.

Heureusement, il existe une solution qui règle la plupart des pb

Code :

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

If int(cdbl(cdate(Cells(1,1).value))) > Int(cdbl(cdate(Cells(1,2).value)) then

Si tu es certain de ne pas avoir de décimales, tu peux supprimer Int()
Quant à ton affirmation 16 fevrier 2007< 26 janvier 2007... Ben oui, par ordre Alpha, c'est vrai. C'est pourquoi, avant de faire un tri, je propose toujours de formater la colonne date en nombre, non en date, le temps du tri
Tu dis
A+

[titeZ]

Alors c'est peut etre du a mes workbooks et worksheets en tout genre
masi ça me dis que la propriété ou methode est non gérés par cette objet???

If Workbooks("mouve.xls").Worksheets(1).Int(CDbl(CDate(Cells(l, 4).Value))) < Workbooks("carole.xls").Worksheets(2).Int(CDbl(CDate(Cells(k, 8).Value))) Then

[ouskel'n'or]

Ben non

Code :

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

1
2
if Int(CDbl(CDate(Workbooks("mouve.xls").Worksheets(1).Cells(l, 4).Value))) < _
Int(CDbl(CDate(Workbooks("carole.xls").Worksheets(2).Cells(k, 8).Value))) Then

A+ mais je suis complètement désespéré

[titeZ]

Merci
c'est bon