XL 2019 Bouton de réinitialisation

[Mimi1952]

Bonsoir,
J'ai une feuille de scores et un bouton pour réinitialiser le classement a chaque saisies des scores.
Mais si je protège la feuille le bouton ne fonctionne plus ( même en décochant les 2 cases dans
Format de cellule et Protection).
Le débogage s'affiche ( peut-être un problème dans le VBA) ????
je joins un fichier
Merçi d'avance
Mimi1952

 

[TooFatBoy]

Hello,

je joins un fichier

Et pour quoi faire ? 🙃

 

[Mimi1952]

Hello,


Et pour quoi faire ? 🙃

Je veux réinitialiser mon classement a chaque saisie de score.
Mais le problème que j'ai c'est que lorsque ma feuille est protéger le bouton de réinitialisation
ne fonctionne plus est un message de débogage s'affiche ( voir la feuille 2) .
le mot de pass pour déprotéger la feuille est le suivant :
mic52
Ou voir si il y à une autre méthode je suis preneur.
Mimi1952

 

[riton00]

Bonjour,

Le fichier est enregistré sans macros .xlsx alors que normalement il devrait fonctionner avec des macros et être enregistré en .xlsm

Slts

 

[Phil69970]

Bonjour à tous

@Mimi1952

Je te propose ce fichier et comme le souligne @riton00 pas cool de ne pas avoir mis le fichier avec les macros et pas cool du tout d'avoir laisser le fichier avec le mot de passe qu'il te faudra rajouter dans la macro ci-dessous

Sub Classement_pouleA()

Dim ws As Worksheet
Set ws = Worksheets("Poule A")

' Déprotection de la feuille avec mot de passe à mettre
ws.Unprotect Password:=""

' La copie
ws.Range("AB10:AC18").Value = ws.Range("B10:C18").Value
ws.Range("AD10:AF18").Value = ws.Range("W10:Y18").Value

' Le tri
With ws.Sort
    .SortFields.Clear
    .SortFields.Add Key:=ws.Range("AD10:AD18"), Order:=xlDescending
    .SortFields.Add Key:=ws.Range("AE10:AE18"), Order:=xlDescending
    .SortFields.Add Key:=ws.Range("AF10:AF18"), Order:=xlAscending
    
    .SetRange ws.Range("AB10:AF18")
    .Header = xlNo
    .Apply
End With

' Reprotéger la feuille avec mot de passe à mettre
ws.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Merci de ton retour

 

[TooFatBoy]

Mais le problème que j'ai c'est que lorsque ma feuille est protéger le bouton de réinitialisation
ne fonctionne plus est un message de débogage s'affiche ( voir la feuille 2) .

Oui, on a bien vu que la feuille est protégée. Mais il n'y a aucune macro dans le classeur que tu as posté en #1, et on n'a pas accès au Bureau de ton PC pour voir les macros, c'est pourquoi je demande à quoi peut bien nous servir le classeur de #1. 😉