Formules tournoi

[patate38]

Bonsoir,
Je voudrais de l'aide SVP pour un tournoi de hand, calculer les séries de victoires ou défaites.
En espérant avoir bien formulé ma demande dans le document joint.
Je vous remercie bien.

 

[R@chid]

Re : Formules tournoi

Bonsoir,
voir si j'ai bien compris la demande.


@ + +

 

[patate38]

Re : Formules tournoi

Bonsoir,
ça marche très bien. Est on obliger de passer par l'étape des colonnes F et G ?
Comment faire lorsqu'on a Jaune-Rouge dans une cellule et que l'on veut mettre chacun dans une cellule différente sans le -
Même question pour le score 20-18 (devient 20 puis 18 sans le -).
Merci en tout cas pour cette réponse efficace.

 

[R@chid]

Re : Formules tournoi

Re,
pas claire ta demande..
Tu peux le faire avec Données/Convertir pour les séparer en deux cellules différentes.


@ + +

 

[JBARBE]

Re : Formules tournoi

Bonjour à tous,

Peut-être ceci mais résolu avec macro et en cliquant sur le bouton GO !

bonne journée !

 

[patate38]

Re : Formules tournoi

Bonjour JBARBE,
Très pratique mais je ne sais pas utiliser le macro, or je voudrais changer à souhait le nombre de club, leurs noms, leurs résultats.
Je réitère ma question comment séparer ou enlever des caractères placés dans une même cellule et les placer dans 2 cellules distinctes. Merci pour votre proposition.
Regarde la pièce jointe Fractionner cellule.xlsx

 

[JBARBE]

Re : Formules tournoi

Bonjour JBARBE,
Très pratique mais je ne sais pas utiliser le macro, or je voudrais changer à souhait le nombre de club, leurs noms, leurs résultats.

Chose faite !

Néanmoins les totaux commencent à la colonne 25 qu'il conviendra de modifier s'il y a lieu dans les lignes suivantes repérées par ' colonne 24 ( avant les totaux) & colonne 25 & colonne 26 & colonne 27 en vert !

Sans oublier de modifier dans le gestionnaire de noms, la "Zone_Saisie " concernant les cellules concernées par la couleurs !

For k = 8 To 24 ' colonne 24
If Cells(i, 3) > Cells(i, 4) And Cells(j, k) = "" Then
Cells(j, k) = "V"
Cells(j, k).Interior.ColorIndex = 23
Cells(j, 25) = Cells(j, 25) + 1 ' colonne 25
Cells(j, 25).Interior.ColorIndex = 23 ' colonne 25
Exit For
ElseIf Cells(i, 3) < Cells(i, 4) And Cells(j, k) = "" Then
Cells(j, k) = "D"
Cells(j, k).Interior.ColorIndex = 3
Cells(j, 26) = Cells(j, 26) + 1 ' colonne 26
Cells(j, 26).Interior.ColorIndex = 3 ' colonne 26
Exit For
ElseIf Cells(i, 3) = Cells(i, 4) And Cells(j, k) = "" Then
Cells(j, k) = "N"
Cells(j, k).Interior.ColorIndex = 6
Cells(j, 27) = Cells(j, 27) + 1 ' colonne 27
Cells(j, 27).Interior.ColorIndex = 6 ' colonne 27
Exit For
End If
Next k

For n = 8 To 24 ' colonne 24
If Cells(l, 3) < Cells(l, 4) And Cells(m, n) = "" Then
Cells(m, n) = "V"
Cells(m, n).Interior.ColorIndex = 23
Cells(m, 25) = Cells(m, 25) + 1 ' colonne 25
Cells(m, 25).Interior.ColorIndex = 23 ' colonne 25
Exit For
ElseIf Cells(l, 3) > Cells(l, 4) And Cells(m, n) = "" Then
Cells(m, n) = "D"
Cells(m, n).Interior.ColorIndex = 3
Cells(m, 26) = Cells(m, 26) + 1 ' colonne 26
Cells(m, 26).Interior.ColorIndex = 3 ' colonne 26
Exit For
ElseIf Cells(l, 3) = Cells(l, 4) And Cells(m, n) = "" Then
Cells(m, n) = "N"
Cells(m, n).Interior.ColorIndex = 6
Cells(m, 27) = Cells(m, 27) + 1 ' colonne 27
Cells(m, 27).Interior.ColorIndex = 6 ' colonne 27
Exit For
End If
Next n

bonne journée !

 

[patate38]

Re : Formules tournoi

Bonjour,
Désolé mais je n'arrive pas à le faire, quelle marche à suivre, je suis débutant en macro.

 

[JBARBE]

Re : Formules tournoi

En gras les N° de colonnes des totaux à changer s'il a lieu

Clic droit sur le bouton GO >> affecté une macro >> modifier


For k = 8 To 24 ' colonne 24 est la colonne avant les totaux colonne 25 & 26 & 27
Cells(j, 25) = Cells(j, 25) + 1 ' colonne 25 est le début des totaux
Cells(m, 25) = Cells(m, 25) + 1 ' colonne 25 idem
Cells(j, 25).Interior.ColorIndex = 23 ' colonne 25 est la coloration en bleue de la colonne 25
Cells(m, 25).Interior.ColorIndex = 23 ' colonne 25 idem

Cells(j, 26) = Cells(j, 26) + 1 ' colonne 26
Cells(j, 26).Interior.ColorIndex = 3 ' colonne 26
Cells(m, 26) = Cells(m, 26) + 1 ' colonne 26
Cells(m, 26).Interior.ColorIndex = 3 ' colonne 26

Cells(j, 27) = Cells(j, 27) + 1 ' colonne 27
Cells(j, 27).Interior.ColorIndex = 6 ' colonne 27
Cells(m, 27) = Cells(m, 27) + 1 ' colonne 27
Cells(m, 27).Interior.ColorIndex = 6 ' colonne 27


Puis :

Formules > gestionnaire de noms > adapter le nom " Zone_Saisie " ici : H2 : AA9

@+

 

[JBARBE]

Re : Formules tournoi

Les totaux ont été reportés de la colonne 35 à 37

For k = 8 To 34 ' colonne 34 a été reporté à la colonne 34

For n = 8 To 34 ' colonne 34 idem !

Formules > gestionnaire de noms > le nom " Zone_Saisie " ici : H2 : AK9

 

[patate38]

Re : Formules tournoi

Bonjour,
J'aimerais essayer jusqu'à la colonne AV (total de AT à AV). Club jusqu'à la ligne 21. A voir.

Merci pour l'explication

 

[JBARBE]

Re : Formules tournoi

J'ai prévu 100 tournois pour 100 équipes ! (modifié à 20h38)

Il vaut mieux voir grand !

bonne soirée !

 

[patate38]

Re : Formules tournoi

merci pour ce nouvel essai, je vais tester avec un cas concret.
Bonne soirée

 

[JBARBE]

Re : Formules tournoi

Un essai effectué avec 30 équipes et 20 tournois !

bonne soirée !

 

[patate38]

Re : Formules tournoi

Bonjour,
Cette dernière version me convient mieux. Comment faire alors un tournoi avec 20 équipes et matchs aller retour (38 matchs).
Merci encore pour ce travail fourni.
Bonne journée