Comparer 2 dates en VBA
klissou69
Messages postés
60
Date d'inscription
Statut
Membre
Dernière intervention
-
klissou69 Messages postés 60 Date d'inscription Statut Membre Dernière intervention -
klissou69 Messages postés 60 Date d'inscription Statut Membre Dernière intervention -
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.
Merci d'avance pour votre aide
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
A voir également:
- Comparer 2 dates en VBA
- Supercopier 2 - Télécharger - Gestion de fichiers
- Nombre de jours entre deux dates excel - Guide
- 2 ecran pc - Guide
- Faire 2 colonnes sur word - Guide
- Whatsapp 2 - Guide
1 réponse
C'est résolu avec la commande :
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 :
Ca doit être à cause de l'heure.
Si quelqu'un a une solution merci d'avance
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