Undo et macro VBA

Version imprimable

27/11/2019, 08h49
Patoche90

Undo et macro VBA

Bonjour,

J'ai cherché à savoir si il était possible d'avoir la fonctionnalité "Undo" après une éxécution d'un macro ?
Pour le moment je n'ai rien trouver de probant...

Plus précisement :
- Est-il possible de de sauvegardé la pile du bouton "Undo"
- d'éxécuter la macro
- de recharger la pile pour rendre opérant le bouton "Undo"

Merci d'avance.
27/11/2019, 08h59
anasecu

Bonjour,

Citation:

Envoyé par Patoche90

Pour le moment je n'ai rien trouver de probant...

Bien entendu tu ne peux rien trouver car si tu regardes les spéficités de la fonction dans Aide undo tu aurais eu la réponse
Cette méthode n'annule que la dernière opération commandée par l'utilisateur avant l'exécution de la macro et doit figurer en première ligne dans la macro. Elle ne peut être utilisée pour annuler des commandes Visual Basic.

Bonjour,

???

je pensais plus a quelque chose comme cela :

Code:

1
2
3
For i As Integer = 1 To xlApp.CommandBars("Standard").Controls("&Undo").Control.ListCount
                UnDoList(i) = xlApp.CommandBars("Standard").Controls("&Undo").Control.List(i)
            Next

28/11/2019, 08h46
anasecu

Bonjour,

Citation:

Envoyé par Patoche90

je pensais plus a quelque chose comme cela

Tu peux imaginer ce que tu veux, comme par exemple décoller avec ta voiture bloquée dans un embouteillage mais tant que cela n'est pas opérationnel cela reste du rêve.

Undo ne permet que la suppression de la dernière saisie non admise de l'utilisateur et si tu veux rembobiner le déroulement de ta macro il faut le programmer.
28/11/2019, 09h09
Igloobel

Citation:

Envoyé par anasecu

... Undo ne permet que la suppression de la dernière saisie non admise de l'utilisateur et si tu veux rembobiner le déroulement de ta macro il faut le programmer.

Je confirme j'ai rien trouvé de mieux que de faire une macro qui fait à l'envers le travail que fait la première macro. Même le [CTRL] + [Z] (le célèbre Control Zut) ne marche pas !
28/11/2019, 09h11
Patoche90

Citation:

Envoyé par anasecu

Bonjour,

Tu peux imaginer ce que tu veux, comme par exemple décoller avec ta voiture bloquée dans un embouteillage mais tant que cela n'est pas opérationnel cela reste du rêve.

Undo ne permet que la suppression de la dernière saisie non admise de l'utilisateur et si tu veux rembobiner le déroulement de ta macro il faut le programmer.

Des voitures qui décollent à la verticale cela existe.... c'est opérationnel mais la législation ne le permet pas....
Je n'ai jamais dit que je ne voulais pas programmer....
et enfin mon besoin n'est pas d'utiliser "UNDO" de VBA ( j'ai lu l'aide en ligne avant de poster .... ) mais d'en avoir sa fonctionnalité c'est ce que j'ai écrit dans mon premier post.....

Cordialement.
28/11/2019, 11h03
révèr

Juste pour savoir si j'ai bien compris le problème. Dans l'exécution ça ressemblerait à :

Exécuter une macro entre le moment où tu cliques sur "Undo" et le moment où "Undo" s'effectue ?

Quel est le but de ta macro ?
28/11/2019, 12h11
Patoche90
Bonjour,

L'utilisateur travaille normalement dans son fichier, les boutons (Undo et Redo) sont disponibles.
au moment de faire "Entrée", j'ai une macro qui intervient dans sub worksheet_Change -> met un tag dans une colonne cachée
et à partir de ce moment les boutons ne sont plus disponibles (j'imagine qur'ils ont été resetté du à l'action de la macro)
Par contre l'utilisateur souhaiterais revenir en arrière a cause d'une valeur mal renseignée par exemple. (le tag mis dans la colonne cachée peut rester, ce n'est pas grave)

Donc l'idée est de sauvegarder la liste
Code:

1 2 3 For I = 1 To Application.CommandBars("Standard").Controls("&Undo").Control.ListCount UnDoList(I) = Application.CommandBars("Standard").Controls("&Undo").Control.List(I) Next
pour ensuite la recharger au moment de sortir de la macro

Mais je ne sais pas ce qui est faisable exactement. Et je ne souhaite pas faire une sauvegarde de l'onglet avant la macro, car je souhaite conserver les modifications de l'utilisateurs avant la macro et non pas un état figé...

J'espére que j'ai bien exprimé mon besoin...
28/11/2019, 12h55
révèr

Donc...

1) "Entrée"
2) Exécution de la macro qui cache les boutons Undo et Redo
3) L'utilisateur veut cliquer sur "Undo" pour modifier des valeurs mais le bouton n'est plus visible

