Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Sécurisation code VBA remise à zéro donné

T

Tsimbina

XLDnaute Junior
Bonjour,

Pouvez vous m'aider à sécurisé le code vba du bouton remise à zéro du fichier en PJ?

la sécurisation consiste:
lorsque on clic sur le bouton remise à zéro le code vba ne s’exécute pas que si on le valide par un "oui" et si on choisi "non" le code ne s'exécutera pas aussi.
Pour évité que le bouton ne soit pas cliqué intentionnellement.

Merci d'avance.
 

Pièces jointes

  • Gestion de STOCK APPLIANCE 2.0.xlsm
    367.5 KB · Affichages: 3
Solution
Tsimbina à dit:
Est ce que c'est comme celà?
Cliquez pour agrandir...
Je ne sais pas, j'ai mis une PJ !
VB: 
Sub MiseàZero()
'
' MiseàZero Macro
'
    Réponse = MsgBox("La remise à zéro va être exécutée." & Chr(10) & "Confirmez vous cette action?", vbYesNo, "Demande de confirmation")
    If Réponse = vbNo Then Exit Sub
'
    Sheets("Stock Tana").Select
    Range("Stock_Tana[Stock Initial Inventaire " & Chr(10) & "26/M-1]").Select
    Selection.ClearContents
    Sheets("JOURNAL Janvier").Select
    Range("E1,A6:B60000,D6:K60000").Select
    ...
Utilisez les balise </> pour le code c'est plus lisible. ( à droite de l'icone GIF )
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Tsimbina,
Il suffit de faire précéder votre macro par :
VB: 
    Réponse = MsgBox("La remise à zéro va être exécutée." & Chr(10) & "Confirmez vous cette action?", vbYesNo, "Demande de confirmation")
    If Réponse = vbNo Then Exit Sub
Une réponse négative entraine l'arrêt de la macro.
 

Pièces jointes

  • Gestion de STOCK APPLIANCE 2.0.xlsm
    333.7 KB · Affichages: 2
Vote positif 0 Vote négatif
T

Tsimbina

XLDnaute Junior
Bonjour sylvanu,

Est ce que c'est comme celà?

Réponse = MsgBox("La remise à zéro va être exécutée." & Chr(10) & "Confirmez vous cette action?", vbYesNo, "Demande de confirmation")
If Réponse = vbNo Then Exit Sub
Sub MiseàZero()
'
' MiseàZero Macro
'

'
Sheets("Stock Tana").Select
Range("Stock_Tana[Stock Initial Inventaire " & Chr(10) & "26/M-1]").Select
Selection.ClearContents
Sheets("JOURNAL Janvier").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Janv[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Janv[Date]").Select
Selection.ClearContents
Sheets("JOURNAL Février").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Fév[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Fév[Date]").Select
Sheets("JOURNAL Mars").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Mars[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Mars[Date]").Select
Sheets("JOURNAL Avril").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Avr[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Avr[Date]").Select
Sheets("JOURNAL Mai").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Mai[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Mai[Date]").Select
Sheets("JOURNAL Juin").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Juin[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Juin[Date]").Select
Sheets("JOURNAL Juillet").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Juil[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Juil[Date]").Select
Sheets("JOURNAL Août").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Août[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Août[Date]").Select
Sheets("JOURNAL Septembre").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Sept[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Sept[Date]").Select
Sheets("JOURNAL Octobre").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Oct[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Oct[Date]").Select
Sheets("JOURNAL Novembre").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Nov[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Nov[Date]").Select
Sheets("JOURNAL Décembre").Select
Range("E1,A6:B60000,D6:K60000").Select
Range("JOURNAL_Déc[Observation]").Activate
Selection.ClearContents
Range("JOURNAL_Déc[Date]").Select
Sheets("Acceuil").Select
End Sub
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Tsimbina à dit:
Est ce que c'est comme celà?
Cliquez pour agrandir...
Je ne sais pas, j'ai mis une PJ !
VB: 
Sub MiseàZero()
'
' MiseàZero Macro
'
    Réponse = MsgBox("La remise à zéro va être exécutée." & Chr(10) & "Confirmez vous cette action?", vbYesNo, "Demande de confirmation")
    If Réponse = vbNo Then Exit Sub
'
    Sheets("Stock Tana").Select
    Range("Stock_Tana[Stock Initial Inventaire " & Chr(10) & "26/M-1]").Select
    Selection.ClearContents
    Sheets("JOURNAL Janvier").Select
    Range("E1,A6:B60000,D6:K60000").Select
    ...
Utilisez les balise </> pour le code c'est plus lisible. ( à droite de l'icone GIF )
 
Vote positif 0 Vote négatif
Solution
T

Tsimbina

XLDnaute Junior

Merci pour ton aide.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
Microsoft 365 Programme de lecture d'un très gros livre (3 différents livres par semaine et un chapitre de chaque par jour)
2
Réponses
18
Affichages
632
crocrocro
C
C
  • Question
XL 2016 VBA Détecter la suppression de la dernière ligne d'un Tableau
Réponses
9
Affichages
443
crocrocro
C
  • Question
XL 2019 J’ai tenté de filtrer les anomalies dans le tableau en utilisant un code VBA. Malheureusement, le code initial ne semble pas fonctionner correctement.
Réponses
2
Affichages
243
Saalut
L
  • Résolu(e)
Microsoft 365 Création d'un code VBA pour sélectionner des zone selon choix multiples.
Réponses
3
Affichages
410
Lionel Alfred
L
U
  • Résolu(e)
XL 2021 Recherche un utilitaire (Code VBA) pour la structure des tableaux Excel
Réponses
8
Affichages
567
UnDePlusieurs
U
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
727
Alain 79
A
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
219
NONO14
N
N
  • Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
305
NONO14
N
N
  • Résolu(e)
Microsoft 365 Ecrire une formule de calcul en Vba Excel
24 25 26
Réponses
385
Affichages
10 K
TooFatBoy
M
  • Question
XL 2021 Protection des onglets
Réponses
2
Affichages
193
MANU64360
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…