Retour impossible dans Excel

Bonjour,
J'ai créer un code dans l'événement selection change.
Ce code fonctionne très bien par contre je n'ai plus la possibilité de revenir en arrière avec la flèche. Celle-ci reste grisonné.
Je me suis renseigné sur ce forum mais je trouve pas la solution :(.
A vrai dire , je ne sais pas m'y prendre pour modifier mon code et ainsi pouvoir de nouveau revenir en arrière avec la flèche.
Vous trouverez ci dessous mon code

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Worksheets("semaine").Range("A2:AE66")) Is Nothing Then Worksheets("TMJ").PivotTables("TCD_Nbr_PPDC").PivotCache.Refresh End If End Sub

---

A ma connaissance (ce n'est pas une certitude mais une constatation), on ne peut pas annuler par commande le résultat d'une macro.

Salut.

Je confirme l'impression de Menhir. Excel ne mémorise que ce qui est réalisé dans Excel, et il est logique que la liste des actions à annuler soit remise à zéro lors de l'exécution d'une macro puisque l'environnement d'Excel peut avoir été modifié par la macro. Excel ne pourra donc pas annuler les effets de la macro mais ne pourra plus non plus annuler ce qui avait été fait avant la macro.

Cette mise en grisé des actions à annuler est donc tout à fait logique lors de l'exécution d'une macro, et il est important de bien préciser cela aux utilisateurs de tes macros.

Bonjour,

Bien qu'il soit impossible de revenir en arrière, tu peux toujours garder en mémoire la valeur précédente (ici j'utilise une autre feuille que je nomme retour) et y revenir par macro si besoin.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Worksheets("semaine").Range("A2:AE66")) Is Nothing Then Worksheets("semaine").Range("A2:AE66").copy Worksheets("retour").Range("A2:AE66") Worksheets("TMJ").PivotTables("TCD_Nbr_PPDC").PivotCache.Refresh End If End Sub   sub retour Worksheets("retour").Range("A2:AE66").copy Worksheets("semaine").Range("A2:AE66") end sub

---

zut ..:ptdr:
Donc si je comprend bien, pour retrouver la flèche "retour en arrière", il faut que je modifie une cellule qui ne se trouve pas dans la plage comprise dans le target ?

D'une façon générale, l'altération de la structure du classeur remet la liste des annulations possibles à zéro.

Pour ce qui est des modifications de valeurs, c'est un peu plus complexe et cela dépend de ce qu'il y a dans la pile des annulations. Par précaution, il me semble judicieux de considérer que l'exécution d'une macro videra la pile et, de toutes façons, Excel ne pourra pas détricoter les effets de ta macro.

