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

Tsimbina

XLDnaute Nouveau
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
Est ce que c'est comme celà?
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 )

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: 1

Tsimbina

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
Est ce que c'est comme celà?
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 )
 

Tsimbina

XLDnaute Nouveau
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 )

Merci pour ton aide.
 

Discussions similaires

Statistiques des forums

Discussions
299 850
Messages
1 979 570
Membres
206 780
dernier inscrit
Edwige81