Comparaison de date

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:

---

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.

:king:

B'jour,

A quoi te sert cette ligne ?

Code:

---

DateChamp = Array("C20", "G20")

---

Concernant ta syntaxe

Code:

---

If "C20" > "G20" Then

---

Il n'y a rien qui te paraît bizarre ? As-tu déjà vu quelque part dans une syntaxe que l'on écrivait l'adresse d'une cellule simplement "C20" ?

Code:

---

1 2 3

If Range("C20") > Range("G20") Then MsgBox "sup" End If

---

mais que vient faire ton tableau "DateChamp = Array("C20", "G20")" ?

Citation:

---

Envoyé par ouskel'n'or

Code:

---

1 2 3

If Range("C20") > Range("G20") Then MsgBox "sup" End If

---

mais que vient faire ton tableau "DateChamp = Array("C20", "G20")" ?

---

:oops:

Etant débutant, je me suis totalement planté dans mon code,

Je pensait définir mes cellules à tester avec l'instruction

Code:

---

DateChamp = Array("C20", "G20")

---

Concernant le test, je me suis basé du les fonctions que l'on peut excécuter dans une cellule.

J'ai encore beaucoup à apprendre !

Ça résoud ton problème ? Si oui, un petit clic sur :resolu: que tout le monde sache que c'est résolu ;)
(en bas de cette fenêtre)

Citation:

---

Envoyé par ouskel'n'or

Ça résoud ton problème ? Si oui, un petit clic sur :resolu: que tout le monde sache que c'est résolu ;)
(en bas de cette fenêtre)

---

:bug::king:

J'ai écris ce code dans "ThisWorkbook. Lorsque que j'ai fini de remplir ma feuille et que je clique sur l'icône enregistré le test ne se fait pas !

Code:

---

1 2 3 4 5 6 7 8 9

Sub CompareDate()     If Range("C20") > Range("G20") Then MsgBox "Mon message" End If     End Sub

---

Manque t'il une instruction qui active la feuille ou le classeur, pourtant c'est la seule feuille du classeur fichier.xls

Tu dois placer ce code dans un module standard -Editeur VB -> Insertion -> Module
Et dans Thisworkbook, tu mets

Code:

---

1 2 3

Private Sub Workbook_Open() CompareDate End Sub

---

Ainsi tu auras ton message à l'ouverture du classeur ;)

Citation:

---

Envoyé par ouskel'n'or

Tu dois placer ce code dans un module standard -Editeur VB -> Insertion -> Module
Et dans Thisworkbook, tu mets

Code:

---

1 2 3

Private Sub Workbook_Open() CompareDate End Sub

---

Ainsi tu auras ton message à l'ouverture du classeur ;)

---

:yaisse2:

Je pense que je n'ai pas été précis. C'est à la sauvegare du classeur que le test doit s'exécuter.

Donc je dois le faire, je pense, dans une macro "Private Sub Workbook_BeforeSave()".

J'ai un simple If ... End If et un If ... End If dans une boucle For ... Exit For

Il faut que je l'insère au bon endroit afin que je ne sorte pas des tests quand je clic sur le OK car tous les erreurs plausibles doivent être testées avant que l'enregistrement puisse être validé.

Salut

Je me rends compte qu'il y a eu des développement entre le moment où j'ai lu la question et où je reviens avec le résultat de mon petit test... Je propose quand, même. On ne sait jamais, ça pourrait servir...

J'ai un classeur avec une cellule dommée 'cejour' parce que je ne pouvais évidemment pas la nommer 'aujourdhui'... et une autre nommée 'datenaissance'. J'ai mis le code suivant dans un module (Module1) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit   Private Sub toto() MsgBox dateOK(Feuil1.Range("cejour"), Feuil1.Range("datenaissance")) End Sub   Private Function dateOK(dateRef As Range, dateEntree As Range) As Boolean Dim dateDeReference As Date, dateUtilisateur As Date dateDeReference = dateRef.Value dateUtilisateur = dateEntree.Value Debug.Print dateDeReference, dateUtilisateur, DateDiff("d", dateDeReference, dateUtilisateur) If DateDiff("d", dateDeReference, dateUtilisateur) <= 0 Then dateOK = True Else dateOK = False End If End Function

---

Avec la fonction DateDiff tu peux vérifier le nombre de jours, de mois, d'années... de secondes écoulées entre deux dates. Et pas besoin de DateCompare...

En faisant une fonction dans un module, tu peux utiliser ta fonction dans les formules de cellules : exemple :

Code:

---

=dateok(cejour;datenaissance)

---

affiche VRAI si la date de naissance est plus petite ou égale à la date du jour.

Une autre astuce : Pour entrer la date du jour dans une cellule sans avoir à recourir à une formule, tu sélectionne la cellule et tu tapes le raccourci Ctrl + ; (contrôle + point-virgule).

:king: Merci ça peut effectivement servir. Je vais tester