Fenêtre de Confirmation avant un RAZ (Macro)

[Mister Binaire]

Bonsoir le Forum,

Que faut il rajouter à cette macro ( voir ci-dessous) pour qu'une fenêtre apparaisse pour confirmer le RAZ.

Style "Cette Action effacera toutes les données de votre fichier Voulez vous Continuez OUI NON"

Merci de votre aide..

Sub Rectangleàcoinsarrondis1_Cliquer()
Feuil1.Range("D12😀49, C12😀49, C6").ClearContents
Feuil1.Rows.Hidden = False
Feuil1.Shapes.Range(Array("Rounded Rectangle 3")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Masquer"
Feuil1.Range("D12").Select 'enlève le focus au bouton
Feuil7.Range("A6:L43,W1,X6:X43").ClearContents
End Sub

 

[JCGL]

Re : Fenêtre de Confirmation avant un RAZ (Macro)

Bonjour à tous,

Merci de joindre ton fichier : les Shapes (rectangle arrondi...) ne sont pas identiques.

A+ à tous

 

[Mister Binaire]

Re : Fenêtre de Confirmation avant un RAZ (Macro)

Merci de ta réponse JGGL.

En PJ le fichier.

Une fois de plus merci de ton aide

 

[JCGL]

Re : Fenêtre de Confirmation avant un RAZ (Macro)

Bonjour à tous,

Peux-tu essayer avec :

Sub Rectangleàcoinsarrondis1_Cliquer()
    Réponse = MsgBox("Cette Action effacera toutes les données de votre fichier. Voulez vous continuer ?", vbYesNo)
    If Réponse = vbNo Then
        Exit Sub
    Else
        Feuil1.Range("C12:D49, C6").ClearContents
        Feuil1.Rows.Hidden = False
        Feuil1.Shapes.Range(Array("Rounded Rectangle 3")).Select
        Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Masquer"
        Feuil1.Range("D12").Select    'enlève le focus au bouton
        Feuil7.Range("A6:L43,W1,X6:X43").ClearContents
    End If
End Sub

A+ à tous

 

[Mister Binaire]

Re : Fenêtre de Confirmation avant un RAZ (Macro)

Merci de ta Réponse JCGL cela marche à merveille.

Une fois de plus merci pour l'aide bien précieuse que tu m'as apporté.