Automatisation d'info liee a une entree

job75

XLDnaute Barbatruc

• 8 Novembre 2009

• #2

Re : Automatisation d'info liee a une entree

Bonsoir Lighter,

Dans le code de la feuille :

Code:

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 :

Code:

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+

 

Dernière édition: 8 Novembre 2009

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 8 Novembre 2009

• #3

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 :

Code:

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+

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 8 Novembre 2009

• #4

Re : Automatisation d'info liee a une entree

Bonsoir

en espérant que ce soit la demnde 🙄

 

Pièces jointes

• utilisateur1.xls

  31.5 KB · Affichages: 41

Vote positif 0 Vote négatif

L

Lighter

Guest

• 8 Novembre 2009

• #5

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+

 

Vote positif 0 Vote négatif

L

Lighter

Guest

• 8 Novembre 2009

• #6

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+

 

Vote positif 0 Vote négatif

L

Lighter

Guest

• 8 Novembre 2009

• #7

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

 

Pièces jointes

• 1.xls

  26.5 KB · Affichages: 100
• 1.xls

  26.5 KB · Affichages: 101
• 1.xls

  26.5 KB · Affichages: 103

Vote positif 0 Vote négatif

L

Lighter

Guest

• 8 Novembre 2009

• #8

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

 

Vote positif 0 Vote négatif