Un CommandBar.Visible = True ne pourrait-il pas résoudre ton problème ?

Ou bien je n'ai toujours pas compris ce que tu souhaites faire...

stocker la pile "UNDO"
réaliser une macro
Recharger la pile "UNDO"

je vais analyser ça pour savoir si cela correspond :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
'=========================================================================
' Module    : clsUndoObject
' Company   : JKP Application Development Services (c) 2005
' Author    : Jan Karel Pieterse
' Created   : 31-8-2005
' Purpose   : Class module, Contains each object processed and
'             handles the exection of the command and the Undo
' Copyright : This code is free for you to use for applications
'             for personal use.
'             It is not allowed to use this for a commercial program,
'             unless you have my consent.
'             If you want to include this code in freeware, make sure you add :
 
'-------------------------------------------------------------------------
' This code originates from    : Jan Karel Pieterse
' Company                      : JKP Application Development Services (c) 2005
'                                jkp-ads.com
'-------------------------------------------------------------------------
'=========================================================================
Option Explicit
 
Private mUndoObject As Object
Private msProperty As String
Private mvNewValue As Variant
Private mvOldValue As Variant
 
Public Property Let PropertyToChange(sProperty As String)
    msProperty = sProperty
End Property
 
Public Property Get PropertyToChange() As String
    PropertyToChange = msProperty
End Property
 
Public Property Set ObjectToChange(oObj As Object)
    Set mUndoObject = oObj
End Property
 
Public Property Get ObjectToChange() As Object
    Set ObjectToChange = mUndoObject
End Property
 
Public Property Let NewValue(vValue As Variant)
    mvNewValue = vValue
End Property
 
Public Property Get NewValue() As Variant
    NewValue = mvNewValue
End Property
 
Public Property Let OldValue(vValue As Variant)
    mvOldValue = vValue
End Property
 
Public Property Get OldValue() As Variant
    OldValue = mvOldValue
End Property
 
Public Function ExecuteCommand() As Boolean
    ExecuteCommand = False
    If mUndoObject Is Nothing Then
    End If
    If mvNewValue = "" Then
    End If
    If msProperty = "" Then
    End If
    If GetOldValue Then
        SetNewValue
        ExecuteCommand = True
    Else
        'Failed to retrieve old value!
    End If
End Function
 
Private Function GetOldValue() As Boolean
    Dim oTemp As Object
    Dim lCount As Long
    Dim lProps As Long
    Dim vProps As Variant
    vProps = Split(PropertyToChange, ".")
    lProps = UBound(vProps)
    Set oTemp = ObjectToChange
    For lCount = 0 To lProps - 1
        Set oTemp = CallByName(oTemp, vProps(lCount), VbGet)
    Next
    If TypeOf oTemp Is Range Then
        If LCase(vProps(lProps)) = "value" Then
            vProps(lProps) = "Formula"
        End If
    End If
    OldValue = CallByName(oTemp, vProps(lProps), VbGet)
    If Err.Number = 0 Then
        GetOldValue = True
    Else
        GetOldValue = False
    End If
End Function
 
Private Function SetNewValue() As Boolean
    Dim oTemp As Object
    Dim lCount As Long
    Dim lProps As Long
    Dim vProps As Variant
    Dim vResult As Variant
    Err.Clear
    Set oTemp = ObjectToChange
    vProps = Split(PropertyToChange, ".")
    lProps = UBound(vProps)
    For lCount = 0 To lProps - 1
        Set oTemp = CallByName(oTemp, vProps(lCount), VbGet)
    Next
    If TypeOf oTemp Is Range Then
        If LCase(vProps(lProps)) = "value" Then
            vProps(lProps) = "Formula"
        End If
    End If
    vResult = CallByName(oTemp, vProps(lProps), VbLet, NewValue)
    If Err.Number = 0 Then
        SetNewValue = True
    Else
        SetNewValue = False
    End If
