Contenu récent par Dranreb

M c'est l'indice de la manche ou du tour si tu préfère. Il n'y a pas de données de départ hormis le nombre de joueurs et de manches désirés passés en paramètres à la Function Tirage1vs1OK Celle ci ne produit que le tableau résultant Public Tirage() As Long dimensionné dans la Tirage1vs1OK et...

Oui, j'avais aussi constaté à la 1ère exécution des temps exagérés. Probablement dû à des mises en place de ressources par MSForms … Comment ça pas au bon moment ? Tout pareil que dans ce classeur de test, au démarrage des TirageNvsNOK et autres TiragePostesOK et et avec UFmVisu.Conclure comme...

Bonjour. Ce classeur de test ne met en évidence aucune erreur d'affichage du temps par l'UFmVisu.

Option Explicit #If VBA7 Then Private Declare PtrSafe Function QueryPerformanceFrequency Lib "Kernel32" (X As Currency) As Boolean Private Declare PtrSafe Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean #Else Private Declare Function QueryPerformanceFrequency Lib...

Ben cherche alors. Moi je ne vois pas ce qui pourrait déconner dans deux variables Private as Currency dans l'UserForm. Essaie au plus près de chronométrer en parallèle dans des variables ailleurs mais aux mêmes checkpoints que moi: initalisation à la fin de la UFmVisu.DescConfig et arrêt au...

Non, je tiens à ne mesurer autant que possible que le temps d'exécution de l'algorithme de tirage proprement dit.

Par contre je viens de voir que si je place la QueryPerformanceCounter CycDépart en tête de la méthode DescConfig ça ajoute pas mal de temps mais qui ne fait pas partie du processus de tirage … Je suppose que c'est le Me.Show qui bouffe un peu …

Mets l'initialisation de départ juste devant la If Tirage1vs1OK(NbJrs:=UBound(TNoms), Manches:=2) Then et affiche le temps juste après son Then. Ça devrait être plus proche de la durée affichée par l'UFmVisu.

Encore une fois, je ne chronométrai pas la durée de l'ensemble du traitement, seulement la Function Tirage1vs1OK, le processus de tirage. La récupération des noms d'inscrits et la mise en forme des résultats je m'en fiche complètement. C'est suffisamment rapide pour l'utilisateur, d'une durée à...

Pour la première différence affichant ERREUR : '[Classeur1(39).xlsm]Feuil1'!K4, formule: =E4+F4-H4, affichée "125,21" par format "Standard", vaut: +1,&HF4D70A3D70A3E × 2^+&H006, soit: 4405435229242655 / 2^45, soit: 125,210000000000007958078640513122081756591796875...

Disons que VBA triche moins qu'Excel pour escamoter des différences de valeurs obtenues par des voies différentes de données Double précision, lesquelles ne peuvent de toute façon représenter exactement bien des valeurs exprimées en décimal.

Bonjour. Le problème disparaît en convertissant tout en Currency : x = CCur(Cells(lign, colon + 2).Value) + CCur(Cells(lign, colon + 3).Value) - CCur(Cells(lign, colon + 5).Value) y = CCur(Cells(lign, colon - 1).Value)

Bonjour. Avec les plages mises sous forme de tableaux.

@aubaluc, bonsoir. Il aurait mieux valu mettre les plages sous forme de tableaux. En attendant la solution que j'ai proposée prend comme nombre d'équipes le nombre de lignes renseignées en colonne A à partir de la A3 Pour prendre plutôt la colonne B, mettez dans la macro Tirages : ' Récupération...

Les boucles dans Tirage1vs1OK ne sont que des initialisations. Le plus gros du traitement est fait par la RencTrouvée qui s'auto-appelle récursivement après chaque paire formée pour établir le reste du tirage. Cette paire est en effet présumée provisoire du fait qu'elle peut empêcher l'appel...