Copie valeur date si valeur colonne change

Bonjour à tous,

Après avoir fait une recherche sur le forum, j'ai trouvé une macro qui peut s'adapter à ma situation. Par contre, je ne suis pas capable de la faire fonctionner!

Je veux que si une valeur de la colonne "G:G" d'un tableau change, la valeur de la date du jour (sans qu'elle se met à jour si la valeur ne rechange pas) s'inscrive dans la colonne "D:D" sur la même ligne que la valeur à changer.

Voici le code utilisé. Je ne comprends pas, les numéro (0,3) ne corresponde pas à la 8e colonne H dans ce code, c'est pourquoi je ne suis pas capable de l'adapter à ma situation. Merci d'avance pour votre temps.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'Updated by Extendoffice 2017/10/12

Dim xRg As Range, xCell As Range

On Error Resume Next

If (Target.Count = 1) Then

If (Not Application.Intersect(Target, Me.Range("G:G")) Is Nothing) Then _

Target.Offset(0, 3) = Date

Application.EnableEvents = False

Set xRg = Application.Intersect(Target.Dependents, Me.Range("G:G"))

If (Not xRg Is Nothing) Then

For Each xCell In xRg

xCell.Offset(0, 3) = Date

Next

End If

Application.EnableEvents = True

End If

End Sub

Salut Mat,

Alors normalement le code ci-dessous devrait suffire pour faire ce que tu demande :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then Cells(target.row, 4) = Date
End Sub

Si tu a des questions ou des modifications a apporter reviens vers nous !

B'zou '3'

Bonjour,

Une autre du même acabit.

Mais on met les données sous forme de tableau et on travaille pas sur des colonnes entières !...

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column = 7 Then .Offset(, -3).Value = Date
    End With
End Sub

Bonjour à tous et désolé pour le délais de réponse, j'ai dû mettre se projet de côté un moment. Je viens de tester les 2 solutions proposées, mais sans succès. J'ai pourtant placer le code dans la section "Thisworbook". Mon fichier de test est en pièce jointe.

Merci pour votre temps!

Bonjour,

A tester.

Les données sont sous forme de tableau structuré (dynamique).

J'ai supprimé les cases à cocher, difficilement gérables (et inuitles).

A te relire.

Cdlt.

Wow! Merci Jean-Eric, cela marche très bien!!