Discussion :

[Yoooo]

Bonjour

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 24 And Target.Row = 6 Then
    Range("A1").Value = "Date de la dernière modification le " & Now
End If
End Sub

J'ai 3 feuilles, c'est le code de la 3ème feuille
lorsque la cellule "x6" de la feuille 3 change, il me marque la date en "A1" dans la feuille 3,
mais moi je voudrais que lorsque la cellule "x6" de la 1ère feuille change, il me marque la date en "A1" toujours dans la feuille 3.

Quelqu'un voit-il ce qu'il faut faire? merci...

[Invité]

Bonjour Yoooo,

A priori il faut mettre ce code sur le feuille 1 et modifier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 24 And Target.Row = 6 Then
    Sheets(3).Range("A1").Value = "Date de la dernière modification le " & Now
End If
End Sub

[Yoooo]

nickel
merci beaucoup