Discussion :

[loux69]

Bonjour à tous !

Je suis actuellement en train d'automatisé mes présentations de réunions suite à mes extraction de GMAO, mais j'ai un petit soucis lors de la comparaison de deux dates.

Je vous écrit mon problème en vba :

Code :

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

1
2
3
4
5
6
7
8
9
dim dat_min as date
dim dat _clot as date
 
dat_min = "01/07/2013"
dat_clot = range ("C1").value
 
If dat_clot >= dat_min
   ...
End If

Voilà mon problème est que le format de la date dans C1 est par exemple : "02/07/2013 02:06"

Donc je ne rentre jamais dans mon si.

Désolé c'est une question un peut de base, mais j'ai cherché un long moment sans trouvé de réponse, je me permets donc de vous demander afin de pouvoir avancer.

Je vous remercie par avance ! =)

[casefayere]

Bonjour,

essayes comme çà :

Code :

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

If cdate(dat_clot) >= cdate(dat_min) then

[Docmarti]

loux69

Il faut comparer des dates avec des dates

Cordialement

Docmarti

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
 Sub ComparerDesDatesAvecDesStrings()
 
 dat_min = "01/07/2013"
 dat_clot = Range("C1").Value
 
Debug.Print TypeName(dat_min); " "; TypeName(dat_clot)
 
 
If dat_clot >= dat_min Then
Stop
End If
 
 End Sub
 
 Sub ComparerDesDatesAvecDesDates()
 
 Dim dat_min As Date
 Dim dat_clot As Date
 
 dat_min = "01/07/2013"
 dat_clot = Range("C1").Value
 
Debug.Print TypeName(dat_min); " "; TypeName(dat_clot)
 
 
If dat_clot >= dat_min Then
Stop
End If
 
End Sub

[loux69]

Bonjour.

Tout d'abord merci de vos réponses. malheureusement ayant essayé vos deux solutions je reste bloqué.

J'ai essayé avec ce bout de code :

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
 
Sub comparer_deux_dates ()
 
Dim dat_min as date
Dim dat_clot as date
Dim nb_ot as integer
 
 
nb_ot = 0
dat_min = Cdate(#07/01/20013 12:00:01 AM#) 
dat_clot = Range("C11").Value
 
If Cdate(dat_clot) >= Cdate(dat_min)
  nb_ot = nb_ot +1
  stop
End If

Quand j'affiche dat_clot et dat_min sur des cases j'affiche bien des dates de même format et également les dates que je cherche. Mais je ne rentre toujours pas dans mon If.



EDIT : Ce dernier code fonctionne correctement. L'erreur était du à une case vide dans mon fichier source qui ne devrait pas exister.

Encore merci de votre aide.