Vba comparaison entre dates

Fermé

mart - 23 mai 2011 à 15:00
tinmar43 Messages postés 2 Date d'inscription lundi 23 mai 2011 Statut Membre Dernière intervention 23 mai 2011 - 23 mai 2011 à 15:47

Bonjour,

j'aimerai bien que ces quelques lignes de codes puissent me comparer les dates inscrites dans 2 cellules (A1 = date du jour) et me mettent la cellule dont la date est dépassée en rouge.

Merci pour votre aide

Private Sub CommandButton1_Click()
For i = 3 To 150
If Range("I" & i) < Range("A1") Then
Range("I" & i).Interior.ColorIndex = 3
End If
Next
End Sub

A voir également:

Comparaison date vba
Comparaison million milliard - Accueil - Technologies
Trier par date excel - Guide
Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. ✓ - Forum Graphisme
Airpods 3 date de sortie - Guide

2 réponses

Réponse 1 / 2

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 309
23 mai 2011 à 15:05

Bonjour,

je ne vois pas quel est ton problème, cela fonctionne.

Cordialement.

Réponse 2 / 2

mart
23 mai 2011 à 15:12

le test fonctionne mal, toute la colonne sort rouge, que la date soit avant ou apres aujourdhui

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 309
23 mai 2011 à 15:16

Pourtant je viens de retester chez moi, en mettant des dates inférieure à A1, elles sont en rouge, en mettant des dates supérieures à A1 elles restent comme avant....

mart
23 mai 2011 à 15:21

puis-je vous envoyer mon fichier par mail?

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 309
23 mai 2011 à 15:26

Non, par souci d'équité et de partage des informations, vous ne pouvez pas me l'envoyer par mail, au cas où quelqu'un d'autre viendrait vous aider ou aurait besoin de la solution apportée.

Vous pouvez déposer votre fichier via le site cijoint, puis coller le lien qui vous sera donné dans une réponse à cette conversation.

tinmar43 Messages postés 2 Date d'inscription lundi 23 mai 2011 Statut Membre Dernière intervention 23 mai 2011
Modifié par tinmar43 le 23/05/2011 à 15:34

https://www.luanagames.com/index.fr.html

a j'ai trouvé un autre site, ca devrait marcher pareil

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 309
23 mai 2011 à 15:44

Voici une nouvelle version de votre macro :

Private Sub CommandButton1_Click()
Dim NbLigne As Integer
NbLigne = Range("I65536").End(xlUp).Row
For i = 3 To NbLigne
If Not (IsEmpty(Range("I" & i))) And Range("I" & i) < Range("A1") Then
Range("I" & i).Interior.ColorIndex = 3
End If
Next
End Sub

J'ai rajouter la variable NbLigne qui permet de déterminer la dernière ligne contenant des données dans la colonne I.

J'ai également ajouté un test sur les cellules vides, ce qui fait que quand une cellule de la colonne I est vide elle ne devient pas rouge.

Merci de me dire si cela vous convient.

Discussions similaires

je cherche la date et le lieu de naissance d une personne

"L'indice n'appartient à la sélection" + VBA

Problème publipostage date de naissance

MFG pas encore arrivée

Erreur d'exécution 13 Incompatibilité de type