Discussion :

[BtjpsspgrW]

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 :

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

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

[Marc-L]

Bonjour, bonjour,




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 :

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

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

_______________ ____________________________________ ______________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur 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# …

[Docmarti]

Bonjour BtjpsspgrW;

Une autre possibilité :

Code :

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

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 :

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

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