XL 2016 Remplissage auto avec date fixe et utilisateur

[G-One]

Bonjour à tous,
Je souhaiterai automatiser le remplissage d'un tableau avec la date du jour fixe et le nom d'utilisateur.
Je l'avais fait en bricolant via des formules simples mais le résultat est moyen (voir fichier test ci-joint).

Après avoir parcouru la question sur le web, il semble que le VBA soit indispensable et là je suis moins que débutant en VBA mais je ne demande qu'à apprendre.

J'ai une colonne de taches, suivie de son statu (à choisir dans une liste déroulante).
Quand ce statu est choisi je souhaite que les colonnes suivantes se remplissent automatiquement avec :
- la date du jour fixée (ne bougeant plus après la saisie)
- l'intervenant (rempli automatiquement via l'utilisateur du compte Excel ou Windows) (ne bougeant plus après la saisie)

Suivi d'un remplissage automatique en couleur des taches en fonction de leur statu :
R=vert, NR=orange, NRR=rouge (voir test ci-joint)

Je suis sous Windows 7 Entreprise avec le pack Office 365.

Merci pour votre aide.

 

[Jacky67]

Bonjour,
Cela pourrait ressembler à ceci
Dans le module de la feuille en question.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [tableau1[Status]]) Is Nothing Then Exit Sub
If Target = "" Then Target.Offset(, 1) = "": Target.Offset(, 2) = "": Exit Sub
Target.Offset(, 1) = Date
Target.Offset(, 2) = Environ("username")
End Sub

 

[G-One]

Merci, mais je copie ça où précisément dans VBA, macro ?

Précision :
Pour le script de l'intervenant avec le nom d'utilisateur, il faudrait que ce soit comme la date : fixe à l'instant de la saisie.

 

[Jacky67]

Merci, mais je copie ça où précisément dans VBA, macro ?

Précision :
Pour le script de l'intervenant avec le nom d'utilisateur, il faudrait que ce soit comme la date : fixe à l'instant de la saisie.

Comme dit dans le message précédent==> Dans le module de la feuille en question
Clic droit sur l'onglet de la feuille ==> Visualiser le code

 

[G-One]

Merci Jacky67 et au forum Xdl ça fonctionne.
Je vois pour l'étendre à mes appli.