XL 2010 macro tournoi

GREG MDS

XLDnaute Nouveau
bonjour a toutes et tous

est-ce que quelqu'un peux m'apporter son aide?

je suis en élaboration d'un fichier tournoi en milieu pénitentiaire ou je suis moniteur de sport.

j'ai plusieurs volet "page" j'aimerai quelques modification:

- Dans la page descriptif dans le volet déroulant j'aimerai que les "0" disparaissent.
dedans je veux qu'apparaissent que les bâtiment pré rentré en page "inscription"

- Dans la feuille participants retenus : supprimer les lignes vides lorsque dans la page inscription je ne valide pas l'inscription

- Dans la feuille participants non retenus : supprimer les 0 et les vides (comme sur la feuille précédente) .

-de plus pas le plus simple j'aimerai que la page "tirage au sort" se fasse automatiquement par rapport aux feuilles précédentes et que les personne soit classé directement dans les poule correspondante au bâtiment

- Enfin j'aimerai que chaque participant reçoive un coupon d'acceptation ou non avec les informations:( jours,horaires , nom, position, ecrou....)

ci joint mon tableau merci d'avance
greg
 

Pièces jointes

  • TOURNOI INDIVIDUEL.xlsm
    71.9 KB · Affichages: 3
Solution
Je ne suis pas responsable des modifs apportées sur mon code. Je ne comprends pas ce que cette macro doit faire : Worksheet_SelectionChange. Donc je ne l'ai pas modifiée.
Donc en PJ j'ai remis mes macros en ordre, renommé les zones avec l'ajout de colonnes et ajouter celle ci :
VB:
Sub Worksheet_SelectionChange
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E3:E34,K3:K34,E38:E69,K3:K69,E73:E104,K73:K104")) Is Nothing Then
        If Cells(Target.Row, Target.Column - 1) <> "" And _
            Cells(Target.Row, Target.Column - 2) <> "" And _
            Cells(Target.Row, Target.Column - 3) <> "" Then
                If Target = "X" Then
                    Target = ""...

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Pour le post #16 c'est fait.
Pour le #17 je n'ai trouvé qu'un décalage de ligne. Soyez plus précis. Où se sir=tue le souci et dans quelles conditions. je ne suis pas devin et ne connait pas l'utilisation que vous faites de votre fichier.
 

Pièces jointes

  • TOURNOI INDIVIDUEL (V2) (1).xlsm
    87.8 KB · Affichages: 11

GREG MDS

XLDnaute Nouveau
Bonjour,
Pour le post #16 c'est fait.
Pour le #17 je n'ai trouvé qu'un décalage de ligne. Soyez plus précis. Où se sir=tue le souci et dans quelles conditions. je ne suis pas devin et ne connait pas l'utilisation que vous faites de votre fichier.
le soucis est sur la page" tirage au sort" les tableaux (D, E, F) ne sont pas actif

ex page inscription hourdain inscrit bat D n'apparait pas dans la page "tirage au sort"
lorsque je change le bâtiment ex: e f g idem
 

Pièces jointes

  • TOURNOI INDIVIDUEL (V2).xlsm
    101.7 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Gregs,
Je ne comprend rien.

Dans la feuille Inscriptions HOURDAIN est en bâtiment A.

Si on le met en Bâtiment D, et que je programme dans "descriptif_du_tournoi" le bâtiment D le 09/04/21 entre 9:00/11:00 en ligne 15 , alors quand je sélectionne la feuille Tirage au sort, HOURDAIN apparait bien en bâtiment D.

Essayez d'être plus explicite, je ne comprend pas où est le souci.
 

GREG MDS

