Bonjour,

J'ai créée un classeur afin de suivre des opérations de production selon trois états (trois colonnes distinctes à compléter avec une croix via validation de données et mise en forme conditionnelle).
Je souhaiterais qu'en fonction du contenu de certaines cellules plage ("E14:E73")) -présence d'une "x" ou non-, effectuer une copie dans un onglet log de cette opération (toujours 3 colonnes avant) et y adjoindre le "username de l'utilisateur"


J'ai commencé avec ce code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub WorkSheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("E14:E73")) Is Nothing Then
 
Application.ScreenUpdating = False
 
If Target.Value = "x" Then
 
If MsgBox("Etes-vous certain(e) de ne pas effectuer cette opération ?", vbYesNo, "Demande de confirmation") = vbYes Then
 
Target.Offset(0, -3).Copy
 
With Sheets("Log")
.Select
 
.Range("A65536").End(xlUp)(2).Select
 
ActiveSheet.Paste
 
.Range("A65536").End(xlUp)(3).Value = Environ("username")
 
End With
 
End If
 
Application.ScreenUpdating = True
 
End Sub
D'avance merci pour votre aide