MFC spéciale Résolu

Question

Bonjour, 
Dans le fichier ci-joint je cherche à mettre une MFC répondant à critères explications dans le fichier.
 https://www.cjoint.com/c/IKqqvVoEBMh
Pas trouvé de solution
Merci pour votre aide



Configuration: Windows / Firefox 70.0

Mike-31 · Answer

Bonsoir,
si on reprend ton fichier, ligne 2 tu as deux fois 1 que tu colorises et deux fois 2 dont tu n'en colorise qu'un et une fois 3 qui est supérieure que tu ne colorises pas ce qui n'est pas logique d'après ce que tu as écris 
"Quelle MFC appliquer par ligne pour mettre en rouge la cellule qui contient un chiffre supérieur ,à  2 chiffres identiques présent dans cette même ligne." tu as deux fois 1 et deux fois 2 qui devraient être colorisées en bleu et en rouge la cellule contenant 3 en rouge parce que supérieure

via55 · Answer

Bonjour à vous deux

Par MFC je ne vois pas non plus
Par macro :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:H4")) Is Nothing Then
col = Target.Column
ligne = Target.Row
verif = False
For n = 2 To col - 1
a = Application.WorksheetFunction.CountIf(Range(Cells(ligne, 2), Cells(ligne, col - 1)), Cells(ligne, n))
If a > 1 And Target.Value > Cells(ligne, n) Then verif = True
Next
If verif = True Then Cells(ligne, col).Interior.Color = 255 Else Cells(ligne, col).Interior.Pattern = xlNone
End If
End Sub 

Cdlmnt
Via

via55 · Answer

Bonjour JCB

Comme je te le disais précédemment la solution passe par une macro que je t'indiquais
https://mon-partage.fr/f/jXAXTBW0/

J'ai appliqué la macro à la feuille 1
En feuille 2 même type de macro mais qui au lieu de colorer en rouge empêche de rentrer la valeur non valide

Par contre si c'est pour répondre aux attentes de gigipong il parlait dans sa demande du cas supplémentaire des équipes féminine qui n'est pas pris en compte ici, mais il sera facile d'adapter le macro dans ce sens

Cdlmnt
Via

via55 · Answer

Normal le bug si on selectionne plusieurs cellules
Pour pallier cela rajoute avant le 1er IF cette ligne
If Target.Cells.Count > 1 Then Exit Sub

Pour les féminines quel est exactement les conditions à prendre en compte je n'ai pas trop compris l'histoire de 10 possible

DjiDji59430 · Answer

Bonjour à tous,

en formule :
https://www.cjoint.com/c/IKrlP5V2J8O


Crdlmt

via55 · Answer

Bonjour DjiDji

Ta formule de MFC est intéressante mais ne fonctionne pas selon l'attente, ainsi en G3 elle autorise les valeurs 3 et 4 qui sont interdites puisque deux fois 2 dans les cellules précédentes il ne peut y avoir de nombre supérieur à 2

Cdlmnt

JCB40 · Answer

Re bonjour 
Me voila de retour avec les féminines regardes si tu peux faire quelque  chose explications avec le fichier
  https://www.cjoint.com/c/IKroevnAEDh
Crdlt

via55 · Answer

Re

Si j'ai compris comme il faut :
https://mon-partage.fr/f/qZ3lWoCS/

Cdlmnt

JCB40 · Answer

Bonjour,
Me revoilà de retour après vérification il y a un HIC   explications dans le fichier 
 https://www.cjoint.com/c/IKsjjrd3Byh
Merci pour ton aide

via55 · Answer

Re

Pas sur de comprendre !
Tu veux dire par exemple que si en J1 il a été joué en 8 et en J2 en en 7 il ne sera possible en J3 que de jouer en 8 ou inférieur ? et si en J3 il est joué en 5 par ex , cela ne change rien on peut jouer en 8 ou inférieur ?
Par contre si en J1 c'est 8 et en J2 c'est 11, en J3 on peut jouer en 11 et en dessous ?

