Salut Leakim !
Merci d'avoir retrouvé ce post que je croyais s'être perdu ! Il était destiné au sujet que tu cites, et dans lequel tu avais mis un lien de ce sujet-ci. J'ai donc répondu par erreur dans le sujet que tu amenais au lieu de répondre dans le sujet initial...
Je n'avais pas fourni de code, parce qu'il n'y avait pas de fichier fourni par le demandeur. Dans ce cas, si les explications indiquent la totalité des références à utiliser dans le code, je fournis éventuellement un code sans fichier, mais là il fallait élargir...
Sinon, reprenons l'exemple : si E1 est modifié et contient une valeur, on met la date en A1. On prépare le terrain en allant mettre par exemple dans une cellule éloignée, mettons EY1, à 150 colonnes d'écart la mention "A1". Et c'est là qu'on ira chercher l'adresse de la cellule cible, et après usage on supprime cette mention...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cc$, k%
If Target.Address = "$E$1" Then
k = Target.Column + 150
cc = .Cells(1, k)
If cc <> "" Then
Me.Range(cc) = Date
.Cells(1, k).Clear
End If
End If
End Sub
Ainsi, E1 modifiée, on met la date dans la cellule désignée par EY1, soit A1 et on supprime le contenu de EY1. Si E1 est à nouveau modifiée, il ne se passera plus rien !
Cordialement.