XL 2010 code pour passer d'une cellule à une autre

[Usine à gaz]

Bonsoir à toutes et à tous,

je bute sur un code (nul que je suis encore mais moins nul peut-être grâce à vous tous )

Je souhaite, en cliquant sur une cellule ou en la modifiant, que le code :
1 - si la cellule col D contient une valeur, atteindre une autre cellule (col I) et lui donne la valeur "aujourdhui()

J'ai fait le code qui suite mais ça ne marche pas et je ne trouve pas malgré mes recherches :

Sub directions()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
ActiveSheet.Unprotect Password:=""
If ActiveSheet.Cells(0, 0) = "Répondeur" Or ActiveSheet.Cells(0, 0) = "SMS" Then '"L7:L20000"
ActiveSheet.Cells(0, 5) = Date + 4
End If
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions

    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Auriez-vous la solution ?
Je joins un fichier test.

Avec mes remerciements que je ne sait plus comment formuler,
Amicalement,
Lionel

 

[djidji59430]

Bonjour,
d'un nul a l'autre ...
je ne sais pas ou t'es allé chercher tes " ActiveSheet.Cells(0, 0)", mais a mon avis, il faut mettre les coordonnées des cellules dont tu te sers .
ActiveSheet.Cells(8, 4) pour Répondeur et ActiveSheet.Cells(1, 5) pour la date

 

[Usine à gaz]

Bonsoir,
Merci de m'avoir répondu.
ActiveSheet.Cells(0, 0) = la cellule sur laquelle je clique et de laquelle part l'action.
Dans le classeur, il y a environ 20000 lignes c'est pourquoi le code doit démarrer sur la cellule cliquée (modifiée).
Amicalement,
Lionel,

 

[Dranreb]

Bonsoir.
Dans un module standard c'est ActiveCell,
dans une Sub Worksheet_Change ou _SelectionChange du module de la feuille c'est Target.
Mais Cells(0, 0) c'est toujours faux en principe.

 

[Usine à gaz]

Bonsoir Deanreb,

Merci pour vos indications grâces auxquelles j'ai pu faire fonctionner le code.
Voir fichier joint
Mais par quoi puis-je remplacer : ActiveCell.Offset(0, 0)
C'est la cellule cliquée modifiée à partir de laquelle le code doit s'exécuter.
Amicalement,
Lionel,

 

[Dranreb]

Offset(0, 0) se remplace par rien, puisque ça ne change rien à l'Expression Range à laquelle on l'applique.

 

[Usine à gaz]

Cela veut dire que la macro s'exécutera automatiquement à partir de la cellule sur laquelle je vais cliquer ou que je vais modifier ?

 

[Dranreb]

C'est une procédure évènement de l'objet Worksheet qu'il vous faut.

 

[Usine à gaz]

OUi, j'ai réfléchi et voici en pièce jointe ce que j'ai fait qui fonctionne.
Merci Dranreb,
Lionel,