Créer Programme

[jacky49]

Bonsoir le Forum,,

Je vous remercie déja de jeter un oeil à mon post.
j'essaie de faire un programme pour une course de Roller avec plusieurs Critères.
J'ai déja commencé(les codes VBA grâce à Mercatog) à faire les tirages aléatoire(ce code trie les clubs grace à des couleurs et ensuite fais les poules dans l'onglet série,j'aimerais que les couleurs ne soit pas remise dans l'onglet série).Ensuite, grace à un USF et un code, je decide que ce soit les 1er ou bien les 1er et 2ème et ensuite les meilleurs temps qui vont en feuilles demi finale (et je classe les résultats des séries en feuille Mini Fille grâce à des formules, si je pouvais le faire en VBA, ce serait super et pouvoir ajouter vdes bordures automatiquement si le tableau est rempli).Je voudrais améliorer l'USF en ajoutant Finale et donc un code qui me permettent de qualifier sur le même principe que les demi finales soit les 1er , soit les 1er et 2ème et ensuite les meilleurs temps car suivant le nombres de séries, il peut y avoir soit des demi finale soit une fianle directe.
Voila déja pour le début et si quelqu'un à du temps pour m'aider , il nreste des choses encore à faire.
merci beaucoup du coup de main que vous m'apporterez.
je vous joins mon fichier.
jacky

 

[Florian53]

Re : Créer Programme

salut jacky49 j'aurais une question pour toi, comment as tu fait pour figer ton bouton résultats dans la feuille "Séries"?

 

[Florian53]

Re : Créer Programme

c'est grâce a ce code ci?

Private Sub result_Click()
Dim ns As Integer
ns = Int((Cells(5, Columns.Count).End(xlToLeft).Column + 1) / 5)
If Complet(ActiveSheet, ns) Then
TRI_SERIE ActiveSheet, ns
RESULT_DF ActiveSheet, ns
End If
End Sub

 

[jacky49]

Re : Créer Programme

bonsoir Florian53,

c'est un bouton de commande controle active X et donc, pour le deplacer, il suffit de cliquer dans l'onglet devellopeur mode création et ensuite tu peux le déplacer comme tu veux.
jacky

 

[Florian53]

Re : Créer Programme

est ce que tu saurais m'expliquer ton code:

Private Sub result_Click()
Dim ns As Integer
ns = Int((Cells(5, Columns.Count).End(xlToLeft).Column + 1) / 5)
If Complet(ActiveSheet, ns) Then
TRI_SERIE ActiveSheet, ns
RESULT_DF ActiveSheet, ns
End If
End Sub

j'ai du mal a comprendre ce qui est en rouge dc a peu prés tt lecode

 

[jacky49]

Re : Créer Programme

re,
le code du bouton dit qu'il faut commencer à la cellule 5 et sur 5 colonne et ensuite il déclenche les macros TRI_SERIE ActiveSheet, ns et
RESULT_DF ActiveSheet, ns
Voila
a+