Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Créer Programme

jacky49

XLDnaute Impliqué
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
 

Pièces jointes

  • TirageAlea_V4.zip
    36.6 KB · Affichages: 35

jacky49

XLDnaute Impliqué
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

XLDnaute Impliqué
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

XLDnaute Impliqué
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+
 

Discussions similaires

Réponses
4
Affichages
511
Réponses
1
Affichages
200
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…