Re : insertion commentaire automatique
Bonjour BOISGONTIER ,
un ptit souci avec le code vba ci desssous ,
ca marchait bien sauf que je veux le modifier je veut qu'il me récupére que les valeur de la page data et des cellule F9 AC560 et non pas de toute la page car j'ai qq menu déroulant et lorsque je les déroule j'ai erreur d'éxécusion 1004 la methode undo de l'objet application a échoué
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "Espion" Then
Application.EnableEvents = False
valsaisie = Target
Application.Undo
temp = Application.CountA(Sheets("espion").Range("a:a")) + 1
Sheets("espion").Cells(temp, 1) = Sh.Name
Sheets("espion").Cells(temp, 2) = Target.Address
Sheets("espion").Cells(temp, 3) = Now
Sheets("espion").Cells(temp, 4) = Target
Sheets("espion").Cells(temp, 5) = valsaisie
Sheets("espion").Cells(temp, 6) = Environ("username")
Target = valsaisie
Application.EnableEvents = True
End If
End Sub
a tite de 'indication voila le code que j'ai dans la page data pour faire le tri
Private Sub Worksheet_Change(ByVal Target As Range)
Dim aux$
If Not Intersect(Range("M3:O3"), Target) Is Nothing Then
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
With Range("J6:L2335")
If IsEmpty(Range("M3")) Then .AutoFilter Field:=1 Else _
.AutoFilter Field:=1, Criteria1:=Range("M3")
If IsEmpty(Range("N3")) Then .AutoFilter Field:=2 Else _
.AutoFilter Field:=2, Criteria1:=Range("N3")
If IsEmpty(Range("O3")) Then
.AutoFilter Field:=3
Else
aux = Format(Range("O3").Value2, "dd/mm/yyyy")
.AutoFilter Field:=3, Criteria1:=aux
End If
End With
Application.ScreenUpdating = True
Application.Goto Range("E1"), True
End If
End Sub
d'avance merci