Discussion :

[Papy33]

Bonjour,
Je travaille sur un dossier Excel qui comporte pas mal de feuilles et de macros et je bute sur le fait qu'il est impossible d'annuler les opérations effectuées par macro.
Si par exemple j'efface par erreur une plage de cellules par une macro, il est impossible de revenir en arrière sans tout ressaisir manuellement...
Pour pallier cet inconvénient, j'ai pensé avant suppression, sauvegarder les cellules dans un tableau de type variant, gardé en mémoire jusqu'à fermeture du classeur et en cas d'erreur, je peux revenir en envoyant dans ma plage de cellules, les valeurs et formules stockées dans le tableau. En mettant 5 ou 5 niveau de tableaux en mémoire, je peux ainsi revenir autant de fois en arrière.
Hélas, s'il est facile de sauvegarder les valeurs, avec la propriété .value et les formules avec .formula je ne trouve pas comment passer les formats (polices, couleurs, encadrement, etc.) au tableau pour les restituer ensuite à la feuille de calcul. Bien entendu, je peux stocker tout ça dans d’autres feuilles mais comme j'aurais à sauvegarder des plages provenant d'une quinzaine de feuilles, ce serait beaucoup plus lent qu'avec des tableaux.
Bref, j'ai sans doute mal cherché mais j'avoue que je sèche...
Si une âme charitable pouvait m'indiquer l'astuce, j'en serai vraiment ravi.
En attendant, je souhaite de bonnes fêtes à ceux qui me liront.

[Philippe Tulliez]

Bonjour,
En principe si l'on programme une suppression de données on doit être certain de ce que l'on fait et on prévoit par exemple une boîte de dialogue (MsgBox) avec la possibilité de répondre par la négative à la question "Etes-vous certain de vouloir supprimer les données (Oui/Non) " en mettant le focus du contrôle sur le bouton affichant Non.

Maintenant s'il par précaution tu souhaites tout de même pouvoir rétablir la situation après suppression, je choisirais tout simplement la copie de la plage de données, de la feuille ou du classeur suivant le cas. Bien plus simple à mettre en place que la construction d'une usine à gaz telle que remettre valeurs, formules, plusieurs format, etc.

[Patrice740]

Bonjour,

Fais une recherche Web avec

Creating An Undo Handler To Undo Changes Done By Excel VBA

[clementmarcotte]

Bonjour,

Il me semble que la seule chose qui te manque c'est de te conformer à la loi du moindre effort et de mettre une ligne en début de macro pour faire une copie de sauvegarde de ton classeur sous un autre nom ou dans un autre dossier.

[Papy33]

Bonsoir et merci à tous d'avoir répondu si vite.

En fait, la sauvegarde du classeur sous un autre nom, c'est déjà ce que je fais, mais je cherche mieux.

Bref ! Ma question était simple, elle était de savoir s'il existe d'autres propriétés que .value et . formula, notamment des propriétés de format qu'on peut facilement copier dans un tableau. Du style :

Code :

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

MonTableau =Worksheets(4).Range("G3:Z" & MaxLign).Formula

Ou

Code :

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

MonTableau =Worksheets(4).Range("G3:Z" & MaxLign).Value

Ça marche déjà très bien avec les formules et c'est bien, mais je voudrais faire suivre le format des cellules, ce serait mieux.

Bien sûr je peux me contenter de transférer les contenus par des tableaux pour gagner de la vitesse (pour le fun) et recopier le format des cellules restantes ou alors copier le format sur une autre feuille pour aller le chercher au cas où, mais ça me plait moins...
Donc si quelqu'un sait. Je prends

Mais de toute façon, en programmation, ce qui est bien, c'est qu'il y a souvent plusieurs chemins pour aller d'un point à un autre. Si une solution ne marche pas, on en cherche une autre...
Bonne soirée de Noël.
Cordialement.
Philippe

[patricktoulon]

re
bonsoitr 2 solutions s'offrent a toi pour memoriser la plage et ses formatage

1. un sheets provisoire
2. la copie en html dans un webbrowser qui peux etre repasté

[Papy33]

Bonjour,
Je vais cocher « résolu » car d’une part, il apparait qu’il n’existe pas de fonction simple pour transférer les propriétés de format à un tableau.
Et d’autre part, quoiqu’assez allergique à la lecture de langue de Shakespeare, je pense que la suggestion faite hier à 17h46 par Patrice740 est une excellente piste que je vais m’efforcer d’explorer en faisant taire mes ressentiments contre les anglais (qui pourraient quand même s’exprimer dans une langue que tout le monde comprend sans efforts.) Mais je m’éloigne alors d’une solution ultra simple que je recherchais.
Il n’en demeure pas moins que je suis surpris qu’on puisse copier les formats dans le presse-papier et qu’on ne puisse pas les stocker ailleurs que dans ce dernier ou appliqués à d’autres cellules...
Merci à Philippe, Patrice, Clément et Patrick.
Bonne journée et A+
Ph