Retour impossible dans Excel

**facteur** · 15/05/2018, 13h06

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Menhir** · 15/05/2018, 13h30

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.

**Pierre Fauconnier** · 15/05/2018, 13h35

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.

**facteur** · 15/05/2018, 14h01

zut ..

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 ?

**halaster08** · 15/05/2018, 13h53

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Pierre Fauconnier** · 15/05/2018, 14h11

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.

**facteur** · 15/05/2018, 14h17

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 ..

**facteur** · 15/05/2018, 14h28

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").

**Pierre Fauconnier** · 15/05/2018, 14h36

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**facteur** · 15/05/2018, 14h57

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

**Pierre Fauconnier** · 15/05/2018, 15h36

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.

**facteur** · 15/05/2018, 15h56

Pierre, le soucis de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Pierre Fauconnier** · 15/05/2018, 16h02

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.

**facteur** · 15/05/2018, 16h20

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é .

**Pierre Fauconnier** · 15/05/2018, 16h26

C'est worksheet_activate et pas workbook_activate

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

**facteur** · 15/05/2018, 16h31

Ok pierre , je commence à comprendre.
Effectivement cela fonctionne

.
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 ?

**Pierre Fauconnier** · 15/05/2018, 16h40

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**facteur** · 16/05/2018, 13h52

Bonjour Pierre
ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

est le même que le mien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

qui était ma question ...

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

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 ?

Retour impossible dans Excel [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager