Pétanque

Bonjour à tous, Forum,

Tu as tout à fait raison, Claude, pour le tirage au sort car il s'agit à ce niveau d'un tournoi amical qui n'a rien d'officiel. Par contre, je serais très intéressé par une formule de tournoi où l'on puisse inscrire + de 100 participants (mon club compte + de 400 licenciés...).

Mais si tu n'as pas le temps, ne te creuse pas la tête pour ça... Ou indique moi ce qu'il faudrait faire si c'est dans mes compétences...

J'attends ton "Pétanque_projet8" avec impatience...

Encore un grand bravo à toi pour ton travail.

Amicalement,

Bonjour à tous,

Voilà ce qu'on peut raisonnablement obtenir,

je me suis pris la tête avec les compatibilités !

j'arrête là

Amicalement

Claude

Bonjour à tous, Forum,

Claude, je n'arrive pas à tester ton dernier fichier car il m'affiche une "référence circulaire" en colonne S de l'onglet "Tournoi" et une également en B1 de l'onglet "Liste".

J'ai déprotégé le fichier pour tenter de trouver la solution mais sans succès...

A te relire.

Amicalement.

re,

çà venait de la feuille "Listes" en B1

=NBVAL(B:B)-3 devient

=NBVAL(B5:B1000)

Comme il y avait aussi des #N/A en colonne "G" voici un nouveau fichier

Claude

Bonjour à tous, Forum,

Je vais me répéter mais super boulot que ce fichier "Mêlée-démêlée"

Simple, rapide, très efficace, vraiment du travail de pro.

Merci à toi, Claude, d'avoir augmenté la capacité du nombre de participants... Et merci aussi à toi pour toutes tes interventions judicieuses sur ce forum...

Amicalement.

Bonjour Claude, Bonjour Fabrice, Bonjour tout le monde

Moi aussi, j'avais la même blague que Fabrice avec la référence circulaire.

Maintenant, lorsque j'appuie sur le bouton "inscrire", j'ai le message suivant :

"Erreur d'exécution 438"

Propriété ou méthode non gerée par cet objet.

Que dois-je faire ?

Encore merci à Claude pour son temps passé pour nous.

Gene

Bonjour à tous,

Geneviève,

ne bidouille pas ! change carrément le fichier,

Si le bug persiste, essaye de localiser la ligne de code avec Débogage

apparemment Fabrice n'a pas ce problème.

Amicalement

Claude

Bonjour Claude,

Que veux-tu dire par bidouller ?

Je télécharge ton fichier, je clique sur "nouveau concours" ensuite, je vais dans liste, et pour faire un essai je supprime simplement des croix et j'arrive à 24 joueurs et puis je clique sur "insrire" et là je reçois le message dont je te parlais plus haut.

J'ai appuyé sur débogage et la phrase " If Application.IsEven(Range("b1") / 2) Then 'pair" se met en fluo.

Que dois-je faire ?

Bonjour à tous,

Bonjour Geneviève, Claude,

Je viens de tester avec 24 équipes et tout semble fonctionner parfaitement de mon côté, en doublette comme en triplette...

Je n'arriva pas à reproduire l'erreur de Geneviève. Re-tente peut-être un nouveau chargement et relance la manip...

Bon courage.

Amicalement.

Geneviève,

Quand je parle de "bidouiller", je veux dire modifier en partie le fichier,

soit les formules soit un bout de code.

Est-tu sûre d'avoir la dernière version "Pétanque_Mêlée-démêlée2" ?

d'après ce que tu dis,

le problème vient de la feuille "Listes", retire la protection et vérifie "B1"

tu ne remarque pas d'anomalies, la formule est bien =NBVAL(B5:B1000) ?

Le mode de calcul est-il bien en automatique ?

Pas de panique ! on va trouver

Claude

Je suppose que j'ai bien la dernière version, car à chaque fois je la retélécharge. Le programme me dit qu'il y a déjà ce dossier et demande s'il faut l'écraser et je dis "oui". Mais j'ai toujours le problème. Sur la feuille liste en B1 j'ai bien la formule suivante : =NBVAL(B5:B1000)

Il faudra que j'essaie chez moi sur un autre ordinateur

re,

Vaudrait mieux supprimer les fichiers précédents et recharger

Quand tu ajoute ou supprime des croix, la formule en B1 suit bien ?

tu est bien sur une version Excel 2007 ou 2003 ?

Sinon, on peut essayer de remplacer cette ligne de code qui bogue :

If Application.IsEven(Range("b1") / 2) Then 'pair

par :

If Application.WorksheetFunction.IsEven(Range("b1") / 2) Then 'pair

à te relire

Claude

Je suis sur EXCEL 2000

re,

merci de répondre à chacune de mes questions,

sinon on va pas y arriver !

remets ton profil matériel à jour

Vaudrait mieux supprimer les fichiers précédents et recharger : Réponse : S'est fait

Quand tu ajoute ou supprime des croix, la formule en B1 suit bien ? Réponse : Oui

tu est bien sur une version Excel 2007 ou 2003 ? Réponse : Non, je suis sur Excel 2000

Sinon, on peut essayer de remplacer cette ligne de code qui bogue :

Code: Tout sélectionner

If Application.IsEven(Range("b1") / 2) Then 'pair

par :

Code: Tout sélectionner

If Application.WorksheetFunction.IsEven(Range("b1") / 2) Then 'pair : Réponse : Je l'ai fait mais çà bogue toujours

à te relire

ClaudeFaire simple, c'est ce qui est le plus compliqué ! et vice versa (à méditer)dubois

Maître Excel

Messages: 6616

Inscription: 08 Déc 2007, 12:03

Localisation: MEUDON région parisienne

Version Excel: Vista Office 2007FR

Message privé

re,

peut-être que "IsEven" n'est pas reconnu sur Excel 2000

essaye de remplacer la ligne qui bogue par :

If Range("b1") / 2 Mod 2 = 0 Then

çà devrait marcher

Claude

Voilà, je viens d'essayer et ça marche avec 24 joueurs.

Mais avec 26, j'ai le message suivant :

Else

If Range("b1") Mod 2 = 0 Then

If Application.IsOdd(Range("b1") / 2) Then 'impair

Rep = MsgBox("Ok pour " & Nbj & " joueurs en doublette" & Chr(10) & _

"l'équipe " & Range("b1") / 2 & " gagne le tour" & Chr(10) & _

"confirmez ?", vbYesNo + vbCritical + vbDefaultButton2, "Inscription")

If Rep = vbNo Then End

Range("b2") = 2

Dois-je changer avec la même phrase ?

Pas tout à fait <> 0 au lieu de =0

essaye avec

If Range("b1") / 2 Mod 2 <> 0 Then

là je ne suis pas sûr pour toutes les quantités, il faudra tester

Claude

Merci Claude pour le temps passé avec moi.

Ca marche

Gene

Bonsoir à tous,

A se rappeler que les fonctions EstPair ; EstImpair

IsEven et IsOdd

ne sont pas reconnues par Excel 2000

Je remet ici une version corrigée pour ceux qui ont suivi ce fil

Amicalement

Claude