Cela reviendrait à dire qu'en J2 on peut jouer en n'importe quoi mais qu'à partir de J3 on ne peut pas jouer au dessus du max des journées précédentes, non ?

Et il n'y a plus de différence masculin féminin ?

JCB40 · Answer

Re 
Pas évidant Si tu joues 1*en 1    1*en2 tu ne peux pas jouer en 3
                                 ""       1*en 5    1* en 4 tu ne peux pas jouer en6
                                  ""      1*  en 3   1* en 4   1*  en 3  tu ne peux plus jouer en4
Par contre si en J1 c'est 8 et en J2 c'est 11, en J3 on peut jouer en 11 et en dessous ?   OUI
Cela reviendrait à dire qu'en J2 on peut jouer en n'importe quoi mais qu'à partir de J3 on ne peut pas jouer au dessus du max des journées précédentes, non ?    EXACT

Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir
Si la réponse vous satisfait, le merci à gauche vous attend.

via55 · Answer

Tu me dis exact mais ton dernier exemple contredit cela, car on ne peut pas jouer au dessus du max impliquerait qu'on ne peux pas jouer en 5 mais dans dans ton ex tu dis on ne peux plus jouer en 4
Ce qui voudrait dire que la règle du doublon s'applique aussi, le max est 4 mais comme il y a deux 3 on ne peut plus jouer au-dessus et donc pas en 4 ??

via55 · Answer

Dans ce cas plus besoin de macro une MFC devrait suffire
Voir si celle appliquée dans la feuille Brulage (2) convient
https://www.cjoint.com/c/IKsltcAxZvv

JCB40 · Answer

je viens de regarder pour les masculins c'est pas  bon 
Exemple 1  6  3  2  4  le 4 aurait du passer en rouge  il y a mieux avant 1 3 voire 2

Pour les féminines c'est pas bon
exemple   10  8  7  9   11    le 9 aurait du passer en rouge  (8 et 7) étant meilleurs 
le 11 est passé en rouge alors qu'il aurait du resté sans couleur puisque 10 et 11 font partis du championnat féminin
Peut-être faut il faire un tableau spécial féminine en tenant compte des  2 championnats mais en scindant
de 1  à  9    et  10 à 11

JCB40 · Answer

Bonsoir Via 
Pour les masculin j'ai trouvé uniquement par MFC
 https://www.cjoint.com/c/IKsrinmrZyh
Maintenant reste à trouvé pour les féminines

via55 · Answer

Re

J'étais absent cet aprem

Résumons :
Pour les hommes comme pour les femmes n° de 1 à 9, brulage par rapport aux 2 plus petits n° précédemment, dans ton exemple 1 6 3 2, ne peut donc venir après que 1 ou 2
Pour les femmes en plus sont acceptés 10 et 11 dans tous les cas 
Donc pas besoin d'un tableau spécial féminine

Merci de me confirmer que je raisonne enfin correctement
Si c'est bien le cas je pense que la macro est inutile et qu'une MFC suffira

JCB40 · Answer

je me demande si le fichier en post 26 en mettant une MFC avec <=  si cela  fonctionnerait 
Par contre j'ai des soucis pour faire cette MFC  peux tu m'expliquer

via55 · Answer

Je pensais pouvoir tout régler par MFC avec PETITE.VALEUR pour récupérer les deux plus petites valeurs mais non car en cas de plusieurs valeurs identiques ex 8 7 7 les deux plus petites valeurs seront 7 et 7 et excluraient le 8 ... bref je suis reparti sur une autre macro , une colonne rajoutés pour le sexe et une validation de données pour empêcher selon le sexe d'aller au delà de 9 ou de 11
https://www.cjoint.com/

J'espère que cette fois on arrive à quelque chose de correct ☺

JCB40 · Answer

Bonjour via 
Merci pour ce que tu fais 
là je commence à désespérer  coriace comme fichier
Bonne journée

JCB40 · Answer

