XL 2016 remettre des cellules automatiquement à 0

[boubou1973]

Bonjour à tous,
je fais une petite feuille pour jouer aux yams.
j'aurais besoin des experts que vous êtes pour améliorer celle-ci :
1 - est-il possible de créer un "bouton" qui permet de remettre les feuilles de score à 0. Dans l'exemple du fichier joint, il faudrait pouvoir effacer les scores notés dans les cellules B3:F8 et B11:F15 (et faire de même pour les 3 autres tableaux de la feuille). Si possible, le "bouton" serait placé vers les cellules AC

2 - Pour ceux qui ne connaissent pas ce jeu, la colonne C doit se faire dans l'ordre en descendant et la colonne D dans l'ordre mais en montant. J'aimerais que la case qui doit être jouée soit colorée en gris. j'ai mis un exemple de ce que je souhaiterais obtenir dans la feuille jointe. Attention, comme vous le voyez, on passe de D8 à D11 et de E11 à E8

D'avance, merci pour votre aide précieuse et n'hésitez pas à me solliciter si je n'ai pas été assez clair.
Bonne journée à tous, Fabien

 

[job75]

Bonjour boubou1973,

Sub RAZ()
[B3:F8,B11:F15,I3:M8,I11:M15,P3:T8,P11:T15,W3:AA8,W11:AA15] = ""
End Sub

A+

 

[boubou1973]

Bonjour job75, merci pour ton aide mais je ne sais pas quoi faire de cette commande. S'il s'agit d'une macro, je ne sais pas du tout comment cela fonctionne... je ne suis pas terrible sur excel !

 

[job75]

Re,

Fichier joint.

Alt+F11 pour aller dans VBA.

Si vous ne connaissez rien aux boutons et au VBA renseignez-vous sur le forum.

A+

 

[boubou1973]

Merci job75,
c'est exactement le résultat que je souhaitais. J'avais oublié de poser la question mais est-il possible de rajouter une alerte du style "souhaitez vous réellement quitter ?" et 2 boutons oui et non afin d'éviter d'effacer à tort une partie en cours.

Et si je peux abuser de votre gentillesse, avez-vous une idée concernant la 2ème question posée ? j'ai essayé avec des mises en forme conditionnelles mais je n'y arrive pas

Bonne fin de journée, Fabien

 

[boubou1973]

je viens de m'en sortir avec mes mises en forme conditionnelles !
il ne resterait donc que le message d'alerte si quelqu'un connait ?
Fabien

 

[job75]

Re,

Sub RAZ()
If MsgBox("Voulez-vous réellement quitter ?", 4) = 6 Then _
  [B3:F8,B11:F15,I3:M8,I11:M15,P3:T8,P11:T15,W3:AA8,W11:AA15] = ""
End Sub

A+