Concours de pétanque

Question

Bonjour Mmes et Mrs,

Je suis nouveau sur le forum, d'où un risque de maladresse, je m'en excuse à l'avance.
Mon pb: j'ai fait un tableau simple pour que les gagnants se rencontrent entre eux ainsi que les perdants et je n'ai pas trouvé la formule automatique pour se faire!
Je ne sais déjà pas vous joins mon exemple.
Merci de vos réponses.
Bonne journée et bon courage
Cordialement.
DodoMichelle

via55 · Answer

Bonjour DodoMichelle et bienvenue

Pour joindre un fichier il faut le poster sur un site de partage comme mon-partage.fr ou cjoint.com, copier le lien créé et revenir le coller ici dans un prochain message.
On pourra alors voir la formule adéquate à adapter à ton fichier

Dans l'atttente
Cdlmnt
Via

JCB40 · Answer

Bonjour
Tu envisages combien de joueurs?
Crdlt

DodoMichelle · Answer

Bonjour,
J'ai suivi l'instruction de via55, j'espère que le lien fonctionne!
Dans le tableau joint, j'ai posé mon problème.
Je souhaite faire un cours avec 32 équipes ( j'ai construit la maquette, seule me manque la formule "automatique".
Je vous remercie pour votre réactivité et réponses.
Cordialement.
DodoMichelle
https://mon-partage.fr/f/eumhZTH3/

via55 · Answer

Re,

Ton fichier avec les formules (en rajoutant une colonne pour l'ordre des fins de parties)
https://mon-partage.fr/f/q4Gj7YCD/

Cdlmnt
Via

DodoMichelle · Answer

Bonsoir via,
Merci beaucoup pour ta réponse rapide et efficace, ça fonctionne super, par contre je ne comprends pas la formule en colonnes I ou L, je te fais suivre ma maquette complète pour valider mon fichier:
https://mon-partage.fr/f/dLqChWk7/

Si tu as du temps à perdre , une petite explication sur la formule que j'ignore complètement afin que je puisse m'exercer si besoin sans solliciter tout le monde!
=SIERREUR(SI(INDEX($D$3:$D$18;EQUIV(LIGNE()*2-5;$G$3:$G$18;0))=13;INDEX($C$3:$C$18;EQUIV(LIGNE()*2-5;$G$3:$G$18;0));INDEX($F$3:$F$18;EQUIV(LIGNE()*2-5;$G$3:$G$18;0)));"")
Cordialement.
DodoMichelle

via55 · Answer

Re

Ton fichier avec toutes les formules
J'ai verrouillé les cellules avec formules et protégé la feuille pour éviter un effacement des formules par inadvertance
J'ai mis les explications détaillées de la formule dans le fichier
https://mon-partage.fr/f/emhwMdiZ/

En principe tout fonctionne bien comme tu pourras le voir mais à tester par toi-même quand même
Le seul bémol que je ne n'arrive pas à régler par formule (il faudrait une macro) c'est le fait qu'à partir de la 3ème partie rien n'empêche que 2 joueurs qui se sont affrontés au 1er tour et qui ont chacun perdu une partie se retrouvent de nouveau face à face s'ils finissent l'un après l'autre dans l'ordre de la partie précédente (1 et 2 ou 3 et 4 ou 5 et 6 ou 7 et 8) ce qui ne devrait arriver qu'avec une probabilité d'environ 1/30 (si je ne me trompe pas, mes notions de calculs de proba sont lointaines !)

Cdlmnt
Via

DodoMichelle · Answer

Bonjour via,
Nickel ta solution!J'ai fait plusieurs simulations et tout fonctionne!J'ai fait une  modif pour qu'il y ait bien 2 gagnants en 4 parties et faire la finale à la 5 ème partie.
J'ai fait plusieurs simulations, en effet il arrive que lors de la 3ème ou 4 ème partie, 2 équipes se rencontrent à nouveau , mais je me satisferai largement  de cette solution car je sais faire les macros en cliquant sue les cellules mais dans ce cas je ne vois pas du tout comment faire!Je suis néanmoins preneur si tu peux encore m'aider facilement ..........
Merci beaucoup pour ton aide, ton efficacité et rapidité ainsi qu' à toute l'équipe de CCM.
Cordialement.
DodoMichelle.

https://mon-partage.fr/f/TQwjgnvn/

via55 · Answer

Bonjour Dodo

Voila avec macros qui remplissent en partie les tableaux 3 et 4 et vérifie si des équipes se sont déjà rencontrées (dans ce cas permute avec la suivante) , les autres parties (tout gagné ou tout perdu) de ces tableaux sont toujours remplies par les formules.
Il faut valider les parties 2 et 3 avec les boutons pour que les macros s'exécutent

Les cellules avec formules sont verrouillées et la feuille protégée

J'ai rajouté aussi un bouton pour tout effacer sans avoir à le faire manuellement

https://mon-partage.fr/f/W9XXl2E5/

Cdlmnt
Via

via55 · Answer

Désolé il y a bug à l'effacement dans le fichier que je t'ai envoyé au post 10
Prendre ce fichier rectifié
https://mon-partage.fr/f/b4LBlLNx/

DodoMichelle · Answer

Bonsoir via,

C'est parfait, je suis bluffé par le résultat, c'est vraiment impressionnant!Comment peut on être aussi performant,quelles astuces?
Mon pb est résolu !
Un grand merci , à une prochaine fois pour un nouveau pb!
Bon WE.
cordialement.
Dodo.

via55 · Answer

Bonjour Dodo

Tant mieux 
 A la prochaine ☺
Bonne fin de WE également

Cdlmnt
Via

DodoMichelle · Answer

Bonsoir Via,

Je veux protéger un fichier avec un MdP et des macros en mettant "ActiveSheet.Unprotect" et "ActiveSheet.Protect" avec MdP, j'ai toujours un message d'erreur.J'ai mis le fichier en lien, si tu peux encore m'aider sur ce sujet?
Merci d'avance.
Cordialement.
Dodo.

https://mon-partage.fr/f/RbOl9tgm/

via55 · Answer

Bonsoir Dodo

Que veux tu faire exactement ? Je n'ai pas vu de code de protection dans tes macros (d'ailleurs sont elles toutes utiles ? Il faudrait peut être d'abord faire le ménage !

Protéger les feuilles ( du moins les cellules verrouillés), c'est ce que fait activesheet.protect pour un feuille à la fois. On peut faire par macro protéger toutes le feuilles d'un coup à l’ouverture et à fermeture du classeur

On peut aussi par macro protéger le fichier en masquant toutes les feuilles sauf une Accueil dans laquelle il faudra à l'ouverture entrer un mdp pour les rendre visibles
Il faut aussi protéger le code des macros par un mdp (le même ou un autre) car quiconque irait fouiller dans les macros trouverait le code

Dis moi

Cdlmnt

DodoMichelle · Answer

Bonsoir Via,

Pour être un peu plus clair,J'ai fait ce fichier ( je pense que tout est utile!)mais je voudrais le protéger car la ou les personnes qui vont encoder les résultats dans les cellules E4 àJ9 et les 4 autres cadres ne doivent pas avoir accès aux autres cellules et macros!
C'est pour cette raison que je veux protéger le fichier !
Cordialement
Dodo.

via55 · Answer

Re

Pour cela tu n'as pas besoin de macro
Dans chaque feuille tu sélectionnes les cellules où les plages de cellules où  seront encodés les résultats et tu les déverrouilles (clic droit - Format de cellule - Protection - Décoche la case Verrouillée
Ensuite tu protèges chaque feuille avec un mot de passe (dans le ruban Révision - Protéger la feuille ...)
Cdlmnt
Via

DodoMichelle · Answer

Re,

Je l'ai déjà fait mais mes macros ne marchent plus!j'ai donc inclus dans chaque macro Active....mais le résultat est le même!
Tu peux regarder dans mon fichier.J'ai besoin des macros pour faire des exemples à titre d'info notamment.
Cordialement.
Dodo.

via55 · Answer

https://mon-partage.fr/f/NsiR8fkV/

Dans This Workbook macro à l'ouverture du classeur qui protège toutes les feuilles avec un mot de passe
Ce mot de passe (admin pour l’instant) est indiqué dans la 1ere ligne :
mdp="admin" 
c'est dans cette ligne et seulement dan celle c que tu dois changer le mot de passe pour le remplacer par le tien
la variable mdp est déclarée public en début du module 10 - Ne ps effacer  cette ligne car c'est e qui permet d’utiliser cette variable dans toutes tes macros (Activesheet.Unprotec mdp)

Ainsi pour modifier le mot de passe il n'y a besoin de le faire qu'une seule fois dans la 1e ligne  la macro de This Workbook

(dans les feuilles Journées j'ai déverrouillé les plages de cellules d'entrée des résultats)

Cdlmnt
Via

DodoMichelle · Answer

Bonjour Via,

Quand j'ouvre le fichier, seule la journée 6 fonctionne, les autres me donnent un message d'erreur.
J'ai changé le mot de passe ( j'ai mis dodo pour essai), même en l'enregistrant "admn" revient après fermeture et réouverture du fichier!
Désolé,il y a certainement quelque chose que je ne fais pas comme il convient!
Cordialement.
Dodo

via55 · Answer

Bonjour Dodo

Le mot de passe en variable mdp ne semble pas fonctionner partout, je n'arrive pas à savoir pourquoi !
J'ai donc mis en début de chaque macro un ActiveSheet.Unprotect "admin" et en fin un ActiveSheet.Protect "admin"
Si tu changes le mot de passe il faudra le changer dans toutes ces lignes de macro et dans celle d'ouverture dans This Workbok
Au lieu d'avoir 6 macros identiques pour le classement (une par feuille) je n'en ai gardé qu'une seule valable pour toutes (avec ActiveSheet au lieu du nom  de la feuille dans la macro), c’est la macro6 
Je pense que la macro qui met des 13 dans certaines cellules était pou tester et que tu ne vas  pas la garder, donc au final tu n'auras que 2 macros dans le modules à modifier + celle de This Worbook

Par contre dans tes feuilles Journées toutes les cellules sont verrouillées et avec la protection on ne peut pas écrire les résultats. Il faut que tu déverrouilles les plages où seront entrées des données

https://mon-partage.fr/f/CqHy09pl/

Cdlmnt
Via

DodoMichelle · Answer

Bonsoir Via,

Tout fonctionne très bien (une fois les cellules déverrouillées)!Sauf que lorsque je change le mot de passe dans les macros et This Workbok ainsi que pour ôter la protection des feuilles en n'en mettant qu'un seul identique( donc toutes les feuilles + macros) j'ai un message d'erreur!
Je pense rien avoir oublié.
En attendant , merci.
cordialement.
Dodo

via55 · Answer

Re

Je pense savoir d'où ça vient, les feuilles conservent l'ancien mdp !
Si tu changes le  mdp dans les macros, tu ôtes la protection dans toutes les feuilles puis tu enregistre le fichier modifié
A l’ouverture les feuille seront reprotégées avec le nouveau mdp par la macro de This Workbook

DodoMichelle · Answer

Re,

Nickel,ce coup ci, c'est le top!J'ai également mis le même MdP pour l'ouverture des macros afin de ne pas identifier le MdP et modifier les macros, les cellules à ne pas toucher sont verrouillées.
Il n'y a plus qu'en s'en servir en grandeur nature!
Merci beaucoup et bon WE à toi.
Cordialement.
Dodo

via55 · Answer

Bien ☺

Bonne suite  et bonne pétanque

Cdlmnt
Via

DodoMichelle · Answer

Bonsoir Via,

C'est encore moi le pétanqueur!

J'ai fait un fichier avec mot de passe "marius" pour essai afin de ne pas toucher aux macros(par principe).Il fonctionne bien mais les macros ne sont pas protégées et je ne comprends pas pourquoi!
je le joins ( si tu peux me dire la raison?)
https://mon-partage.fr/f/p5wlESnS/
Merci pour le nécessaire.
A bientôt.
Dodo.

via55 · Answer

Bonsoir Dodo

1) tu as bien mis un mdp pour VBA mais tu as omis de cocher juste au-dessus Verrouiller le projet pour affichage

2) Après cela pas possible d'accéder au VBA mais le nom  des macros restent visibles dans la fenêtre Macro de l'onglet Développeur et peuvent etre lancées de là (pas forcement gênant) mais si tu veux qu'elles   n'apparaissent pas il faut les déclarer private   dans ton code VBA :
Private Sub Macro1()  etc

