Macro ANNULER une suppression (par macro) dans une feuille

Bonjour à tous,


Je vous sollicite car j'ai besoin d'une grande aide. En effet, après quelques heures de recherche sur Internet, je n'ai pas encore trouvé de réponses à ma question.


Je souhaite écrire une macro qui annule la suppression de lignes, de colonnes ou de toutes les cellules dans une feuille de calcul. (c'est à dire que la feuille de calcul revienne à l'état d'avant la suppression, avec les mêmes valeurs et la même mise en forme). Excel le fait facilement, donc cela doit être possible à faire. Le problème est que je n'ai pas accès au code Excel...


J'ai donc bien cerné le fonctionnement de l'application Undo (Application.Undo). Mon idée était de déclarer l'ensemble de mes cellules dans une variable, puis, après suppression, de coller les données (correspondant aux cellules avant suppression) de cette variable dans ma feuille de calcul.


Comme d'habitude, j'utilise une variable "Range" :

Code:

---

1 2 3 4 5 6 7

Sub UndoSuppression()   Dim RangeSave as Range   Set RangeSave = Cells   End Sub

---

Mais la variable "RangeSave" s'adapte à la sélection, c'est à dire que quand, par exemple, je supprime 2 lignes, ces 2 lignes ne sont plus présentes dans "RangeSave". Mon objectif est donc de fixer la plage de données dans une variable, celle-ci restant TOUJOURS la même quelque soit les opérations effectuées (suppression de lignes...).


J'avais aussi pensé à boucler sur l'ensemble des cellules, mais cela est bien sûr ultra long, car il faut gérer plus de 15 millions de cellules !!!



Encore une fois, Excel le fait très simplement et rapidement, donc je pense que cela est largement faisable.



Si vous avez des idées ou des solutions, n'hésitez pas à les faire partager, pour faire avancer les autres ainsi que moi-même.



Merci d'avance et bonne journée.

Salut
Je vois 2 solution possible a ton problème

-La 1er, tu fais une copie de ta feuille que tu gardes caché dans ton classeur, ainsi tu n'aura qu'a supprimer celle ou tu as les modifs que tu ne souhaites pas conserver et ensuite tu affiche ta feuille sauvegardée que tu renommes, avec un application.screenupdating a true se serait totalement transparent pour l'utilisateur?

-2eme solution, qui répond a une de tes question

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Tab_Sauve As Variant 'Pour sauver tes valeur Tab_Sauve = .UsedRange.Value     [...] 'le reste de ton code   'Pour tout remettre With LaFeuilleSurLaquelleTuTravailles .Range("A1", .Cells(UBound(Tab_Sauve, 2), UBound(Tab_Sauve, 1))).Value = Tab_Sauve End With

---

A++
Qwaz

Merci Qwazerty pour ta réponse.


D'autres personnes avaient eu ta 1ère idée sur d'autres forums (sauvegarde de la feuille ou du fichier).


En fait, cela est difficilement applicable, puisque mon but est que ma macro de suppression ne s'applique pas à un fichier unique, mais à N fichiers, comme peuvent le faire ASAP ou PUP (si tu connais).


Concernant ta 2ème solution, c'est dans cette direction que je dois aller.
Voici un bout de code un peu similaire au tien. C'est à dire qu'après suppression, la macro replace les valeurs et formules d'avant suppression.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim toto As String, rangesave, lafeuille As Worksheet   Set lafeuille = Sheets("Feuil1") With lafeuille rangesave = .UsedRange.Value RFormule = .UsedRange.Formula toto = .UsedRange.Address MsgBox toto ' je le laisse pour toi... efface cette instruction ensuite   .Rows("5:15").Delete MsgBox "regarde ta feuille" Application.ScreenUpdating = False .Range(toto).Value = rangesave .Range(toto).Formula = RFormule Application.ScreenUpdating = True MsgBox "regarde ta feuille" End With

---

1) Si la sélection est trop importante (environ plus de 7 500 000 cellules, soit 30 000 lignes et 256 colonnes), il y a un manque de mémoire. Saurais-tu comment résoudre ce problème ? Si non, ce n'est pas grave, car dans la pratique c'est rare d'avoir une telle sélection.


2) Après restitution après suppression des valeurs et formules, je cherche à restituer les formats de cellules : saurais-tu comment faire ?



Voilà, merci d'avance pour ta réponse et bonne journée.

Salut
Ça ne va pas être simple de conserver les formats

Citation:

---

En fait, cela est difficilement applicable, puisque mon but est que ma macro de suppression ne s'applique pas à un fichier unique, mais à N fichiers, comme peuvent le faire ASAP ou PUP (si tu connais).

---

Je connais SAP (malheureusement) mais pas ASAP ou PUP, mais par contre la solution de faire une copie intégral du sheet serait bien universelle a n'importe quelle classeur. Les avantage sont nombreux, plus de limitation mémoire, il faut savoir aussi que si une macro autre plante, les variables sont parfois mise a zéro... ça m'est déjà arrivé et dans ce cas tu perds tout...., autre avantage, les mise en forme seront de faite sauvegardée.
Le faite de changer la propriété visible de ton sheet te permettrait de la cacher au vue de l'utilisateur le temps de l'exécution de ta macro.

Le fait de créer une sheet invisible et strictement la même chose que de créer une variable mémoire ou tu y stockerais les valeurs et les mises en forme, je ne vois pas pourquoi tu es retissant a utiliser cette méthode.

A++
Qwaz

Je viens de résoudre ce problème, de cette façon :


Ce que je cherchais à faire idéalement est trop coûteux en mémoire.


J'ai donc pris la méthode suivante (sauvegarde des valeurs et formules supprimées, puis restitution de celles-ci) proposée par un internaute sur un autre forum, en demandant par "MsgBox" la confirmation à l'utilisateur de sa volonté de supprimer les lignes ou colonnes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim toto As String, rangesave, lafeuille As Worksheet   Set lafeuille = Sheets("Feuil1") With lafeuille rangesave = .UsedRange.Value RFormule = .UsedRange.Formula toto = .UsedRange.Address MsgBox toto ' je le laisse pour toi... efface cette instruction ensuite   .Rows("5:15").Delete MsgBox "regarde ta feuille" Application.ScreenUpdating = False .Range(toto).Value = rangesave .Range(toto).Formula = RFormule Application.ScreenUpdating = True MsgBox "regarde ta feuille" End With

---

J'ai aussi géré le fait que la sauvegarde des données prenne trop de place (toutes les cellules de la feuille de calcul pleines) en renvoyant un message d'erreur disant que la restitution des données supprimées est impossible.




Merci néanmoins pour votre aide.