Écart date code couleur vba

Fermé

Guillaume - 14 mai 2012 à 14:33
Guillaume - 14 mai 2012 à 16:05

HELP !!!

Je suis débutant en vba, je cherche à mettre en couleur une cellule en fonction d'une différence entre 2 dates.

Soit la couleur orange SI Différence entre DATE échéance et DATE aujourd'hui < 1 an

J'ai commencé le code suivant, il fonctionne.

Quelqu'un pourrait il m'aider à le compléter ???
Merci d'avance.

Private Sub Worksheet_Change(ByVal Target As Range)
'plage de données ("A1:A24")
For Each c In Range("A1:A24")
'Données supérieur à la date du jour
If c > Date Then c.Interior.ColorIndex = 50
'Données inférieur à la date du jour
If c < Date Then c.Interior.ColorIndex = 3
Next c
End Sub

A voir également:

Écart date code couleur vba
Code asci - Guide
Somme si couleur - Guide
Code puk bloqué - Guide
Excel couleur conditionnelle - Guide
Code telephone oublié - Guide

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
Modifié par ccm81 le 14/05/2012 à 15:01

bonjour

quelque chose de ce genre

Option Explicit 

Const plage = "A1:A24" 

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim d As Double 
If Not Intersect(Target, Range(plage)) Is Nothing Then 
  d = Target.Value - Date 
  If d > 365 Then Target.Interior.ColorIndex = 50 
  If d < 365 Then Target.Interior.ColorIndex = 3 
End If 
End Sub

RQ. on devrait pourvoir faire sans macro

bonne suite

ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
14 mai 2012 à 15:01

attention le code a été modifié

Guillaume
14 mai 2012 à 16:05

Merci bcp, c'est bien mieux comme ça.

Discussions similaires

sertissage des cables rj45

prise rj45 correspondance couleur avec cable

Prélèvement JM Jacquie et Michel date.

Problème Whatsapp - "La date est incorrecte"

Code de renvoi d'appel : Ooredo, Mobilis...

Discussions similaires

Newsletters