Cdlmt
Via

DodoMichelle · Answer

Bonsoir Via,

Exact et c'est parfait comme tu me dis!
Merci encore et encore.......
Bonne soirée;
Dodo.

DodoMichelle · Answer

Bonsoir Via,

Désolé mais j'ai encore un pb avec un fichier  que je te joins avec quelques explications si tu as encore de la ressource à m'accorder!

https://mon-partage.fr/f/K5tWVqNf/

Cordialement
Dodo.

via55 · Answer

Bonjour Dodo

Comme ceci ?
https://mon-partage.fr/f/u33SvO9A/

Cdlmnt
Via

DodoMichelle · Answer

Bonsoir Via,

Trop fort!!
Merci et bon Weekend 
Cordialement.
Dodo.

dodoMichelle · Answer

Bonjour Via,
J'ai de nouveau un pb avec la protection des fichiers.En pièce jointe un fichier dont les macros fonctionnent très bien, dès lors que je le protège,bug!!
J'ai vérifié mes macros, je ne trouve rien d'anormal.
Peux tu m'aider de nouveau sur ce pb?
Cordialement
Dodo
https://mon-partage.fr/f/gyZryWq0/

dodoMichelle · Answer

Via,

J'ai oublié le MdP: marius.
Cordialement.
Dodo

