XL 2016 Macro pour ventiler des scores de tennis de table

  • Initiateur de la discussion Initiateur de la discussion Goose
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Goose

XLDnaute Occasionnel
Bjr à tous,
suivant le fichier explicatif, j'aimerai obtenir une macro qui ventile, a chaque fin de set, les scores en fonction des noms et du numéro de set ?
merci d'avance
 

Pièces jointes

Bonjour Goose,
Un essai en PJ avec :
VB:
Sub Ventilation()
Dim Nset%, Colonne%, Ligne1%, Ligne2%, Nom$
    If [I3] = [T18] Then Ligne1 = 18 Else Ligne1 = 20   ' calcul N° de ligne nom1
    If Ligne1 = 18 Then Ligne2 = 20 Else Ligne2 = 18    ' calcul N° de ligne nom2
    Nset = [L3]: If Nset = 0 Then Exit Sub              ' acquisition N° de set
    Colonne = Application.Match([L3], [A17:AE17], 0)    ' calcul de la colonne où écrire
    Cells(Ligne1, Colonne) = [I3]                       ' écriture du score1
    Cells(Ligne2, Colonne) = [S3]                       ' écriture du score2
    [I3] = 0: [S3] = 0                                  ' raz des scores
    Nom = [I13]: [I13] = [S13]: [S13] = Nom             ' inversion des noms
End Sub
Je n'ai pas compris le calcul du N° de set. Si L3=3 et P3=3 alors L3+P3+1 ferait 7.
J'ai donc pris le set écrit en L3.
Il vous faut modifier ce point ou donner une explication plus claire. 🙂
 

Pièces jointes

je viens te tester, ça bloque sur la ventilation du premier set car...
la procédure en match est la suivante: (par exemple) le joueur "Jo" arrive au score de 11points contre 5 pour "Alex".
je ventile le score du set et ensuite je rajoute le set au gagnant d’où le raisonnant (L3+P3+1) pour trouver la colonne correspondante !!
 
Nouvelle version
Les Set se fait en automatique pour ne pas avoir à clicker sur 1 set de plus

PS: j'ai eu la chance d'avoir été choisit par Purkart pour faire de la démonstration avec lui
sur quelques balles . Voir dans Google: Démonstration Sécretin - Purkart

Bruno
 

Pièces jointes

Dernière édition:
PS: j'ai eu la chance d'avoir été choisit par Purkart pour faire de la démonstration avec lui
sur quelques balles . Voir dans Google: Démonstration Sécretin - Purkart
tu devais avoir un petit niveau ?
D'autres part impossible d'exécuter tes macros, elles on étaient déactivées malgré les changements de paramètres dans le mode protégé ?!
 
Click sur le fichier avec le bouton droit et fait Propriété
Décoche> Débloquer (en bas à droite)
C'est pénible mais faut en passer par là.

Merci pour le niveau . . .
Il m'a dit je vous ai choisit car je devine votre jeu.
Je faisais smatch sur smath et le dernier coup il a envoyé la balle trés trés haute, quand la balle a rebondit à droite de la table elle est partie direct à gauche avec l'effet qu'il avait mis.
Je jouais surtout avec la même fille qui est devenu championne du Rhône vers 1990
Bruno
 
Moi j'ai fais quelques balles avec Waldner (une autre légende) il y a quelques jours lors de son show avec Persson.
J'ai pu utiliser tes macros...ça fonctionne parfaitement merci !!
Pour finir, peux tu insérer l'inversion des scores et joueurs du 5ème set au 5ème points ?
 
Je pige pas demande plus de précisions . . .
>Pour finir, peux tu insérer l'inversion des scores et joueurs du 5ème set au 5ème points ?
Je sais il faut 3 sets gagnants, si 2 perdus cela fait bien 5 sets
Donc si je comprend au 5ème Set si un joueur arrive à 5 il a gagné, (ou comment faire)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 concours pétanque
Réponses
0
Affichages
191
Réponses
2
Affichages
78
Réponses
4
Affichages
177
Réponses
12
Affichages
356
Réponses
2
Affichages
69
Réponses
11
Affichages
248
Retour