Loto Foot (16 grilles simples, MEFC...)

  • Initiateur de la discussion Initiateur de la discussion anthoYS
  • 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 !

anthoYS

XLDnaute Barbatruc
Bonjour,


Sur le fichier joint, des colonnes, des matches.
Le but, alligner à gauche les "1", placer au centre les "N", et à droite les "2".
Ensuite, il y a une colonne résultats. En fonction du résultat colorer les cellules.
Si c'est identique colorer en vert, sinon en rouge.

MEFC s'appliquant de C2:R16.

Le total comptabilise les bons pronostics en fonction du résultat (s'il est exact).
Autrement, comptabiliser les cellules vertes.


Comment faire tout ça ?
On pourra compléter des résultats fictifs.

Merci
 

Pièces jointes

Re : Loto Foot (MEFC, rang, allignement...) ?

Bonjour
Tu ne peux centrer et décaler à droite ou à gauche avec la mise en forme... je te l'ai donc fait en macro...
pour les résultats j'espère que les couleurs te conviennent car je n'ai pas bien pigé ce que tu souhaitai...

A+ François
 

Pièces jointes

Re : Loto Foot (MEFC, rang, allignement...) ?

Les couleurs verte et rouge tu peux le faire avec une mise en forme conditionnelle.
Par contre le résultat j'ai pas compris: pourquoi 1 ou 2 (quel critere?)

A+ François

Oui, c'est vrai merci.
1 si victoire à domicile, 2, si victoire à l'extérieur.
Toute la plage sont des pronos. Et les résultats fixent si j'ai juste ou faux. En fonction de ça on colore en vert ou rouge.
 
Re : Loto Foot (MEFC, rang, allignement...) ?

Bonjour à tous,
Salut François,

Avec le code de Fanfan38 :

VB:
Sub MàJ()
    On Error GoTo erreurStop
    For Lig = 2 To 16
        For Col = 3 To 19
            Select Case Cells(Lig, Col).Value
            Case Is = 1
                With Cells(Lig, Col)
                    .HorizontalAlignment = xlLeft
                    .Interior.ColorIndex = 4
                End With
            Case Is = "N"
                With Cells(Lig, Col)
                    .HorizontalAlignment = xlCenter
                    .Interior.ColorIndex = 6
                End With
            Case Is = 2
                With Cells(Lig, Col)
                    .HorizontalAlignment = xlRight
                    .Interior.ColorIndex = 3
                End With
            End Select
        Next
    Next
erreurStop:
End Sub

A+ à tous
 
Re : Loto Foot (MEFC, rang, allignement...) ?

Comment virer cet avertissement après chaque enregistrement ?

excelD.jpg
 
Re : Loto Foot (MEFC, rang, allignement...) ?

J'ai pas compris le c2=s2...
Pour une mise en forme conditionnelle on selectionne les cellules concernées (ici: c2:r14)
On clic sur "Mise en formr conditionnelle"
On choisis "regle de mise en surbrillance des cellules" et "egal à"
On saisi 1, 2 ou N
On choisi format personnalisé et on choisi la couleur
Voir pièce jointe...
A+ François
 

Pièces jointes

Re : Loto Foot (MEFC, rang, allignement...) ?

J'ai pas compris le c2=s2...
Pour une mise en forme conditionnelle on selectionne les cellules concernées (ici: c2:r14)
On clic sur "Mise en formr conditionnelle"
On choisis "regle de mise en surbrillance des cellules" et "egal à"
On saisi 1, 2 ou N
On choisi format personnalisé et on choisi la couleur
Voir pièce jointe...
A+ François

Non, ce n'est pas la somme que l'on veux en ligne 17 mais le nombre de bon pronostics, soit de case verte.
 
- 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
Retour