Bouton pour vider automatiquement des cellules.

Bonsoir,

Cette procédure prend place dans un module standard. Elle utilise des noms
(Zone1, Zone2 ..) pour désigner les cellules à vider:

Const Mdp As String = "Microsoft" 'Ici ton mot de passe

Public Sub Purge()
Dim Zones(), i As Integer, Reponse
Reponse = Application.InputBox("Entrez le mot de passe.")
If VarType(Reponse) = vbString Then
If Reponse = Mdp Then
Zones = Array("Zone1", "Zone2", "Zone3") 'La liste des noms
de cellules a vider ici
For i = 0 To UBound(Zones)
Range(Zones(i)).ClearContents
Next
Else
MsgBox "Mot de passe erroné.", vbCritical
End If
Else
MsgBox "Opération annulée.", vbInformation
End If
End Sub

Bien entendu il est nécessaire de protéger le projet pour empécher un
utilisateur de visualiser le mot de passe:
Dans l'éditeur VB, CTRL+R>Clic droit sur le projet>Propriétés>Onglet
protection>Cocher Verrouiller le projet pour l'affichage, Saisir un mot de
passe.
Enregistrer et fermer le classeur pour que la protection devienne effective.

Le code du bouton, a insérer dans le module de la feuille (Clic droit sur
l'onglet>Visualiser le code) sur laquelle il est posé:

Private Sub CommandButton1_Click()
Purge
End Sub

Cordialement,

Manu/

"Salva" <Salva@discussions.microsoft.com> a écrit dans le message de news:
C6E40D6F-0982-475A-B677-92E23C0718EF@microsoft.com...

Bonjour,

Je souhaiterais mettre dans un classeur un bouton qui viderai
automatiquement
un certains nombres de cellule sur différentes feuilles.

Il faudrai que ce bouton soit protégé par un mot de passe pour éviter les
purge accidentels.

Salutations