JCB40 · Answer

Bonjour
A tester
 https://www.cjoint.com/c/JCdm5MXXqRf
Cordialement

dodoMichelle · Answer

Bonjour JCB,

Merci pour ta réponse rapide.Le fichier fonctionne mais je n'ai pas trouvé, ni compris ce que tu as modifié!
Peux tu,stp, me préciser?
Cordialement.
Dodo.

JCB40 · Answer

Un exemple sur une de tes macros
Sub Macro12()
'
' Macro12 Macro
'
'ActiveSheet.Unprotect"marius"              tu as mis un' en début de ligne qu'il faut supprimer
'   Application.ScreenUpdating=False    tu as mis un' en début de ligne qu'il faut supprimer
    ActiveWindow.SmallScroll ToRight:=13
    Range("O1").Select
    Application.ScreenUpdating = True
    'ActiveSheet.Protect"marius"                   tu as mis un' en début de ligne qu'il faut supprimer     
    
End Sub
 
--Idem pour toutes tes macros

Cordialement

Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir.  Saint François d'Assise

dodoMichelle · Answer

Bonjour JCB,

Merci pour l'explication, c'est maintenant plus clair pour moi!
Cordialement.
Dodo

Concours de pétanque

35 réponses

Votre réponse

Discussions similaires

Newsletters