End Function
 
Public Function UndoChange()
    Dim oTemp As Object
    Dim lCount As Long
    Dim lProps As Long
    Dim vProps As Variant
    Dim vResult As Variant
    Set oTemp = ObjectToChange
    vProps = Split(PropertyToChange, ".")
    lProps = UBound(vProps)
    For lCount = 0 To lProps - 1
        Set oTemp = CallByName(oTemp, vProps(lCount), VbGet)
    Next
    If TypeOf oTemp Is Range Then
        If LCase(vProps(lProps)) = "value" Then
            vProps(lProps) = "Formula"
        End If
    End If
    vResult = CallByName(oTemp, vProps(lProps), VbLet, OldValue)
    If vResult <> "" Then
        UndoChange = True
    Else
        UndoChange = False
    End If
End Function
 
'===================================
' Module    : clsExecAndUndo
' Company   : JKP Application Development Services (c) 2005
' Author    : Jan Karel Pieterse
' Created   : 31-8-2005
' Purpose   : Class module, stores the objects processed and
'             handles the exection of the commands
' Copyright : This code is free for you to use for applications
'             for personal use.
'             It is not allowed to use this for a commercial program,
'             unless you have my consent.
'             If you want to include this code in freeware, make sure you add :
 
'-------------------------------------------------------------------------
' This code originates from    : Jan Karel Pieterse
' Company                      : JKP Application Development Services (c) 2005
'                                jkp-ads.com
'-------------------------------------------------------------------------
'=====================================
Option Explicit
 
Private mcolUndoObjects As Collection
Private mUndoObject As clsUndoObject
 
Public Function AddAndProcessObject(oObj As Object, sProperty As String, vValue As Variant) As Boolean
    Set mUndoObject = New clsUndoObject
    With mUndoObject
        Set .ObjectToChange = oObj
        .NewValue = vValue
        .PropertyToChange = sProperty
        mcolUndoObjects.Add mUndoObject
        If .ExecuteCommand = True Then
            AddAndProcessObject = True
        Else
            AddAndProcessObject = False
        End If
    End With
End Function
 
Private Sub Class_Initialize()
    Set mcolUndoObjects = New Collection
End Sub
 
Private Sub Class_Terminate()
    ResetUndo
End Sub
 
Public Sub ResetUndo()
    While mcolUndoObjects.Count > 0
        mcolUndoObjects.Remove (1)
    Wend
    Set mUndoObject = Nothing
End Sub
 
Public Sub UndoAll()
    Dim lCount As Long
    '    On Error Resume Next
    For lCount = mcolUndoObjects.Count To 1 Step -1
        Set mUndoObject = mcolUndoObjects(lCount)
        mUndoObject.UndoChange
        Set mUndoObject = Nothing
    Next
    ResetUndo
End Sub
 
Public Sub UndoLast()
    Dim lCount As Long
    '    On Error Resume Next
    If mcolUndoObjects.Count >= 1 Then
        Set mUndoObject = mcolUndoObjects(mcolUndoObjects.Count)
        mUndoObject.UndoChange
        mcolUndoObjects.Remove mcolUndoObjects.Count
        Set mUndoObject = Nothing
    Else
        ResetUndo
    End If
End Sub
 
Public Function UndoCount() As Long
    UndoCount = mcolUndoObjects.Count
End Function
 
' *****************************************
' ** Implementation
' *****************************************
 
Option Explicit
 
Dim mUndoClass As clsExecAndUndo
 
Sub MakeAChange()
    Dim i As Integer
    If mUndoClass Is Nothing Then
        Set mUndoClass = New clsExecAndUndo
    Else
        'Previous undoset, must be removed
        Set mUndoClass = Nothing
        Set mUndoClass = New clsExecAndUndo
    End If
    For i = 1 To 10
        mUndoClass.AddAndProcessObject ActiveSheet.Cells(i, 1), _
                "Interior.Colorindex", 15
    Next
    Application.OnUndo "Restore colours A1:A10", "UndoChange"