halaster08, Il est vrai que cela peut etre une solution mais pour ma part, elle ne me convient pas.:(.
Ce n'est pas grave, je ferais avec .
Merci de m'avoir éclairer ..:D

encore une question,
Si je voulais contourner le problème .
Je m'explique, y a t il un autre moyen pour que mon tableau croisé dynamique Worksheets("TMJ").PivotTables("TCD_Nbr_PPDC") se réactualise dés que je change une cellule de la plage Worksheets("semaine").Range("A2:AE66").

Dans le module de la feuille "semaine", tu mets le code suivant

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a2:ae66")) Is Nothing Then _ Worksheets("TMJ").PivotTables("TCD_Nbr_PPDC").RefreshTable End Sub

---

Si ton tcd n'est pas utilisé par des fonctions, tu gagnerais à ne l'actualiser que lorsque tu actives sa feuille

Code:

---

1 2 3

Private Sub Worksheet_Activate() ActiveSheet.PivotTables(1).RefreshTable End Sub

---

Pierre,
je me suis mal exprimé et en plus je me rend que je me complique la tache.
Voilà ce que j'essaie de faire.

J'ai un grand tableau que l'on nommera A qui va de la cellule A2:AE66 . ce tableau A se trouve dans la feuille " semaine".
Sur une autre feuille ("TMJ"), j'ai un deuxième tableau que l'on nommera B qui récupère les données du tableau A.
Et c'est à partir de ce tableau B que j'ai fais mon TCD ("TCD_Nbr_PPDC").

La grande question est comment réactualiser mon tableau TCD lorsque les données du tableau B change en fonction du changnement des données du tableau A :roll:

Sans usine à gaz instable et pénalisante en termes de performances, il n'est pas possible de connaître les dépendants lointains d'une cellule (ceux qui se trouvent sur une autre feuille que la cellule concernée). Une solution un peu barbare serait de déterminer quelle plage de Semaine est susceptible de mofidier une cellule de TMJ et d'appliquer mon premier code sur cette plage de Semaine.

Je t'ai donné un second code qui actualise le tcd à l'activation de la feuille qui le contient. Si le TCD n'est pas utilisé par des formules, cette solution est tout à fait satisfaisante.

Pierre, le soucis de ton code

Code:

---

1 2 3

Private Sub Worksheet_Activate() ActiveSheet.PivotTables(1).RefreshTable End Sub

---

c'est que le tableau où est issu le TCD est un tableau en perpétuel changement.
Au cours d'une journée, le tableau peut être modifiè x fois.
S'il n y pas de solution , je vais avertir mes collègues comme quoi il y n ' aura pas de retour en arrière possible.

Au fait, j'ai remarque que cette impossiblite de retour en arrière reste valable mais pour les autres fichiers Excel.
Il N 'a pas de moyen pour remettre la flèche de retour en arrière pour mes autres fichiers Excel

Sauf sur un classeur partagé, je ne vois pas soucis avec mon code, pour autant, je le rappelle, que ton tcd n'alimente pas des formules. Est-ce le cas? Si ce n'est pas le cas et que ton classeur n'est pas partagé, le tcd sera mis à jour chaque fois qu'on sélectionnera la feuille qui le contient.

Sinon, tu utilises le premier code que je t'ai donné sur l'évènement Change, que tu places sur ta feuille semaine et le tour est joué. Je ne vois vraiment pas où est le problème, en fait.

Pour le reste, la liste des actions à annuler est commune aux classeurs ouverts dans l'instance d'Excel.

Pierre, je suis un peu perdu
je viens de faire un test
j'ai inséré dans la feuille "semaine" , le code suivant

Code:

---

1 2 3

Private Sub Workbook_Activate() Worksheets("TMJ").PivotTables("TCD_Nbr_PPDC").PivotCache.Refresh End Sub

---

mon TCD ne se réactualise pas ...est ce normale en sachant que le tableau ou est issu ce tcd lui est réactualisé .

C'est worksheet_activate et pas workbook_activate :aie:

Ce code doit être mis dans le module de la feuille qui contient le TCD.

Ok pierre , je commence à comprendre.
Effectivement cela fonctionne :P.
Mais si je voudrais que que mon TCD se réactualise sans que je change de feuille.
Je m'explique , je reste sur la feuille "semaine" et mon TCD qui se trouve dans la feuille ("TMJ") se réactualise.
Est ce faisable ?

Alors, tu dois soit définir la plage de Semaine qui influence le TCD par ricochet, soit décider que toute cellule modifiée de Semaine modifie potentiellement le TCD (mais ce choix n'est pas "économique").

Dans le premier cas:

Code:

---

1 2 3

worksheet_change(Target as range) if not intersect(target, range("...")) is nothing then worksheets("TMJ").pivottables("...").pivotcache.refresh end sub

---

Dans le second, tu laisses tomber le test

Code:

---

1 2 3

worksheet_change(Target as range) worksheets("TMJ").pivottables("...").pivotcache.refresh end sub

---

Ce code est cette fois à placer dans le module de la feuille Semaine

Ce que je ne comprends pas, c'est pourquoi ce n'est pas suffisant que ce soit à l'activation de TMJ :koi:

Bonjour Pierre
ton code

Code:

---

1 2 3

worksheet_change(Target as range) worksheets("TMJ").pivottables("...").pivotcache.refresh end sub

---

est le même que le mien

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Worksheets("semaine").Range("A2:AE66")) Is Nothing Then Worksheets("TMJ").PivotTables("TCD_Nbr_PPDC").PivotCache.Refresh End If End Sub

---

et on retombe dans la problématique de l'absence de retour en arrière :D qui était ma question ...:roll:
En résumé, aprés avoir lancé la macro, quel action dois je faire pour mettre la flèche de retour en arrière

Pierre .
Sur cette absence de retour en arrière, tu as ecrit

Citation:

---

Pour le reste, la liste des actions à annuler est commune aux classeurs ouverts dans l'instance d'Excel.

---

qu'est ce que je dois comprendre ?