Formules tournoi
- Initiateur de la discussion patate38
- Date de début
R@chid
XLDnaute Barbatruc
Re : Formules tournoi
Bonsoir,
voir si j'ai bien compris la demande.
@ + +
Bonsoir,
voir si j'ai bien compris la demande.
@ + +
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.
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
XLDnaute Barbatruc
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.
@ + +
Re,
pas claire ta demande..
Tu peux le faire avec Données/Convertir pour les séparer en deux cellules différentes.
@ + +
JBARBE
XLDnaute Barbatruc
Re : Formules tournoi
Bonjour à tous,
Peut-être ceci mais résolu avec macro et en cliquant sur le bouton GO !
bonne journée !
Bonjour à tous,
Peut-être ceci mais résolu avec macro et en cliquant sur le bouton GO !
bonne journée !
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
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
XLDnaute Barbatruc
Re : Formules tournoi
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 !
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 !
Dernière édition:
Re : Formules tournoi
Bonjour,
Désolé mais je n'arrive pas à le faire, quelle marche à suivre, je suis débutant en macro.
Bonjour,
Désolé mais je n'arrive pas à le faire, quelle marche à suivre, je suis débutant en macro.
JBARBE
XLDnaute Barbatruc
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
@+
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
@+
Dernière édition:
JBARBE
XLDnaute Barbatruc
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
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
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
Bonjour,
J'aimerais essayer jusqu'à la colonne AV (total de AT à AV). Club jusqu'à la ligne 21. A voir.
Merci pour l'explication
JBARBE
XLDnaute Barbatruc
Re : Formules tournoi
J'ai prévu 100 tournois pour 100 équipes ! (modifié à 20h38)
Il vaut mieux voir grand !
bonne soirée !
J'ai prévu 100 tournois pour 100 équipes ! (modifié à 20h38)
Il vaut mieux voir grand !
bonne soirée !
Dernière édition:
Re : Formules tournoi
merci pour ce nouvel essai, je vais tester avec un cas concret.
Bonne soirée
merci pour ce nouvel essai, je vais tester avec un cas concret.
Bonne soirée
JBARBE
XLDnaute Barbatruc
Re : Formules tournoi
Un essai effectué avec 30 équipes et 20 tournois !
bonne soirée !
Un essai effectué avec 30 équipes et 20 tournois !
bonne soirée !
Dernière édition:
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
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
Discussions similaires
- Question
- Question
