Condition suivant date

Bonjour,

Je souhaite à partir d'une série de date dans une colonne D, Traiter la date suivant la condition :

- Si une des valeurs de cellulle de la colonne D est inférieure à la date du jour, alors les cellules deviennent "la date du jour" MAIS UNIQUEMENT si la cellule de la colonne E associée est vide.

- Sinon rien.

Comment faire cela en VBA ?

Merci d'avance

Bonjour

Merci de joindre un fichier

Cordialement

J'ai joint un fichier type

Je veux donc, que si la colonne "Date Prev" contient une ou plusieurs dates inférieures à la date du jour, alors remplacer par la date du jour MAIS à condition que la cellulle associée de la colonne "Date Int" soit vide.

SINON RIEN

A partir d'une macro

Voilà

Bonjour

Code Module

Sub Modifie()
Dim MaCellule As Object, Today As Date
Today = Date
For Each MaCellule In Range("C2", Range("C2").End(xlDown))
If MaCellule < Today And IsEmpty(MaCellule.Offset(, 1)) Then
MaCellule.Value = Today
End If
Next MaCellule
End Sub

Cordialement

Merci pour ta réponse, c'est ce que je voulais !

Maintenant j'ai juste un dernier soucis, je souhaite l'incorporer dans un userform. Voici le code :

Private Sub UserForm_Initialize()

Dim MaCellule As Object, Today As Date
    Today = Date
    For Each MaCellule In Range("Archives!C2", Range("Archives!C2").End(xlDown))
    If MaCellule < Today And IsEmpty(MaCellule.Offset(, 1)) Then
    MaCellule.Value = Today
    End If
    Next MaCellule
End Sub

Je souhaite aller chercher les informations sur la page "Archives" mais ça ne fonctionne pas j'ai une erreure.

EDIT : J'aimerai ajouter un "x" dans la colonne E sur la ligne associé quand la date est modifiée aussi.

Merci

Bonjour

Voir fichier

Cordialement

Merci beaucoup, c'est tout ce que je voulais