End Sub
 
Sub UndoChange()
    If mUndoClass Is Nothing Then Exit Sub
    mUndoClass.UndoAll
    Set mUndoClass = Nothing
End Sub
 
Sub UndoStepwise()
    If mUndoClass Is Nothing Then Exit Sub
    mUndoClass.UndoLast
    If mUndoClass.UndoCount = 0 Then
        MsgBox "Last action undone"
        Set mUndoClass = Nothing
    End If
End Sub

30/11/2019, 19h44
boisgontierjacques

Bonsoir,

Pour annuler une TRANSACTION en cours, il faut sauvegarder toutes les cellules AVANT MODIFICATION et les restituer en cas d'annulation de la transaction.

Boisgontier
01/12/2019, 07h22
Transitoire

Bonjour à tous, Une variante au système de #BoisgontierJacques. En ce qui me concerne, je ne travaille pratiquement jamais sur ma base de données directement. J'en fait une extraction sur une autre feuille et je travaille sur cette feuille. Je ne transfère donc les données nouvelles que lorsqu'elles sont dument vérifiées. Le bouton "Undo" referait donc une extraction avec une reprise des données du départ.:)
Sinon, si vous ne voulez pas reprendre du début, je pense que la proposition d' #Igloobel est ce que vous avez de mieux. Avec une remontée en arrière pas à pas. Mais sans doute très aléatoire et très compliqué suivant le type d'interventions que vous avez effectué. :weird:
Cordialement 8-)
01/12/2019, 07h48
Patoche90

Bonjour,

Mon problème n'est pas la macro en soit... mais le fait qu’exécuter un macro fait un "reset" de la "pile naturelle" UNDO d'excel et donc un utilisateur n'a plus la possibilité de revenir en arrière si il s'est trompé...
01/12/2019, 08h49
anasecu

Bonjour à tous,

Citation:

Envoyé par Transitoire

Avec une remontée en arrière pas à pas. Mais sans doute très aléatoire et très compliqué

Cela conduit pratiquement à essayer de remettre l'eau que l'on a laissé couler dans le tuyau sans baisser la pression du réseau : bon courage.

Citation:

Envoyé par Patoche90

exécuter un macro fait un "reset" de la "pile naturelle" UNDO d'excel et donc un utilisateur n'a plus la possibilité de revenir en arrière si il s'est trompé...

Si Excel a fait un reset c'est bien qu'il a considéré que le retour en arrière était trop aléatoire.
Non seulement il te faut annuler l'action de la macro mais en plus donner la possibilité de revenir en arrière comme si après un crash tu laissais la possibilité au pilote de redécoller : va falloir du monde pour remettre tous les rivets en place.

On ne se baigne jamais deux fois dans le même fleuve : Héraclite
01/12/2019, 08h51
unparia

Bonjour

Il est bien et sage que la "pile des undoes" de Excel soit vidée dès lors qu'est exécutée une instruction VBA.
Les raisons :
VBA et Excel sont exécutés dans deux fils distincts.
Excel ignore ce que fait VBA.
Si Excel ne remettait pas à vide la pile dont il s'agit lors d'exécution d'instructions VBA, il courrait le risque de situations "fatales".
Imaginons par exemple (et entre autres) ce qui résulterait (sans effacement de la "pile des undoes") de l'enchaînement suivant :
1) l'utilisateur modifie le contenu de la cellule A1 de la feuille LaFeuille
2) une instruction VBA détruit la feuille LaFeuille
3) l'utilisateur clique sur l'icône Undo de Excel !
01/12/2019, 09h39
Patrice740
Bonjour le fil,

Citation:

Envoyé par unparia

Si Excel ne remettait pas à vide la pile dont il s'agit lors d'exécution d'instructions VBA, il courrait le risque de situations "fatales".
Imaginons par exemple (et entre autres) ce qui résulterait (sans effacement de la "pile des undoes") de l'enchaînement suivant :
1) l'utilisateur modifie le contenu de la cellule A1 de la feuille LaFeuille
2) une instruction VBA détruit la feuille LaFeuille
3) l'utilisateur clique sur l'icône Undo de Excel !

