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

 

[Goose]

Non seulement arrivé a 5 !!

 

[youky(BJ)]

Voici je pense que c'est bon
Une seule fois si 5

 

[piga25]

Bonjour,
Dans le 5ème set si c'est tous les 5 points je verrai plus comme cela:

Sub verifSet()
If [I3] + [S3] = 0 Then Exit Sub
If [L3] + [P3] = 4 Then
If ([I3] + [S3]) Mod 5 = 0 And [I3] + [S3] >= 5  Then
MsgBox "Changement de coté", vbExclamation, "CHANGE"
Inverse = [I13]
[I13] = [S13]: [S13] = Inverse
Inverse = [I3]
[I3] = [S3]
[S3] = Inverse
Exit Sub
End If
End If
If [I3] > 10 And [S3] < [I3] - 1 Then
MsgBox "Changement de SET", vbExclamation, "Bravo " & [I13]
[L3] = [L3] + 1
ventiler
Exit Sub
End If
If [S3] > 10 And [I3] < [S3] - 1 Then
MsgBox "Changement de SET", vbExclamation, "Bravo " & [S13]
[P3] = [P3] + 1
ventiler
End If
End Sub

Il vous restera ensuite à attribuer les points supplémentaires avec les cartons !

 

[Goose]

Bjr youky et piga,
merci pour ces codes, cependant encore une petite erreur lorsque les deux joueurs sont a 5-5 dans le 5è set.
la msgbox me redemande le changement de côté ?!...dans notre réglementation, le changement n'intervient qu'une seule fois dans le 5ème set !!

 

[piga25]

Bonjour Goose, Youky

merci pour ces codes, cependant encore une petite erreur lorsque les deux joueurs sont a 5-5 dans le 5è set.

Vous pouvez être plus précis sur cela.
Vous pouvez mettre un exemple pour ce 5ème set
Si une seule fois dans le 5ème set, à quelle moment (pts) cela arrive.

 

[Goose]

Re, dès qu'un des deux joueurs arrive à 5pts, on change de côté une seule fois (par exemple: à 4-5 ou 5-1, etc...)

 

[youky(BJ)]

Voici comme demandé
Bruno
Bonjour Piga25

 

[Goose]

Merci youky, il n'y plus de MsgBox a la fin du 5ème Set ?

 

[youky(BJ)]

Test le fichier
Lors du 5ème Set si un des 2 joueurs arrive à 5 Msgbox changement
Aprés plus de changement jusqu'a l'appui sur CLEAR
Bruno

 

[Goose]

Excellent c'est ce que je voulais merci, cependant pour finaliser le match j'aimerai avoir un msgbox pour ventiler le score du 5ème set et ensuite mettre tous à zéro ?

 

[youky(BJ)]

J'avais vu ce manque que j'ai rectifié.
A toi de voir si tu veux conserver certains boutons
Voici la V9
A savoir j'ai pas été classé car impossible de faire des tournois les samedi (commercant),
mais me positionnait dans les 30
Bruno

 

[Goose]

On arrive au bout, merci pour ta compréhension:
petit détail:
1-pourquoi utilises tu Y13 pour stocker 1 si ventile à 5 fait ?
moi j'avais penser à si L3+P3+1=5 !!?
2-la msgbox "changement de SET" apparait quand le match est gagné 3-1 ou 3-0 ?
ça devrait afficher "Fin du match" non ?!

 

[youky(BJ)]

>>2-la msgbox "changement de SET" apparait quand le match est gagné 3-1 ou 3-0 ?
Yes je ne m'en suis pas rendu compte. . .je vais rectifier demain
Je suis obliger d'utiliser une celleule ou mettre une variable en Public qui occupe plus de mémoire.
J'ai choisit [Y13] sous le bouton c'est discret
>>>si L3+P3+1=5.....ne va pas mais rien ne t'empêche de faire des essais.

 

[youky(BJ)]

Salut bien,
Dans ce fichier j'ai mis des controls ActiveX au lieu des autres car je protège l'onglet sans MP
et tes boutons restaient inactifs.
J'ai mis un code en workbook_open qui permet à la macro d'écrire sur l'onglet protégé.
Avec mes tests en tous sens je pense que maintenant c'est à toi de jouer et y a de quoi faire . . .
Bruno

 

[Goose]

merci pour ce gros boulot, je regarde ça demain et je te dis !!
@+