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,
Dans le 5ème set si c'est tous les 5 points je verrai plus comme cela:
VB:
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 !
 
Dernière édition:
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 !!
 
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 ?!
 
>>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.
 
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
 

Pièces jointes

- 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