Automatisation d'info liee a une entree

[Lighter]

Bonsoir,

Là, je crois que j'ai vraiment besoin de cracks. Voici le sujet qui me préoccupe. Pour cela, je vous joins un petit fichier pour me faciliter l'explication. J'aimerai que lorsque un utilisateur valide une donnée, par exemple en cell I3, Excel puisse m'afficher en J3 le nom de la personne (qui se trouve dans Options\General) et en K3 la date du jour.
Merci par avance à vous tou(te)s de m'éclairer sur mon utopie.
Bonne soirée

 

[job75]

Re : Automatisation d'info liee a une entree

Bonsoir Lighter,

Dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I3:I65536")) Is Nothing Or Target.Count > 1 Then Exit Sub
Target.Offset(, 1) = Environ("UserName")
Target.Offset(, 2) = Date
End Sub

Le nom utilisateur est celui de Windows, moins facile à modifier que celui d'Excel qu'on obtiendrait avec Application.UserName

Edit : peut-être préférerez-vous, quand on efface :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I3:I65536")) Is Nothing Or Target.Count > 1 Then Exit Sub
Target.Offset(, 1) = IIf(Target <> "", Environ("UserName"), "")
Target.Offset(, 2) = IIf(Target <> "", Date, "")
End Sub

A+

 

[Gorfael]

Re : Automatisation d'info liee a une entree

Salut Lighter et le forum
Clic-Droit sur le nom de l'onglet>>Menu contextuel>>Visualiser le code
et tu colles la macro suivante :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Intersect(Target, Columns(9)) Is Nothing Then Exit Sub
Range("J" & Target.Row) = Application.UserName
Range("K" & Target.Row) = Date
End Sub

Il faut penser à mettre la colonne K au format voulu.
Ça ne fonctionne que si une seule cellule est modifiée dans la colonne I.
A+

 

[gilbert_RGI]

Re : Automatisation d'info liee a une entree

Bonsoir

en espérant que ce soit la demnde 🙄

 

[Lighter]

Re : Automatisation d'info liee a une entree

Bonsoir job75, Bonsoir Gorfael

Merci vraiment pour tout, c'est super. Cela me paraissait à mille lieues d'une réelle possibilité mais me voilà vraiment épaté.
Encore tous mes remerciements pour m'avoir sorti de mon songe.
A+

 

[Lighter]

Re : Automatisation d'info liee a une entree

Bonsoir Gilbert,

Magnifique c'est absolument l'objectif , avec le fichier en retour c'est un vrai bonheur.
Mille mercis
Cordialement
A+

 

[Lighter]

Re : Automatisation d'info liee a une entree

Re bonsoir
Cela me paraissait limpide surtout avec l'exemple de Gilbert qui fonctionne parfaitement comme je le souhaite mais lorsque je veux l'appliquer à mon fichier réel, bien qu'ayant modifié la colonne en charge de recevoir l'info, cela ne marche pas.
A l'aide du fichier joint, Merci beaucoup de me dire où je suis mauvais
Cordialement

 

[Lighter]

Re : Automatisation d'info liee a une entree

Ah, je n'avais pas mis la fonction dans le bon onglet de la feuille
Ca marche, ....merci beaucoup et excellente soirée à tou(te)s