Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
tissot.emmanuel
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" a écrit dans le message de news:
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
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.
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" a écrit dans le message de news:
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.