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

Créer Programme

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
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
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
15
Affichages
2 K
Réponses
2
Affichages
916
Réponses
22
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…