Dates et comparateur

Bonjour,

Je souhaite crééer un code VBA pour :

au lancement du classeur

1. la date du jour se met en "A1" , on ouvre le classeur le lendemain et la date du jour se met en "A2" ainsi de suite jusqu'à la fin du mois, sans que cela efface les autres dates précédement notés.

2 Ensuite comment comparer des valeurs changeante avec d'autres et attribuer une couleur rouge par exemple à la valeur la plus élevé
Exemple (ce sera plus claire)
les valeurs attribuées au cellules changeront chaques jours
B10 = 5
C10 = 8
D10 = 25

Donc ici D10 est plus élevé au premier jour, donc je souhaite colorier la case ou la colonne de D1:D10 en rouge.
Puis le lendemain C10 a une valeur de 35

J'espère être clair dans la description de mon exemple

NB: je souhaite utiliser exclusivement VBA :P

Meric pour vos conseils à venir

Une approche (Dans le module Thisworkbook)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Workbook_Open() Dim LastLig As Long   With Sheets("Feuil1") 'A adapter LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row On Error Resume Next If DateDiff("d", Date, CDate(.Range("A" & LastLig).Value)) <> 0 Then .Range("A" & LastLig + 1).Value = Date End With End Sub

---

Merci,

ça fonctionne super, je pensais que ce serait plus simple mais finalement ça semble compliqué surtout pour un novice.

Pour le reste je vais cherche une solution j'ai une piste avec les structures conditionnelles.