Ajustement formules d'un fichier

[franky4d]

Bonjour à tous,

Il y a quelques temps une personne du forum m'a confectionné un fichier d'organisation d'un tournoi de mon association de poker.
C'était un tournoi par équipe de 4.
Seulement cette année, le tournoi se compose d'équipes de 3 joueurs.
J'aimerai dans la mesure du possible qu'une personne puisse me changer les formules pour que le fichier fonctionne correctement.
Je vous mets l'ancien fichier " Big Four... " et la nouvelle matrice " le tiercé gagnant ".

Merci d'avance

Je reste disponible pour tous renseignements complémentaires.

Bien cordialement

 

[franky4d]

Re : Ajustement formules d'un fichier

Un peu d'aide SVP ? au moins pour le tirage au sort !!!!

Merci.
Cordialement.

 

[Dranreb]

Re : Ajustement formules d'un fichier

Bonjour
Bon alors j'ai chercher le mot entier "Rnd" dans tout le projet, et j'ai trouvé ça dans le module Tirage :

Tirage = Int((Rnd * 4) + 1)

Mais je ne vais pas plonger davantage dans ce code. C'est à vous de comprendre comment il fonctionne.
Tout ce que je peux vous dire c'est qu'en remplaçant par

Tirage = Int((Rnd * 3) + 1)

ça tirerait un nombre entier aléatoire uniformément distribué de 1 à 3 et non plus de 1 à 4.
Cordialement.

P.S. Si vous décidez de le réécrire d'une façon plus claire pour vous, vous pourriez avoir intérêt à travailler avec cette procédure à rajouter en fin:

Rem. —— Calcule une table TMél() de numéros de 1 à NbrÉlé en ordre aléatoire
Sub CalculMélange(TMél() As Long, ByVal NbrÉlé As Long)
Dim Élé As Long, Alé As Long, Tp As Long
ReDim TMél(1 To NbrÉlé) As Long
For Élé = 1 To NbrÉlé: TMél(Élé) = Élé: Next Élé
For Élé = NbrÉlé To 2 Step -1
Alé = Int(Rnd * Élé + 1)
Tp = TMél(Élé): TMél(Élé) = TMél(Alé): TMél(Alé) = Tp
Next Élé
End Sub

La partie centrale du tirage peut alors s'écrire plus compréhensiblement :

' Tirage au sort des colonnes et des lignes
NbLig = UBound(TabEquipes, 1)
NbCol = UBound(TabEquipes, 2)
ReDim Tablo(1 To NbLig, 1 To NbCol) As Variant
Randomize
CalculMélange TMélLig, NbLig
For L = 1 To NbLig
CalculMélange TMélCol, NbCol
For C = 1 To NbCol: Tablo(L, C) = TabEquipes(TMélLig(L), TMélCol(C)): Next C
Next L

Cette programmation requiert les décalrations suivantes en tête:

Dim Tablo() As Variant, TMélLig() As Long, TMélCol() As Long, NbLig As Long, NbCol As Long, L As Long, C As Long

Les déclarations de Tirage et Coll ne sont plus nécessaires.
À +

 

[franky4d]

Re : Ajustement formules d'un fichier

Merci pour la réponse, mais je ne comprends rien, je ne suis pas du tout à ce niveau.
Les formules de l'ancien fichier avaient été réalisées par quelqu'un du forum car moi j'en suis incapable.

Cordialement.

 

[Dranreb]

Re : Ajustement formules d'un fichier

Alors apprenez à comprendre, augmentez vos niveau en étudiant les codes qui vous sont proposés ici.
Si ça ne vous intéresse pas, tant pis pour vous.