Comment insérer dans une macro une boîte de confirmation avant l'exécution

[yumat]

Bonjour à tous
Je viens d'enregistrer la macro suivante :

Sub esai()
'
' esai Macro
' Remise à zéro ducoef deprésence
'
' Touche de raccourci du clavier: Ctrl+k
'
Insérer ici une boîte de dialogue demandant confirmation avant l'éxécution de la macro
Range("I2").Select
ActiveCell.FormulaR1C1 = "0"
Range("I2").Select
ActiveCell.FormulaR1C1 = "1"
Range("I3").Select
End Sub

A l'endroit portant l'inscription en rouge, je souhaiterais insérer une boîte de dialogue demandant confirmation avant l’exécution de la macro

Comme je n'y connais rien en VBA 😕

A l'avance merci

 

[tototiti2008]

Re : Comment insérer dans une macro une boîte de confirmation avant l'exécution

Bonjour Yumat,

à tester

Sub esai()
'
' esai Macro
' Remise à zéro ducoef deprésence
'
' Touche de raccourci du clavier: Ctrl+k
'
If MsgBox("Lancer la macro ?", vbYesNo) <> vbYes Then Exit Sub
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("I3").Select
End Sub

Edit : pas touché au reste du code, je ne comprend pas bien à quoi ça sert de mettre 0 puis 1 dans la même cellule

 

[yumat]

[Réso]Re : Comment insérer dans une macro une boîte de confirmation avant l'exécution

Bonjour Tototiti2008
Voilà le message que j'ai inclus dans ton code :
If MsgBox("Attention, si vous lancez cette action, tous les renseignements concernant les inscrits et les présents ici à droite seront supprimés!!! Cette commande vous servira exclusivement pour le cas où vous auriez effectué des essais. Voulez-vous continuer ?", vbYesNo) <> vbYes Then Exit Sub

Dans 42 cellules concernées, si la cellule de référence passe à 0 toutes les valeurs sont effacées puis la cellule de référence reprend la valeur 1 ..... et l'application est en état de fonctionner.

Un peu vicieux???
Un grand merci à toi et bonne journée.

PS sois vigilant je vais sûrement avoir encore besoin d'un bout de VBA 🙂