Modifier classeur "espion cellule modifiée" de J. Boisgontier

[poipoi]

Bonjour
je me sers du classeur "espioncellulemodifees" de J.Boisgontier: Gestion des événements
il est vraiment utile, par contre est-il possible de ne pas enregistrer sur la feuille"espion" quand on double-clic sur la feuille 1.
En effet toutes les actions étant enregistrées, la feuille "espion" se remplit très vite, donc si on pouvait déjà supprimer cela..
et pendant qu'on y est même les double-clics sur la feuille "espion" aussi..

avez-vous une idée? ou est-ce impossible en VBA?
un grand merci

 

[david84]

Re : Modifier classeur "espion cellule modifiée" de J. Boisgontier

Bonjour,
une possibilité parmi d'autres :

Dim NePasCopier As Boolean

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name = "Feuil1" Then NePasCopier = True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If NePasCopier = True Then NePasCopier = False: Exit Sub
    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

Ceci dit, s'il n'y a qu'une seule feuille, autant utiliser l'événement BeforeDoubleClick de la feuille concernée au lieu de celui du classeur.
Concernant le double clic dans la feuille espoin je n'ai pas compris ta demande puisque le code de JB exclue cette feuille.
A+

 

[poipoi]

Re : Modifier classeur "espion cellule modifiée" de J. Boisgontier

bonjour David84
impec ça marche nickel
et tu as raison, pour le 2è point, maintenant les double-clics ne font plus rien dans la feuille espion.. super
merci à toi
et merci..à vous pour le temps que vous donnez aux autres