XL 2010 macro tournoi

GREG MDS · 6 Avril 2021

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

sylvanu · 19 Mai 2021

Bonjour tout le monde :
Suite à MP : faire feuille coupons pour les non retenus.
Voir en PJ.

GREG MDS · 28 Avril 2021

sylvanu à dit:
En PJ un essai avec cette MFC :

VB:

=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 · 3 Mai 2021

sylvanu à dit:
En PJ un essai avec cette MFC :

VB:

=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 · 3 Mai 2021

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 · 6 Mai 2021

sylvanu à dit:
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 · 6 Mai 2021

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 · 7 Mai 2021

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 · 7 Mai 2021

GREG MDS à dit:
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.

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

GREG MDS · 7 Mai 2021

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 · 7 Mai 2021

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.

GREG MDS · 7 Mai 2021

sylvanu à dit:
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 · 10 Mai 2021

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 · 12 Mai 2021

Bonjour à tous,

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

JHA

GREG MDS · 12 Mai 2021

GREG MDS à dit:
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 · 12 Mai 2021

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 · 14 Mai 2021

JHA à dit:
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

XL 2010 macro tournoi

XLDnaute Junior

Pièces jointes

XLDnaute Junior

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

Discussions similaires