Dans cet exemple, lorsque ces opérations sont exécutées manuellement, Excel [Édit cf message d'Unparia] ~~vide la pile des Undos~~ supprime les actions concernant cette feuille dans la pile des Undos, il n'y a pas de raison pour que cela ne se produise pas lors de l'exécution de la macro.

Je ne sais pas quels sont les critères exacts qui provoquent le vidage de la pile, mais ce n'est pas le fait d'exécuter une macro qui vide la pile.
Par exemple avec la simple macro suivante, la pile n'est pas vidée et les undos continuent à fonctionner après son exécution :
Code:

1 2 3 Sub Test() Worksheets.Add before:=Worksheets("Feuil1") End Sub
Mais, même si ce n'est pas l'exécution du VBA qui vide la pile, ça conforte le fait qu'Excel fait bien son boulot et donc que :

Citation:

Si Excel ne remettait pas à vide la pile [...], il courrait le risque de situations "fatales".
01/12/2019, 09h51
unparia

Bonjour Patrice

Citation:

Dans cet exemple, lorsque ces opérations sont exécutées manuellement, Excel vide la pile des Undos

N'est pas exact. Excel ne vide pas la pile, mais ne fait qu'en supprimer ****** les actions qui concernaient cette feuille. Les autres actions de la pile restent dans la pile.
Je n'avais donné qu'un exemple, celui d'une suppression de feuille, pour bien "imager" le type de risque. D'autres sont bien plus complexes et générateurs de situations conflictuelles
Amitiés

EDIT : ****** je ne saurais à ce propos affirmer qu'il les "supprime" réellement de la pile; car il pourrait tout aussi bien les avoir gardées mais ignorées.
01/12/2019, 14h16
unparia

Je viens de faire le test suivant (à l'intention de l'auteur du -1) pour illustrer totalement ma réponse antérieure :
1) Tout en manuel
- sur Feuil1 : "a" en A1, "b" en A2
- sur feuil2 : "c" en A1
- destruction de Feuil2
- la pile des undoes n'est pas vide et un premier undo efface le "b" en A2 et un second undo efface le "a"en A1
2)
a) en manuel :
- sur Feuil1 : "a" en A1, "b" en A2
- sur feuil2 : "c" en A1
b) par instruction VBA : destruction de la feuille Feuil2
- la pile des undoes est dans ce cas totalement vide, contrairement au cas 1)

EDIT : Ah ... Je vois que Patrice a d'ailleurs édité et corrigé comme il se devait son message antérieur.

A noter qu'une simple instruction VBA Msgbox "..." viderait également complètement la pile des Undoes ;)
01/12/2019, 20h38
Patrice740

Bizarre bizarre !
Citation:

Envoyé par unparia

2)
a) en manuel :
- sur Feuil1 : "a" en A1, "b" en A2
- sur feuil2 : "c" en A1
b) par instruction VBA : destruction de la feuille Feuil2
- la pile des undoes est dans ce cas totalement vide, contrairement au cas 1)

Je viens de faire ce test avec Excel 2003, 2007, 2013 et 2016 (3 PC différents) : chez moi la pile n'est pas totalement vidée : il se passe exactement la même chose que dans le cas 1), seul le Undo concernant la saisie de c sur la feuil2 disparaît, il reste un 1er undo qui efface le b sur la feuille 1 et un second qui efface le a

Le code utilisé pour supprimer la Feuil2 :
Code:

1 2 3 4 5 Sub test() Application.DisplayAlerts = False Worksheets("Feuil2").Delete Application.DisplayAlerts = True End Sub
Lancé directement depuis le VBE (F5)

EDIT : et bien sûr, chez moi, un simple MsgBox n'efface rien dans la pile des Undoes.
J'ai toujours constaté ce fonctionnement (depuis xl 2003), c'est pour cela que j'ai réagi à ce post.
01/12/2019, 20h55
unparia
je ne sais alors que te dire, car ma version est 2007 et que les réactions sont très exactement celles que j'ai exposées ;)

Edit : voilà (entre autres messages sur la toile) qui montre que ce constat est fait par d'autres :
https://social.msdn.microsoft.com/Fo...forum=exceldev