Re bonjour
je ne sais pas si tu es sur le sujet ,mais tu laisses tomber pour les filles le club en a décidé.
Ils vont créer une autre équipe féminine donc il n'y aura plus assez de filles pour jouer en masculin

via55 · Answer

Bonjour

Pour moi j'ai fini pour l’instant je t'ai envoyé le fichier hier (message 30) , tu ne l'as pas vu ?
Il est pour garçons et filles mais teste le, s'il fonctionne comme tu veux je modifierai la macro pour avoir une macro pour une feuille garçon uniquement

JCB40 · Answer

Bonjour

Message 30 lien inactif il en manque un bout

via55 · Answer

Mince je n'avais pas vu !

Du coup j'en ai profité pour refaire pour brulage masculin uniquement
https://www.cjoint.com/c/IKtpbF1yCZP

JCB40 · Answer

C'est impeccable j'ai du modifier un peu ton code et cela fonctionne très bien.
Dans le code tu as mis min 1 et min 2 il fallait tout mettre en min 1.
Maintenant peux  tu me dire ce que je dois modifier si j'insère une colonne avant colonne A
afin de pouvoir recentrer mon tableau.

via55 · Answer

Si tu mets tout en min1 si 2 fois le même nombre ce sera seulement celui là qui sera pris en compte mais c'est peut être ce que tu veux, j'arrive à m'y perdre !
Si tu insères une colonne il faut modifier dans la macro la plage dans la ligne
If Not Intersect(Target, Range("D4:H200")...
et modifier aussi la plage  dans la macro tri les lignes avec.Range("A4:H123")
et dans 
ActiveWorkbook.Worksheets("Brulage").Sort.SortFields.Add Key:=Range("A4")
changer le A4 en B4

JCB40 · Answer

Bonjour
Comment je fais pour accéder a la plage des données pour avoir 10 équipes au lieu de 9 1/1/2020 10équipes
Je n'ai pas trouvé la solution 
Cordialement

via55 · Answer

Bonjour

Sélectionne la plage B4:H123 puis Données - Validation de données et change le maximum 

Cdlmnt

JCB40 · Answer

Re bonjour
Sur l'exemple que tu m'as renvoyé le 19 après encore un test j'ai décelé une faille 
Je viens de m'apercevoir que
2  1  2  1   2     dernier 2 doit être en rouge
4  3  4  3  4      dernier 4 doit être en rouge
ça ne fonctionne pas quand il n' y que  1 d'écart entre les chiffres

explication dans le fichier
 https://www.cjoint.com/c/IKuoUnI8qDh

via55 · Answer

Re

https://www.cjoint.com/c/IKur0aSPxEP

Cela devrait mieux aller ainsi

JCB40 · Answer

Bonjour via55
Merci pour toute ton aide cela fonctionne très bien pour l'instant
l'avenir nous confirmera.
A titre préventif sur le dernier fichier que tu m'as envoyé ,est-il possible de trouver une solution pour  que le 
brulage des filles si elles jouent en masculin soit pris en compte dans le championnat masculin 
indépendamment du brulage  championnat féminin
A titre indicatif  j'ai augmenté les données à 12 équipes et j'ai mis a droite de la colonne noms une colonne où l'on met M  ou F
Merci encore 
Bonne journée
Cordialement

via55 · Answer

Bonjour JCB

Les équipes filles sont 10, 11, 12 alors
Si une fille joue d’abord en 11 puis en 10 elle pourra jouer ensuite en 8 masculin 
Elle pourra rejouer ensuite en 10 ou 11 mais elle ne pourra pas jouer en 12 (puisque mini 10 et 11) ?
puis si elle joue ensuite en 7 masculin elle ne pourra plus après  jouer en 9 (mini 8 et 7) ?
Pour elle il y a donc 2 brulages

Merci de me confirmer et de me renvoyer ton fichier tel que tu l'as modifié

Bonne journée également
Cdlmnt

Via

JCB40 · Answer

Re Bonjour Via55 
Ton commentaire pour les 2 brulages est juste ,il faut cependant que les 2 brulages soient indépendant
l'un de l'autre 1 brulage en fille et un brulage si elle jouent en masculin
Ci dessous le fichier considéré fini .
 https://www.cjoint.com/c/IKvpOCUX2zh
Crdlt

via55 · Answer

Re

La macro de ton fichier considéré comme fini avait encore des erreurs (du aux rajouts de colonnes)
J'ai planché sur les brulages des filles et je pense que j'ai pu les intégrer correctement dans la macro
Fais tous les tests nécessaires et tu me diras
https://www.cjoint.com/c/IKwamDQNQkP

Cdlmnt

JCB40 · Answer

Bonjour 
Problème avec les féminines explications dans le fichier
 https://www.cjoint.com/c/IKwld0dRNTh
Cordialement

via55 · Answer

Bonjour

On va finir par y arriver !
https://www.cjoint.com/c/IKwoKwBlluP

Cdlmnt

via55 · Answer

Re

Je ne lâcherai pas l'affaire tant que tout ne fonctionnera pas correctement
Espérons que cette fois c'est la bonne 
https://mon-partage.fr/f/EJghyJyf/

JCB40 · Answer

Bonjour
Je suis toujours là avec mes problèmes
 https://www.cjoint.com/c/IKxlhXURgHh 
Crdlt

via55 · Answer

Bonjour JCB

 Désolé c'est de ma faute !
J'avais omis un and Cells(ligne, n) <> minF dans la partie feminin du brulage feminin alors que je l'avais mis dans la partie brulage masculin, arf !

https://mon-partage.fr/f/dqBpJ2SP/
 
Cdlmnt

JCB40 · Answer

Re alors là quoi dire...
Cela à l'air de fonctionner normalement 
en masculin 
en féminine 
et féminine dans le championnat masculin 
Par contre je vais encore abuser de ton savoir
peux tu me remettre les messages "BF" et "BM"
Cordialement

via55 · Answer

Il suffit de compléter ces 2 lignes de la macro
  ' coloration cellule
         If Target.Value < 10 And Target.Value > bruleM Then Cells(ligne, col).Interior.Color = 255
        If Target.Value > 9 And Target.Value > bruleF Then Cells(ligne, col).Interior.Color = 255
 la 1ere par 
:Msgbox "BM"
 la 2nde par 
:Msgbox "BF"

JCB40 · Answer

Si je mets comme tu dis au moment du brulage ex  1   2   3  les 2 messages apparaissent l'un derrière l'autre

via55 · Answer

Sans doute parce que tu as rajouté après les lignes et non à la fin des lignes comme je disais
Ta macro modifiée doit donner ceci :
' coloration cellule
         If Target.Value < 10 And Target.Value > bruleM Then Cells(ligne, col).Interior.Color = 255:Msgbox "BM"
        If Target.Value > 9 And Target.Value > bruleF Then Cells(ligne, col).Interior.Color = 255:Msgbox "BF"

JCB40 · Answer

Ok c'est  de ma faute pas suivi les consignes ça fonctionne
je viens de voir si je fais  11  10  11  j'ai le brulage sur le 2°  11

via55 · Answer

Re,

Je devais être à l'ouest ou fatigué hier
Dans la macro dans la partie brulage en feminin - min pour >9 tu as la boucle :

 For n = 4 To col - 1
                 If Cells(ligne, n) > 10Then m(n - 3) = Cells(ligne, n)
                Next

Bien sûr ce n'est pas >10 qu'il faut mais >9

On va y arriver !

Enfin si tu veux contrôler par la validation de données l'entrée différente pour masculin et féminind'un nombre entier, tu effaces ta validation actuelle , tu sélectionne toute la plage - Validation de données et dans Autorise tu choisis Personnalisé et dans Formule tu entres :
=ET(ENT(D4)=D4;SI($C4="M";D4<10;D4<12))

JCB40 · Answer

Bonjour 
Tout à l'air de fonctionner normalement.
Merci pour tout je te tiens au courant
Cordialement

MFC spéciale

45 réponses

Discussions similaires

Newsletters