Macro effacement

[Bienfaiteur]

Bonjour à tous !
J'aimerai trouver une macro capable d'effacer les données rentrées par un utilisateur afin de retrouver le fichier intact comme à son origine ... Comme vous devez comprendre les cases utilisées sont aleatoires ... Avez vous un moyen permettant de cibler toutes ces zones afin de supprimer leur contenu ? Sinon avez vous deja la macro classique pour supprimer le contenu des cases ... quitte à taper dans la macro toutes les cases à supprimer ...
Merci d'avance !

 

[Bienfaiteur]

Re : Macro effacement

Merci de ta réponse mais le probleme c'est que l'action de tout effacer serait sous forme de bouton, qui est sollicité par l'utilisateur quand il le veut ... S'il a envie d'effacer toutes les données, il clique sur le bouton ... Même si c'est après plusieurs enregistrements ...

 

[phlaurent55]

Re : Macro effacement

Bonjour à tous,

une idée à creuser:
une solution serait d'avoir une feuille "miroir" identique et qui serait cachée.

lors de la fermeture du fichier, la macro recopie automatiquement cette feuille en lieu et place de celle qui a subi des modifs ce qui aura pour effet de la remettre dans son état initial

patiente 5 minutes, je crée un fichier exemple


à+
Philippe

 

[Pierrot93]

Re : Macro effacement

Bonjour Bienfaiteur, cc

pour effacer une plage de cellules de la feuille active :

Range("A1:A10,C1:C10").ClearContents

bon après midi
@+

Edition : Bonjour Philippe

 

[Bienfaiteur]

Re : Macro effacement

Interessant ^^ mais mon fichier contient plus d'une feuille et contient des images ... Peut etre que ce sera trop lourd au niveau de la mémoire ?

edit: Merci pour ton info mais comment peut on l'appliquer a differentes feuilles ?

 

[Pierrot93]

Re : Macro effacement

Re,

Sheets("nomFeuille").Range("A1:A10,C1:C10").ClearContents

 

[phlaurent55]

Re : Macro effacement

Re,

voir l'exemple en pièce jointe

à+
Philippe

Edit: nouveau fichier joint
Edit 2 : je n'avais pas vu la nouvelle demande au post #6 avant d'envoyer

 

[phlaurent55]

Re : Macro effacement

Re,

Interessant ^^ mais mon fichier contient plus d'une feuille et contient des images ... Peut etre que ce sera trop lourd au niveau de la mémoire ?

je pense que cela va multiplier par 2 la taille du fichier

pour les images, j'ai fait l'essai

à+
Philippe

 

[Bienfaiteur]

Re : Macro effacement

L'idée est sympa mais j'ai tellement de pages que ca me prendrait beaucoup trop de temps ... En plus, il faut que ca fonctionne apres plusieurs enregistrements ^^ pouvoir effacer apres comme à l'origine

Je pense devoir le faire à l'ancienne ... c'est a dire effacer feuille par feuille les cellules qu'il faut et ecrire tout ca dans la macro ...

Quelqu'un aurait la démarche ? Car là j'ai eu que pour une feuille active

 

[phlaurent55]

Re : Macro effacement

Re,

L'idée est sympa mais j'ai tellement de pages que ca me prendrait beaucoup trop de temps

ça prendra uniquement le temps de faire une macro qui te dupliquera les feuilles

En plus, il faut que ca fonctionne apres plusieurs enregistrements

pourrais-tu expliquer cela plus en détails


. je n'ai plus trop le temps en ce moment mais si un autre veut s'y mettre
ce n'est pas bien difficile à faire !


à+
Philippe

 

[Staple1600]

Re : Macro effacement

Bonsoir à tous


Les plages de cellules sont elles-identiques sur toutes les feuilles ?

 

[Bienfaiteur]

Re : Macro effacement

Re philippe, dans ton cas, quand je quitte ou j'enregistre ... tout s'efface ... ^^ Alors que ce qu'il faudrait c'est que cela s'efface que quand l'utilisateur a choisi de tout effacer même s'il a deja enregistré.

Bonsoir Staple ^^
Et bien non, sinon ca serait trop simple ^^

 

[Staple1600]

Re : Macro effacement

Re


Quelles sont alors les adresses de ces plages de cellules ?

 

[Bienfaiteur]

Re : Macro effacement

Re staple !

Bah c'est aléatoire selon la feuille ...
Mais en gros il me faudrait juste la manip pour effacer selon la feuille, les cellules que je veux ... Si tu pouvais me montrer un exemple, là je sais faire sur la feuille active mais pas sur les feuilles que je veux ... Et au niveau des cellules, il y en a des isolées, un cas ou y en a plusieurs à la suite et aussi un cas ou c'est des cellules sont fusionnées.

 

[phlaurent55]

Re : Macro effacement

ReBonjour à tous,

J'aimerai trouver une macro capable d'effacer les données rentrées par un utilisateur afin de retrouver le fichier intact comme à son origine ...

pour une réponse à la question telle que posée,voir nouvelle version en pièce jointe
après essais, j'ai constaté que le fichier précédent ne fonctionne pas bien avec les images

à+
Philippe