Macro effacement

B

Bienfaiteur

Guest

• 2 Août 2011

• #2

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 2 Août 2011

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Août 2011

• #4

Re : Macro effacement

Bonjour Bienfaiteur, cc

pour effacer une plage de cellules de la feuille active :

Code:

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

bon après midi
@+

Edition : Bonjour Philippe

 

Vote positif 0 Vote négatif

B

Bienfaiteur

Guest

• 2 Août 2011

• #5

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 ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Août 2011

• #6

Re : Macro effacement

Re,

Code:

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 2 Août 2011

• #7

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

 

Pièces jointes

• 111.xls

  48.5 KB · Affichages: 116
• 111.xls

  48.5 KB · Affichages: 121
• 111.xls

  48.5 KB · Affichages: 120

Dernière édition: 2 Août 2011

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 2 Août 2011

• #8

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 ?

Cliquez pour agrandir...

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

pour les images, j'ai fait l'essai

à+
Philippe

 

Pièces jointes

• 111.xls

  83.5 KB · Affichages: 104
• 111.xls

  83.5 KB · Affichages: 104
• 111.xls

  83.5 KB · Affichages: 111

Dernière édition: 2 Août 2011

Vote positif 0 Vote négatif

B

Bienfaiteur

Guest

• 2 Août 2011

• #9

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 😛

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 2 Août 2011

• #10

Re : Macro effacement

Re,

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

Cliquez pour agrandir...

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

En plus, il faut que ca fonctionne apres plusieurs enregistrements

Cliquez pour agrandir...

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

 

Dernière édition: 2 Août 2011

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Août 2011

• #11

Re : Macro effacement

Bonsoir à tous


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

 

Vote positif 0 Vote négatif

B

Bienfaiteur

Guest

• 2 Août 2011

• #12

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Août 2011

• #13

Re : Macro effacement

Re


Quelles sont alors les adresses de ces plages de cellules ?

 

Vote positif 0 Vote négatif

B

Bienfaiteur

Guest

• 3 Août 2011

• #14

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.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 3 Août 2011

• #15

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

Cliquez pour agrandir...

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

 

Pièces jointes

• 111.xls

  58.5 KB · Affichages: 83
• 111.xls

  58.5 KB · Affichages: 92
• 111.xls

  58.5 KB · Affichages: 83

Vote positif 0 Vote négatif