XL 2019 Bouton RAZ pour cellules fusionnées

Mimi1952 à dit:

Bonjour

J'ai un petit souci avec un onglet " tableaux de Poules " il y à des cellules fusionner et je voudrais un bouton RAZ avec une boite de dialogue ( la boite de dialogue demanderait de confirmer l'effacement par OUI ou NON ) cela évitera les incidents d'effacements, pour cette feuille, dans le cas où cela est possible.
je vous souhaite une bonne soirée et merci pour vos réponses à venir .
Cordialement
Mic

Cliquez pour agrandir...

Sub effacerJJ()
    If MsgBox("Etes-vour sûr de vouloir effacer les scores du tableau de Poules", 292, "Information") = 6 Then
        Range("$E$6:$J$7,$E$10:$J$11,$E$14:$J$15,$P$6:$S$7,$P$10:$S$11,$P$14:$S$15,$Z$6:$AC$8,$Z$10:$AC$11,$Z$14:$AC$15,$AJ$6:$AM$7,$AJ$10:$AM$11,$AJ$14:$AM$15").ClearContents
    End If
End Sub

Mimi1952 à dit:

Bonjour, Jacky
Je vous remercie pour votre formule qui fonctionne très bien , je vous en suis reconnaissant .
Par contre j'aurais besoin d'autre conseil sur une feuille j'ai plusieurs colonnes dont avec une formule contenant des sommes et je me demande si il est possible de masqué et protéger seulement que cette colonne sans être obliger de protéger toute la feuille.
Je ne veux pas de protection de la feuille a part sur cette colonne.
merci de vos réponses
Mic

Cliquez pour agrandir...