comparer 2 dates en VBA Fermé

Question

Bonjour, 

J'aimerai comparer 2 dates qui sont dans 2 cellules différentes. Si la 1ère est supérieure à la 2 ème, la colorer en rouge ; si elle est inférieure, la colorer en bleu.

Le souci c'est qu'elles n'ont pas tout à fait le même format.

La première a le format suivant : 19/12/2011
Et la deuxième contient la date + l'heure : 06/05/2013  14:43:12

Du coup j'ai écrit ce petit bout de code mais cela ne marche pas . Il me met la celulle en noir.

nbcolonne2 = Sheets("Feuil2").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1
nbligne2 = Sheets("Feuil2").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1

For i = 2 To nbligne2

    If Sheets("Feuil2").Cells(i, 2).Value < Sheets("Feuil2").Cells(i, 3) Then
    Sheets("Feuil2").Cells(i, 1).Interior.Color = 3
    ElseIf Sheets("Feuil2").Cells(i, 2).Value > Sheets("Feuil2").Cells(i, 3) Then
    Sheets("Feuil2").Cells(i, 1).Interior.Color = 5
    End If
    
Next


Merci d'avance pour votre aide
Configuration: Windows 7 / Internet Explorer 8.0

klissou69 · Answer

C'est résolu avec la commande : 

Sheets("Feuil2").Cells(i, 1).Interior.ColorIndex = 5

Mais j'ai un souci pour les dates de valeur égale, il me les mets de couleur rouge alors que je les veux de couleur bleu malgré que je mette :

ElseIf Sheets("Feuil2").Cells(i, 2).Value > =Sheets("Feuil2").Cells(i, 3) Then
    Sheets("Feuil2").Cells(i, 1).Interior.Color = 5


Ca doit être à cause de l'heure.

Si quelqu'un a une solution merci d'avance

Comparer 2 dates en VBA

1 réponse

Discussions similaires