Affecter une couleur a une cellule

Question

Toujours dans l'esprit de réaliser mon projet tournoi, j'ai mis de la couleur pour la composition des équipes. Comme vous pouvez le voir la 16ème de finale les équipes ont été colorées. Je voudrai que l'équipe gagnante qui s'affiche pour jouer le 8ème de finale garde toujours la couleur de l'équipe au départ. Je joins mon fichier https://www.excel-pratique.com/~files/doc2/7m6mAClasseur1.xls Le projet tournoi est presque terminé dans son enseùble il ne reste plus qu'à paufiner le prjet dans son ensemble et avoir une meilleure présentation. Merci d'avance Amicalement Noel...

Usb512 · Answer

Cfn3cfn, une solution de base Le fichier : Mytå...

Usb512 · Answer

Re le forum

Cfn3cfn, voici quelques explications sur la macro

Sub Colorier_MFC()
Dim I As Byte, J As Byte
Dim Cellule As Range, C As Range
Dim Mfc As FormatCondition
Dim Ws1 As Worksheet

'La Cellule à traiter doit contenir une mise en forme conditionelle (Mfc)
'avec la formule =Ma_Mfc

Set Ws1 = Sheets("MFC") 'La feuille qui contient les formats des couleurs
For Each Cellule In Cells.SpecialCells(xlCellTypeAllFormatConditions) 'On boucle sur les cellules avec Mfc
    For I = 1 To Cellule.FormatConditions.Count 'On boucle sur les conditions de la Mfc
        Set Mfc = Cellule.FormatConditions(I)
        If UCase(Left(Mfc.Formula1, 7)) = "=MA_MFC" Then 'Si Mfc est trouvée ...
            Set C = Nothing
            For J = 2 To Ws1.Range("A100").End(xlUp).Row 'On recherche dans la table
            If IsError(Cellule) = True Then Exit For 'Si la cellule est #N/A on sort de la boucle
                If Ws1.Range("A" & J) = Cellule Then
                    Set C = Ws1.Range("A" & J) 'Valeur trouvée on mémorise la cellule
                    Exit For
                End If
            Next J
            If C Is Nothing Then Set C = Ws1.Range("A1") 'Si la mémorisation est vide (Nothing) on prend le format de A1
            C.Copy
            Cellule.PasteSpecial (xlPasteFormats) 'On copie le format
            Application.CutCopyMode = False
        End If
    Next I
Next Cellule
End Sub

Mytå

Usb512 · Answer

Re le forum

Cfn3cfn quelques détails

1 - Tu as déplacé la colonne de noms, alors que la macro utilise A1 et A2:Ax pour les formats. (Corrigeable)

2 - Tu as des cellules fusionnées que la macro ne gère pas. (Corrigeable)

3 - Le nombre de participants devrait être 2, 4, 8, 16 ou 32 joueurs.

Mytå

Usb512 · Answer

Re le forum

Pour les cellules fusionnées modifie la fin du code en ajoutant Selection.Merge

C.Copy 
Cellule.PasteSpecial (xlPasteFormats) 'On copie le format 
 Selection.Merge          
 Application.CutCopyMode = False

Mytå

dubois · Answer

Je travail actuellement sur un projet du même type, Comment organise-tu la trame si 20 équipes ? (par exemple) Faut-il faire un autre schéma ? Amicalement Claude...

Usb512 · Answer

Re le forum

Claude, il faut que le nombre de joueurs soit une puissance de 2.

Un peu d'explication : Tournoi simple élimination

Pour calculer le nombre de participants fictifs

=SI(LOG(A1)/LOG(2)=ENT(LOG(A1)/LOG(2));0;2^ENT(LOG(A1)/LOG(2)+1)-A1)

Mytå

dubois · Answer

Noel, j'ai ouvert un poste pour continuer sur le sujet : https://www.excel-pratique.com/forum/viewtopic.php?t=13142 Amicalement Claude...