Bonjour à tous,
La macro suivante est récupérée de l'un d'entre-vous (http://boisgontierjacques.free.fr/).
Elle bloque si j'insère une ligne dans mon onglet (Feuil1) à surveiller.
Que puis-faire d'après vous ?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Feuil1" Then
Application.EnableEvents = False
valsaisie = Target
Application.Undo
temp = Application.CountA(Sheets("data").Range("a:a")) + 1
Sheets("data").Cells(temp, 1) = Sh.Name
Sheets("data").Cells(temp, 2) = Target.Address
Sheets("data").Cells(temp, 3) = Target
Sheets("data").Cells(temp, 4) = valsaisie
Sheets("data").Cells(temp, 5) = Now
Sheets("data").Cells(temp, 6) = Environ("username")
Target = valsaisie
Application.EnableEvents = True
End If
End Sub
Un tout grand merci d'avance,
La macro suivante est récupérée de l'un d'entre-vous (http://boisgontierjacques.free.fr/).
Elle bloque si j'insère une ligne dans mon onglet (Feuil1) à surveiller.
Que puis-faire d'après vous ?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Feuil1" Then
Application.EnableEvents = False
valsaisie = Target
Application.Undo
temp = Application.CountA(Sheets("data").Range("a:a")) + 1
Sheets("data").Cells(temp, 1) = Sh.Name
Sheets("data").Cells(temp, 2) = Target.Address
Sheets("data").Cells(temp, 3) = Target
Sheets("data").Cells(temp, 4) = valsaisie
Sheets("data").Cells(temp, 5) = Now
Sheets("data").Cells(temp, 6) = Environ("username")
Target = valsaisie
Application.EnableEvents = True
End If
End Sub
Un tout grand merci d'avance,