XL 2010 Espionner des cellules

[team18fr]

Bonjour j'utilise un fichier que j'ai trouvé sur un forum pour savoir les modifications qui ont étés faites dans mon classeur,
cela marche très bien mais j'aurais voulu ne pas contrôler la cellule A1 sur toutes mes feuilles.

 

[Robert]

Bonjour Team, bonjour le forum

Le code modifié :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
if Target.Address = "$A$1" Then 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

 

[team18fr]

Merci ça fonctionne au top.

 

[team18fr]

Je reviens vers vous car il y a un autre problème si j'efface plusieurs cellule en même temps je n'ai pas l'ancienne valeur et si je tire sur une cellule pour la recopier (glisser la poignée de recopie ) sur les cellule suivantes j'ai un message d'erreur "la méthode 'Undo de l'objet'_Application à échoué.

 

[team18fr]

Personne n'a une idée ?

 

[D.D.]

Bonjour,

Pourquoi ne pas utiliser le partage de classeur ?

Il est possible ensuite de savoir ce qui s'est passé dans les cellules.

 

[team18fr]

Merci pour ta réponse et j'aurais bien voulu en savoir plus. Cela enregistre dans un autre classeur ?
Et tu fais comment car je ne trouve pas l'option.

 

[Victor21]

Bonjour à tous.

 

[D.D.]

Merci pour ta réponse et j'aurais bien voulu en savoir plus. Cela enregistre dans un autre classeur ?
Et tu fais comment car je ne trouve pas l'option.

Bonjour

Non, cela peut être listé dans une autre feuille du classeur courant, à la demande.
Dans 2016 la commande est maintenant cachée: il faut l'installer dans la barre d'outils.

 

[team18fr]

Bonjour et encore merci pour votre aide et je suis désolé de ne pas avoir répondu plutôt.
Je ne peux pas partager mes classeurs car il contiennent des tableaux excel (message d'erreur en PJ) et j'utilise des macros.

 

[D.D.]

Bonjour,

Voila aussi pourquoi je n'utilise pas les tableaux Excel....

 

[team18fr]

Bon je dois retourner avec la macro du début et si je veux surveiller que les cellules de D5 à OP30 sur toutes les feuilles, car pour le problème
du message d'erreur "la méthode 'Undo de l'objet'_Application à échoué."
J'ai le problème que sur mes fichiers.