Effacer des cellules
Comment faire une macro,qui efface des cellules (dévérouillées) sur un document protéger sans retirer le protection?
Merci
Bonjour
La macro devra forcément ôter la protection, effacer, puis remettre la protection.
Cordialement
mais il y a un mot de passe à taper la macro va le prendre?
Re bonjour
Bien sur, le mot de passe sera intégré dans le code de la macro.
Je laisse la place aux spécialistes VBA pour t'écrire le bout de code.
Cordialement
Bonsoir,
Par exemple (a adapter bien sur),
Entrerz le code suivant dans un module
Option Explicit
Sub MacroEffacer()
Sheets("Feuil1").Select
'si le mot de passe est 0000
ActiveSheet.Unprotect Password:="0000"
'zone a éffacer
Range("B10:D17").ClearContents
'remise en place de la protection
ActiveSheet.Protect Password:="0000", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
End Sub
Cordialement
Alain
Oui mais le problème est que j'ai beaucoup de cellule à supprimer (non protégées) et beaucoup d'autres à concervées (protégées)
C'est bien pour cela que je souhaiterai pouvoir effacer les cellules non protégées en gardant la protection de la feuille...
je ne sais pas si cela est possible
Bonjour Vous,
Je n'avais pas tout saisis. Voici un autre bout de code
Option Explicit
Sub MacroEffacer()
Dim ZoneEffacement As Range
Dim MaCellule As Range
Sheets("Feuil1").Select
Set ZoneEffacement = Range("$c$9:$f$17")
For Each MaCellule In ZoneEffacement
On Error Resume Next
MaCellule.Clear
Next
On Error GoTo 0
End Sub
Ici la zone a effacer ("$c$9:$f$17") contiens des cellules protégées et celles vouées a l'effacement non protégées
Cordialement
Alain
très fort!
merci
Re-
Pas de problème
Pensez toutefois à cocher le sujet répondu
A plus, cordialement
Alain
SUPER votre formule, pas contre je souhaite concerver la couleur de fond de mes cellules avec la formule elles reviennent en blanc...
encore merci
Re
Remplacez
MaCellule.Clear
par
MaCellule.Clear Contents
A Plus
Alain
j'ai une erreur, pouvez vous me faire un petit fichier en exemple
merci
c'est bon en fait j'avais un espace en trop.
merci beaucoup
RE
Si possible me donner un fichier (Joindre un fichier dans le menu)
Maintenant, j'ai apporté un correction a mon post, j'avais un "." (point) devant la ligne de commande corrective
Sinon, lors d'une erreur il serait de bon ton de nous dire laquelle, par exemple
numéro de l'erreur xxxx message zzzzzzz
Le site est prévu pour l'entraide et je pense que souvent ce qui sert l'un peut servir l'autre
Si des données sont confidentielles (là je parle pour moi seulement) j'ai signé une chartre de confidentialité (imposé par mon propre emploi régulier)
Sur le site vous trouverez "MP" message personnel et "Email" ma boite courriel personnelle
Je ne voudrais pas remplacer le (les) "master" du site
Mais, une chose est sure, nous sommes sur un forum communautaire d'entraide
Cordialement
Alain
Croisement de courrier tant pis ...