Code pour effacer à partir d'un bouton

Bonjour,

Je cherche un code pour vider ou effacer les données de la feuille "Données" et des onglets dont les noms commencent par "Cat" ou "localité".

Le code souhaité doit être verrouillé par un mot de passe ou associé à une boite de dialogue de confirmation de l'action "VIDER";

Merci d'avance

Bonjour,

Il te "suffit" de sélectionner tes cellules à effacer, puis de les vider

Exemple :

    
Range("A1:A15").ClearContents

Tu peux ajouter à cela une boite de dialogue pour confirmer la suppression

Ce qui donne :

Sub effacer()
    If MsgBox("Etes-vous certain de vouloir effacer les données ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Range("A1:A15").ClearContents
        MsgBox "Le contenu a été effacé !"
    End If
End Sub

Il te suffit de modifier le code pour que toutes les cellules que tu veux supprimer soit sélectionnées.

Guillaume

Bonsoir,

Essaye le code suivant lié à l'image du cylindre dans un module 3 :

Sub Cylindre2_Click()
    reponse = MsgBox("Voulez-vous vraiment effacer les données ?", vbYesNo)
    If reponse = vbNo Then Exit Sub
    For Each sh In Worksheets
        derLig = sh.Range("B" & Rows.Count).End(xlUp).Row
            If sh.Name = "Données" Then
                sh.Range("A7:AB" & derLig).ClearContents
            ElseIf sh.Name Like "Cat*" Or sh.Name Like "Localité*" Then
                sh.Range("A2:AE" & derLig).ClearContents
            End If
    Next sh
End Sub

Merci à tous pour les codes proposés, je vais les tester et vous informer du résultat.

Merci encore une fois.

Merci beaucoup,

J'ai testé le code proposé par Raja, ça marche (après avoir complété le 2e "*" pour encadrer "Cat" et "Localté") mais, je ne sais pas si ce code marchera toujours quand les feuilles seront masquées et j'espère bien que vous me permettrais de revenir, au besoin, à la charge.

Cordialement.