XL 2010 macro tournoi

[GREG MDS]

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

 

[GREG MDS]

En PJ un essai avec cette MFC :

=ET(H1<>"";NB.SI(B:B;H1)>0)

SYLVANU
EST-IL POSSIBLE QUE LA LIGNE COMPLETE SOIT EN VERT FLUO STP
ENCORE MERCI

 

[GREG MDS]

En PJ un essai avec cette MFC :

=ET(H1<>"";NB.SI(B:B;H1)>0)

désole sylvanu

j'ai ajouter dans ma page "tirage au sort des colonnes présence" du coup une partie des données sont décalées ,comment faire pour les remettre dans les bonnes colonnes stp ?

 

[sylvanu]

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.

 

[GREG MDS]

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

 

[sylvanu]

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]

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

 

[sylvanu]

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.
Je les ai remises en place et modifier les colonnes.

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é.

 

[GREG MDS]

bonjour et merci sylvanu
je pense qu'il y a eu des soucis lors de manipulation par autres membres qui ont créer sur cette feuille les présences

a se sujet je ne peux plus cocher les présents sur les tableaux a et c ....

 

[sylvanu]

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 :

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.

 

[GREG MDS]

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 :

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]

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

 

[JHA]

Bonjour à tous,

J'ai ajouté la table des points pour le match 3

JHA

 

[GREG MDS]

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

 

[JHA]

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.

DECALER (DECALER, fonction) - Support Microsoft

Syntaxe : DECALER(réf, lignes, colonnes, [hauteur], [largeur])

support.microsoft.com

JHA

 

[GREG MDS]

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.

DECALER (DECALER, fonction) - Support Microsoft

Syntaxe : DECALER(réf, lignes, colonnes, [hauteur], [largeur])

support.microsoft.com

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