Comparer une date

Bonjour,

J'ai un souci lorsque je souhaite comparer une date dans une cellule. Ma macro ne fonctionne pas
Quelle modification faut-il apporter ?

Voici ma syntaxe :

Code:

---

1 2 3 4

If ActiveCell.Cells < "01/01/14" Then ActiveCell.Cells.Interior.ColorIndex = 3 End If End Sub

---

Vous en remerciant d'avance.

Cordialement

Bonjour, bonjour,

:tagcode:


Sinon ActiveCell représentant déjà une cellule, cela ne sert pas à grand chose de lui coller la propriété Cells !
Par contre, c'est bien de préciser le besoin comme par exemple sa valeur …

Ensuite il ne faut pas mélanger torchons et serviettes, vaches - cochons, …
Donc, si la cellule est bien au format Date, dans le code la valeur comparée doit aussi être une date
et non du texte comme "01/01/14" ! Une possibilité parmi d'autres :

Code:

---

1 2 3

With ActiveCell If .Value < #1/1/2014# Then .Interior.ColorIndex = 3 End With

---

_______________:yaisse1: ____________________________________:yaisse1: ______________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …


P'tite précision : VBA étant en anglais, les dates sont donc au format mois / jour / année …
Exemple pour le dernier jour de l'année : #12/31/2014# …

Bonjour BtjpsspgrW;

Une autre possibilité :

Code:

---

1 2 3

If ActiveCell.value < cdate("01/01/2014") Then ActiveCell.Cells.Interior.ColorIndex = 3 End If

---

Ou encore avec le format de date international, format passe-partout toujours valide :

Code:

---

1 2 3

If ActiveCell.value < cdate("2014/01/01") Then ActiveCell.Cells.Interior.ColorIndex = 3 End If

---