Fichier classement

Bonjour Dodo

tu ne m'as pas donné le mdp pour accéder aux macros !

Cdlmnt

Via

Bonjour Via,

J'espère que tu vas pour le mieux!

Je reviens vers toi pour un fichier que tu m'as élaboré il y a près d'une année et qui marchait ,  me semble t'il, très bien.

Aujourd'hui , j'ai un bug dans l'exemple ci dessous: en poule 2 ,si j'encode une seule journée et que je fais le classt, j'ai un code erreur"13".

Merci si tu peux m'aider sur ce pb?

Cdlmnt.

Dodo

https://www.cjoint.com/c/MFAvGyl5Hwz

Bien ☺

On passe en résolu

Cdlmnr

Via

Bonjour Via,

D'abord désolé pour le doublon, je ne pensais pas te joindre la 1ère fois de la manière dont je m'y étais pris.

Nickel le fonctionnement!

Merci encore.

Cdlmnt.

Dodo

Bonjour Dodo

Macro à mettre dans le worksheet de la feuille (ouvrir editeur VBA - doubleclic sur nom de la feuille dans l'arborescence -copier coller la macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Interior.Color = RGB(196, 196, 196) Then Target.Interior.Color = RGB(255, 255, 255) Else Target.Interior.Color = RGB(196, 196, 196)
End Sub

Modifier les valeurs du gris (196,196,196) si ce n'est pas ce gris moyen que tu as utilisé

Un double-clic dans une cellule la colore en blanc soi elle est grise et inversement

Cdlmnt

Via

Bonjour Via,

Je reviens vers toi pour un nouveau pb!

J'ai 1 grille de 100 numéros pour 100 cellules dont la couleur de fond est grise.

En cliquant dans une cellule, je voudrais que la couleur devienne blanche ( comme pour un loto).

Peux tu, stp, m'aider sur ce sujet?

Cdlmnt.

Dodo

Bonsoir Via,

C'est super, pas de pb, tout fonctionne!

En classant par tireurs mais les pointeurs à côté comme tu as fait, c'est encore mieux.

Une fois de plus, merci beaucoup.

Cdlmnt

Dodo

Bonjour Dodo

Peut être qu'en ne classant que les tireurs

https://www.cjoint.com/c/LHqmbYoH7nu

Cdlmnt

Via

Bonjour Via,

Le pb est pour les exæquos, par exemple dans le fichier ci dessus:

Nous avons un 1er, un 2 ème, deux 3ème ald  deux 1er, deux 3ème, quatre 5ème!

Le copier/coller ne marche pas.

Cdlmnt

Dodo

Bonjour Dodo

Finalement les formules de la colonne T sont sans importance je pense, ce qui compte ce sont celles de la colonne U qui retournent les bons noms, donc au plus simple je pense que tu peux simplement copier la colonne AE et la coller enT

Cdlmnt

Via

Bonjour Via,

Me revoilà!

Est-il possible d'avoir en colonne "T" le même classement qu'en colonne "AE"?

Le fichier étant en doublette l'équipe 3ème est en fait 2ème, etc...

Merci de ton retour.

Cdlmnt

Dodo

https://www.cjoint.com/c/LHpiurnOPCV

Bonjour Via,

Je suis toujours aussi lourd!!

C'est bon, aucun pb.

Merci

Cdlmnt

Dodo

Re,

Il faut bien sûr protéger avant la feuille en cochant  Sélectionner les cellules déverrouillées et Format de cellule et en entrant ton mot de passe

Ensuite en début de la macro Classement tu dois avoir l'instruction

ActiveSheet.Unprotect "ton mot de passe "  pour que la macro puisse déprotéger la feuille

et en fin de la macro l'instruction

 ActiveSheet.Protect Password:="Ton mot de passe", AllowFormattingCells:=True pour la reprotection

Cdlmnt

Via

Re,

Je me suis mal exprimé dans ma requête:

Je souhaite qu'un autre utilisateur que moi puisse changer le format des cellules verrouillées

(par exemple changer la couleur de fond d'une cellule  sans lui donner mon MDP.

Actuellement, si la personne clique sur ôter la protection, elle s'enlève sans lui demander le MDP, il a donc accès à toutes les cellules puisque la feuille n'est pas protégée tant qu'il ne clique pas sur le bouton classement.

Je ne suis pas sûr d'être encore très clair?

Cdlmnt

Dodo

Bonsoir Dodo

Oui en fin de macro la protection se fait pour l'instant sans mdp

Il faut indiquer ton mdp entre les guilemets

par exemple

ActiveSheet.Protect  "dodo"

Cdlmnt

Via

Bonjour Via,

Je viens de m'apercevoir que lorsque je modifie le format d'une cellule dans une feuille protégée, avec la modif que tu m'as recommandée, c'est ok , la feuille se protège mais si je clique sur ôter la protection, celle ci s'enlève sans me demander mon mot de passe!

Donc ma feuille n'est plus protégée !

Y a t'il une autre possibilité?

J'en doute...

Merci de ton retour.

Cdlmnt

Dodo

Bonsoir Via,

Nickel!

Tout fonctionne.

Je te tiens au courant si pb nouveau?????

Encore un grand merci

Cdlmnt

Dodo

Normal l'option n'était pas prévu dans la macro

Dans module 1 à la fin de la macro classement remplace le

ActiveSheet.Protect  ""

par ActiveSheet.Protect AllowFormattingCells:=True
Cdlmnt

Via

Bonjour Via,

A priori c'est bon d'après les essais que j'ai réalisés!

Je viens de découvrir un autre pb qui n'a rien à voir avec ce que tu as fait.

Quand une feuille est protégée, même si je coche format de cellule autorisée, elle se décoche lorsque je lance la macro sur cette même feuille pour avoir le résultat?

Merci

Cdlmnt

Dodo

Bonjour Dodo

Désolé je n'avais pas vu ton message

Je viens de simuler, j'obtiens le même erreur que toi dans ce cas précis, je n'arrive pas à voir pourquoi

J'ai contourné le problème en mettant une gestion d’erreur dans la macro

https://www.cjoint.com/c/LGllhN0o18u

En espérant que les classements seront bons dans tous les cas

Cdlmnt

Via