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. 😉

 

[Phil69970]

@Mimi1952

Merci de ton retour

Pas de retour ==> c'est pas cool 😡 surtout qu'il y a eu 3 personnes qui sont intervenus.

 

[Mimi1952]

@Mimi1952



Pas de retour ==> c'est pas cool 😡 surtout qu'il y a eu 3 personnes qui sont intervenus.

bonjour Phil,
Excuse-moi, de ne pas avoir répondu dans la foulée car je suis toujours perdu même avec le code que tu m'as donné.
Donc, j'essai avec un classement automatique sans bouton de réinitialisation, tout simplement .
Merci à tous d'avoir pris de votre temps pour résoudre mon problème.
Cordialement
Mimi1952

 

[Phil69970]

@Mimi1952

1) Le forum sert à expliquer ton besoin et faire un retour donc répondre je suis perdu n'explique rien sur ton besoin surtout 5 jours après et une relance de ma part !

je suis toujours perdu même avec le code que tu m'as donné.

Mon fichier ne fonctionne pas ?
Tu n'as pas su retranscrire dans ton fichier ?
Tu as eu des messages d'erreur ?
Ce n'est pas ce que tu voulais ?
Etc ... Je pourrais rajouter encore des questions

2) Je suis parti sur le code que tu as fourni dans ton fichier que j'ai "croisé" avec ta demande initiale ni plus ni moins :

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).

3) De plus mettre un mot de passe sur ton fichier sans le donner n'est pas cool du tout et idem en supprimant toutes les macros que tu as déjà sur ton fichier et pour finir mettre dans une feuille un code VBA "olé olé".

4) Tu as tout fait pour avoir très peu de réponses et pour décourager les demandeurs pour tes autres demandes potentiels