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

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

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

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Problème publipostage date de naissance

Bonjour,

J'ai créé une base de données sur Excel avec différentes informations dont un champ "Date de naissance". Lorsque je suis sur mon fichier Word et que je créais un publipostage en fonction de cette base de données, la date est en format anglais c'est-à-dire que l'ordre des chiffres est inversé. Je suis allé sur des forums pour tenter de trouver une solution, celle que j'ai retrouvé le plus était la modification du champ en ajoutant " \@"dd/MM/yyyy" ". Le seul résultat que j'ai est que cela m'affiche la date du jour, certes en format français mais ce n'est pas ce que je recherche.

Quelqu'un aurait-il une solution ??

Merci d'avance !!

...

MFG pas encore arrivée

Bonjour, j'ai lu sur le Forum que la MFG est la date de fabrication de l'ordi. J'ai acheté un Lenovo en 2018 et la MFG est datée de 2022. Est-ce normal ? Qui peut me l'expliquer ? Merci.

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...