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

[Tsimbina]

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.

 

[sylvanu]

Bonjour Tsimbina,
Il suffit de faire précéder votre macro par :

    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.

 

[Tsimbina]

Bonjour Tsimbina,
Il suffit de faire précéder votre macro par :

    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]

Est ce que c'est comme celà?

Je ne sais pas, j'ai mis une PJ !

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]

Je ne sais pas, j'ai mis une PJ !

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.

 

[Tsimbina]

Cette problème est résolu.

Cordialement,