Date modification d'une cellule

Bonjour,

Voici mon problème :

J'aimerai faire afficher la date de modification dans la colonne "I" d'une cellule dans la colonne "H".

Ex :

H I

1 ok 15/10/12

2 ras 14/10/12

3

J'ai essayé toutes les solutions proposées par le forum mais ne sachant que peu programmer, j'ai des retours d'erreurs.

Merci par avance de votre aide

Bonjour.Bienvenue sur le Forum

Code de Feuille

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Application.Intersect(Target, Range("H:H")) Is Nothing Then 
Target.Offset(0,1)=Date
End If 
End Sub 

Cordialement

Bonsoir,

Essaye le code suivant dans la feuille correspondante :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("H:H")) Is Nothing Then
        Target.Offset(0, 1) = Now
    End If
End Sub

édit : Salut Amadeus.

J'ai vu que Now donne également l'heure de modification par rapport à Date, d'où modification de mon code

Merci pour vos retours ! c'est exactement ce que je cherchais.

Cependant, j'ai mis un case à cocher (contrôles de formulaire) qui est liée à une cellule qui me retourne une valeur "VRAI" ou "FAUX".

J'ai donc mis le code que vous m'avez envoyé sur cette cellule mais j'ai l'impression que Excel ne prend pas en compte le "VRAI" ou "FAUX" comme une modification de la cellule

Pour vous expliquer mon projet, j'ai mis des case à cocher pour valider une action et j'aimerai donc que cela me retourne juste la date du jour pour savoir quel jour l'action a été faite.

Ex :

-------------------A---------------------B

1----cochez pour valider-------date

2------------------■--------------15/10/2012

3------------------■--------------16/10/2012

3------------------□

J'ai remarqué qu'il était possible également d'attribuer une macro à ces cases.

Merci !

Bonjour,

Tout d'abord merci beaucoup pour le code ci-dessus qui marche super bien ! Mais j'ai essayé d'y ajouter une condition et elle ne veut pas fonctionner...

Je vous le met ci-dessous, si vous arrivez à voir d'ou vient le problème je vous en serait très très reconnaissante !!!

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("SuiviLVD")) Is Nothing Then
    Target.Offset(0, 1) = Date 'Fonctionne très bien
    ElseIf Application.Intersect(Target, Range("SuiviLVD")) Like "*FIN*" Then
    Target.Offset(0, 2) = Date 'Ne met pas de message d'erreur mais ne fonctionne pas non plus
    End If
    End Sub

Merci