Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fenêtre de Confirmation avant un RAZ (Macro)

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Mister Binaire

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
Re : Fenêtre de Confirmation avant un RAZ (Macro)

Bonjour à tous,

Peux-tu essayer avec :

VB: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…