XL 2016 Macro pour ventiler des scores de tennis de table

[Goose]

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

 

[sylvanu]

Bonjour Goose,
Un essai en PJ avec :

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.

 

[Goose]

Merci pour ta réponse, je regarde ça et te dis !!
pour les sets, c'est comme au tennis, on ne va pas au-delà de 5 sets au total

 

[Goose]

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 !!

 

[youky(BJ)]

Bonjour tous
En tant qu'ancien ponguiste, je mets mon truc
Bruno

 

[Goose]

Merci bruno, ça ma l'air pas mal, seul petit problème, ta macro ventile les sets et non les points ?

 

[youky(BJ)]

Alors comme ca,
Macro modifiée
Bruno

 

[youky(BJ)]

Hello,
j'ai encore changé ca doit être OK maintenant
Bruno

 

[youky(BJ)]

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

 

[Goose]

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é ?!

 

[youky(BJ)]

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

 

[Goose]

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 ?

 

[youky(BJ)]

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)

 

[Goose]

en compétition, au 5ème set, dès que l'un des joueur arrive à 5 pts, on change de côté..donc il faut inverser les scores en cours !!

 

[youky(BJ)]

En 1980 à 1990 on allait en 21.
Donc je change si un joueur arrive à 5 ou 10 ou 15 si 5ème SET
Bon service