edit 2 :
ceci explique probablement cela ....

Citation:

Lancé directement depuis le VBE (F5)

refais-le, mais de manière impliquant vba plus sûrement :
un bouton de commande -->>
Code:

1 2 3 Private Sub CommandButton1_Click() MsgBox "eee" End Sub
01/12/2019, 23h41
Patrice740
Citation:

Envoyé par unparia

refais-le, mais de manière impliquant vba plus sûrement :
un bouton de commande

Même constat avec un bouton ce commande (de formulaire), j'ai poussé un peu le bouchon :
Code:

1 2 3 4 5 6 Sub test() Application.DisplayAlerts = False Worksheets("Feuil2").Delete Application.DisplayAlerts = True Worksheets("Feuil3").Range("A1").Value = "x" End Sub
La pile n'est toujours pas vidée, il n'y est pas ajouté d'undo pour le x écrit par le VBA, mais il reste toujours les 2 Undoes du b et du a : surprenant !
02/12/2019, 07h16
unparia

Ce que tu rapportes là est intéressant :ccool: (notamment la différence de comportement selon que le bouton est un contrôle de formulaire ou un contrôle activex).

Il semble donc que Excel réagit différemment, en matière de conservation ou de destruction de sa pile des Undoes, selon que les instructions sont purement les siennes (qu'il peut donc les contrôler totalement) ou qu'elles viennent de l' "extérieur" (et peuvent donc lui échapper en tout ou partie).

Voilà donc une discussion qui à le mérite de contribuer à mieux deviner (je dis bien deviner) ce qui se passe en arrière plan.
02/12/2019, 08h02
Transitoire

Bien le bonjour à vous.:coucou: Je lis avec beaucoup d'intérêt vos interventions. Je ne puis y participer par incompétence. Mais suivant ce que vous dites, je me demande si il n'y a pas une chose à prendre en compte.
En effet, de temps à autres Excel effectue des enregistrements automatiques. Ce qui lui permet en cas de coupure intempestive de retrouver la dernière mouture enregistrée. N'est-il pas possible que certaines de vos différences de comportement de la pile d'excel soit en fait du à un enregistrement intervenu entre temps.:calim2:
J'espère avoir été clair dans mes explications?
Cordialement 8-)
02/12/2019, 08h14
unparia

Bonjour Transitoire
Tout enregistrement (automatique ou non) vide en effet et bien évidemment la pile des undoes; mais les constats faits et rapportés plus haut l'ont été hors tout enregistrement possible.
Amitiés
02/12/2019, 08h22
Transitoire

Re. Comment sait-on qu'un enregistrement automatique s'est effectué? Hors un plantage qui nous permet de comprendre qu'il y a eu un enregistrement, puisqu'Excel nous propose le dernier enregistrement.
Cordialement 8-)
02/12/2019, 08h36
unparia

La propriété Saved d'un classeur retourne True ou False selon qu'il a été enregistré et non modifié depuis ou que des modifications sont intervenues depuis le dernier enregistrement.
02/12/2019, 10h01
Patoche90
Bonjour,

suite à vos remarques j'ai approfondi mes recherches dans ce sens, et il semblerait que ce soit :
Code:

1 2 3 Application.EnableEvents = False ... Application.enableEvents = True
qui soit a l'origine du reset. Je vais donc modifier le code pour m'en passer
Solution 1 / faire un Array de type T_Modif(T_DATA.DataBodyRange.ListRows.Count) -> Soucis en cas de plantage je perd le tableau et le code plante car il ne connait plus le tableau
Solution 2 / mettre dans une autre feuille cachée une colonne qui contient l'information.

Merci et je vous tiens au courant.
05/12/2019, 09h39
Patoche90

Bonjour,

Et merci de votre aide.
En effet le "Undo" ne se reset pas lors d'une macro, mais lorsque on fait une action sur la feuille considérée. Du coup après une modification de ma macro sur worksheet_change(), j'ai encore accès à la fonctionnalité "Undo".
Je copie la position du curseur dans une autre feuille (du type "Save_Modif") que je réutiliserais lorsque ce sera nécessaire. Et afin de conserver la position des lignes après un tri j'affecte un identifiant pour chaque ligne.

Donc pour moi c'est tout bon.