Bonour à tous

J'ai un petit problème de comparaison de date qui ne fonctionne pas

La comparaison s'effectue sur deux dates introduites et je compare si la premeière date introduite C20 est supérieure à la deuxième G20.

Si C20 ( 1er juin 2008) est supérieure à G20 (31 mai 2008) ==> Erreur :

Voici le 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 CompareDate()
Dim FL2 As Worksheet, DateChamp
Set FL2 = Worksheets("MaFeuille")
DateChamp = Array("C20", "G20")
 
 If "C20" > "G20" Then
 
            MsgBox "Utilisateur " & Environ("username") + Chr$(13) + Chr$(13) _
                         & "Nous sommes le " & Date & " il est  " & Time & " " + Chr$(13) + Chr$(13) + Chr$(13) _
                         & "la date de début est supérieure" + Chr$(13) + Chr$(13) _
                         & "à celle de fin " + Chr$(13) + Chr$(13), _
                         vbOKOnly + vbExclamation, "                    -  ERREUR DE SAISIE  -          "       ' <-- Mise en forme du message erreur
 
End If
 
End Sub

Je peux le faire via un test de comparaison dans une cellule mais c'est pas classe comme dirait Aldo.