Créer une boîte de dialogue d'avertissement

Résolu/Fermé

Nyuiadzi Messages postés 28 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 13 avril 2019 - 16 févr. 2016 à 23:11
Nyuiadzi Messages postés 28 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 13 avril 2019 - 17 févr. 2016 à 05:13

Bonjour,
J'ai crée un petit macro associé à un bouton permettant d'effacer tous les enregistrement dans un tableau. Je alors voudrais savoir comment créé une boîte de dialogue d'avertissement associée à ce bouton pour l'utilisateur du genre "Etes vous sûr de vouloir supprimer tous les données, Oui ou Annuler" après un clique sur le bouton.
J'espère vivement votre aide et vous remercie d'avance

A voir également:

Créer une boîte de dialogue d'avertissement
Se connecter à ma boite hotmail - Guide
Créer un compte gmail - Guide
Créer un compte google - Guide
Créer une liste déroulante excel - Guide
Créer un groupe whatsapp - Guide

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
Modifié par jordane45 le 16/02/2016 à 23:22

Bonjour,

créé une boîte de dialogue d'avertissement associée à ce bouton pour l'utilisateur du genre "Etes vous sûr de vouloir supprimer tous les données, Oui ou Annuler"

Avec une MSGBOX

Un truc du genre :

   If MsgBox("Etes-vous certain de vouloir supprimer le contenu ?", vbYesNo, "Demande de confirmation") = vbYes Then
        
    ' Le reste de ta macro

    End If

Cordialement,
Jordane

Nyuiadzi Messages postés 28 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 13 avril 2019
Modifié par jordane45 le 17/02/2016 à 00:07

Merci pour votre réponse. Seulement je n'ai aucune notion de VBA et je sais pas comment insérer ça. Voici comment se présente le code dans VBA

Sub EffacerTout()
'
' EffacerTout Macro
'

'
    Range("B3:C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("Tableau2[[#Totals],[Date]:[Compte]]").Select
    Selection.ClearContents
    Range("Tableau2[[Date]:[Compte]]").Select
    Selection.ClearContents
    ActiveWindow.ScrollRow = 4984
    ActiveWindow.ScrollRow = 4972
    ActiveWindow.ScrollRow = 4825
    ActiveWindow.ScrollRow = 4723
    ActiveWindow.ScrollRow = 4236
    ActiveWindow.ScrollRow = 3908
    ActiveWindow.ScrollRow = 3591
    ActiveWindow.ScrollRow = 3353
    ActiveWindow.ScrollRow = 2674
    ActiveWindow.ScrollRow = 2097
    ActiveWindow.ScrollRow = 1735
    ActiveWindow.ScrollRow = 1406
    ActiveWindow.ScrollRow = 1293
    ActiveWindow.ScrollRow = 1157
    ActiveWindow.ScrollRow = 1123
    ActiveWindow.ScrollRow = 1055
    ActiveWindow.ScrollRow = 987
    ActiveWindow.ScrollRow = 852
    ActiveWindow.ScrollRow = 682
    ActiveWindow.ScrollRow = 580
    ActiveWindow.ScrollRow = 501
    ActiveWindow.ScrollRow = 467
    ActiveWindow.ScrollRow = 353
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 3
    ActiveWindow.SmallScroll Down:=-12
    Range("F3:K3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("Tableau2[[#Totals],[Nature des recettes]:[N° Quit]]").Select
    Selection.ClearContents
    Range("Tableau2[[Nature des recettes]:[N° Quit]]").Select
    Selection.ClearContents
    ActiveWindow.ScrollRow = 4984
    ActiveWindow.ScrollRow = 4972
    ActiveWindow.ScrollRow = 4485
    ActiveWindow.ScrollRow = 4236
    ActiveWindow.ScrollRow = 3195
    ActiveWindow.ScrollRow = 2731
    ActiveWindow.ScrollRow = 1927
    ActiveWindow.ScrollRow = 1282
    ActiveWindow.ScrollRow = 1169
    ActiveWindow.ScrollRow = 852
    ActiveWindow.ScrollRow = 693
    ActiveWindow.ScrollRow = 602
    ActiveWindow.ScrollRow = 557
    ActiveWindow.ScrollRow = 467
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 3
    Range("B3").Select
End Sub

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650 > Nyuiadzi Messages postés 28 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 13 avril 2019
17 févr. 2016 à 00:09

Sub EffacerTout()

 If MsgBox("Etes-vous certain de vouloir supprimer le contenu ?", vbYesNo, "Demande de confirmation") = vbYes Then

    Range("Tableau2[[#Totals],[Date]:[Compte]]").Select
    Selection.ClearContents
    Range("Tableau2[[Date]:[Compte]]").Select
    Selection.ClearContents

    Range("Tableau2[[#Totals],[Nature des recettes]:[N° Quit]]").Select
    Selection.ClearContents
    Range("Tableau2[[Nature des recettes]:[N° Quit]]").Select
    Selection.ClearContents
   
    Range("B3").Select
    
 End If
 
End Sub

Réponse 2 / 2

Nyuiadzi Messages postés 28 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 13 avril 2019
17 févr. 2016 à 05:13

Merci beaucoup pour votre aide. Ça marche quand j'ai essayé. C'est noté aussi la recommandation pour les balises de code, j'y penserai

--

Discussions similaires

créer une adresse gmail pour une autre personne

Discussions similaires

Newsletters