XLDnaute Nouveau
bonjour sylvanu
sur mon fichier joint ci dessous
ça ne fonctionne pas !!!! :(

alors je ne sais pas d'où vient mon erreur ....
mais dans la "feuille d'inscription" ni le bâtiment se met ni le nom (et même si je mais ex hourdain ou un autre dans un autre bâtiment après le C .... donc e f g h ....) rien ne se passe; la lettre dans l'encart en haut de chaque bâtiment ne se met pas ainsi que les coordonnées de l'individu .

désole de vous déranger
 

Pièces jointes

  • TOURNOI INDIVIDUEL (V2).xlsm
    103.5 KB · Affichages: 1
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
alors je ne sais pas d'où vient mon erreur ....
Dans la feuille Tirage au sort il y avait deux macros : Worksheet_Activate et RemplitBat qui permettait de remplir la feuille quand on la sélectionnait. Elles ont disparues. :mad:
Je les ai remises en place et modifier les colonnes.
VB:
CellBat = Array(0, "$A$1", "$G$1", "$A$36", "$G$36", "$A$71", "$G$71")
Testez. Je n'ai testé que cette partie hors autres modifs car je ne sais pas à quel point vous l'avez modifié.
 

Pièces jointes

  • TOURNOI INDIVIDUEL (V3) (5).xlsm
    100.2 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Je ne suis pas responsable des modifs apportées sur mon code. Je ne comprends pas ce que cette macro doit faire : Worksheet_SelectionChange. Donc je ne l'ai pas modifiée.
Donc en PJ j'ai remis mes macros en ordre, renommé les zones avec l'ajout de colonnes et ajouter celle ci :
VB:
Sub Worksheet_SelectionChange
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E3:E34,K3:K34,E38:E69,K3:K69,E73:E104,K73:K104")) Is Nothing Then
        If Cells(Target.Row, Target.Column - 1) <> "" And _
            Cells(Target.Row, Target.Column - 2) <> "" And _
            Cells(Target.Row, Target.Column - 3) <> "" Then
                If Target = "X" Then
                    Target = ""
                    Cells(Target.Row, Target.Column - 1).Select
                Else
                    Target = "X"
                    Cells(Target.Row, Target.Column - 1).Select
                End If
        End If
    End If
Fin:
End Sub
Modifiez la ou remplacez la par la précédente suivant votre besoin.
C'est à vous de maitriser votre code surtout s'il vient de sources différentes.
 

Pièces jointes

  • TOURNOI INDIVIDUEL (V3) (6).xlsm
    101.6 KB · Affichages: 1

GREG MDS

XLDnaute Nouveau
Je ne suis pas responsable des modifs apportées sur mon code. Je ne comprends pas ce que cette macro doit faire : Worksheet_SelectionChange. Donc je ne l'ai pas modifiée.
Donc en PJ j'ai remis mes macros en ordre, renommé les zones avec l'ajout de colonnes et ajouter celle ci :
VB:
Sub Worksheet_SelectionChange
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E3:E34,K3:K34,E38:E69,K3:K69,E73:E104,K73:K104")) Is Nothing Then
        If Cells(Target.Row, Target.Column - 1) <> "" And _
            Cells(Target.Row, Target.Column - 2) <> "" And _
            Cells(Target.Row, Target.Column - 3) <> "" Then
                If Target = "X" Then
                    Target = ""
                    Cells(Target.Row, Target.Column - 1).Select
                Else
                    Target = "X"
                    Cells(Target.Row, Target.Column - 1).Select
                End If
        End If
    End If
Fin:
End Sub
Modifiez la ou remplacez la par la précédente suivant votre besoin.
C'est à vous de maitriser votre code surtout s'il vient de sources différentes.
PARFAIT MERCI BEAUCOUP
 

GREG MDS

XLDnaute Nouveau
JHA https://www.excel-downloads.com/members/jha.7114/
Pourrais-tu stp regarder les feuilles poule 3; poule 4; poule 5"
j'ai des anomalies dans le classement (je les ai mises en fond rouge écriture blanche
merci gregory
bonjour JHA
Merci c'est cool ;)
cependant la formule décalé je ne la métrise pas et quand j'essaye de la faire par rapport a ce que tu as fait ça ne fonctionne pas
(je comprends pas notamment à la fin +4 ou + 2 ou rien sur la 3ème ligne)

désole du dérangement mais peux tu me l'expliquer stp

merci Greg
 

GREG MDS

XLDnaute Nouveau
Bonjour à tous,

La fonction decaler fonctionne comme ceci
DECALER(réf, lignes, colonnes, [hauteur], [largeur])
donc le plus +4 ou le +2 permet d'avoir la bonne ligne ou la bonne colonne par rapport à la ref.


JHA
bonjour jha
donc si j'ai bien compris selon la formule suivante?

=sommeprod(--((decaler($a$1; equiv($u6;$a$3:$a$6;0)+1;4;;3)-decaler($a$1;equiv($u;$$a$3:$a$6;0);4;;3))>=2))
ref) ligne hauteur colonne largeur
 

Statistiques des forums

Discussions
287 598
Messages
1 885 070
Membres
163 505
dernier inscrit
tahiboudiop
Haut Bas