Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Macro pour ventiler des scores de tennis de table

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

  • LiveScore5.xlsm
    28.3 KB · Affichages: 9

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

  • LiveScore5.xlsm
    21.6 KB · Affichages: 2

Goose

XLDnaute Occasionnel
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)

XLDnaute Barbatruc
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

  • LiveScore7.xlsm
    24.9 KB · Affichages: 5
Dernière édition:

Goose

XLDnaute Occasionnel
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)

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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)

XLDnaute Barbatruc
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)
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…