DISTRIBUTION

[TICO]

Bonjour à tous les membres du forum.
Je construit un classeur dans lequel les participants du jeu de Tarot doivent être distribués sur différentes tables de jeu.
Mon problème est: Chaque participant devra pouvoir jouer quelque soit le nombre de participants. Comment faire pour repartir les joueurs pour que chaque table reçoit 4 joueurs dans le meilleur des cas ou 3 joueurs au pire.
En aucun cas la dernière table pourra recevoir moins de 3 jouers.
Un fichier détaillé accompagne ma demarche.
Merci pour votre dévouement et votre aide. [file name=Classement_20060128160211.zip size=6451]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classement_20060128160211.zip[/file]

 

[JYLL]

Bonjour TICO et le forum,

Je rentre de l'hosto et j'y repars pou me faire enlever un morceau cancéreux, mais je ne peux pas ne pas faire un tour sur le Forum.

Je t'ai fait une petite macro et je pense qu'elle répondra à ton besoin.

Sub tirage()
Dim Joueurs As Integer
Dim Pointeur As Integer

    Columns('A:A').Select
    Selection.ClearContents
    Range('A1').Select

Joueurs = InputBox('Nombre de joueurs')

Cells(1, 1) = Joueurs
Pointeur = 2
While Joueurs > 0
    Select Case Joueurs
        Case Is > 9
            Joueurs = Joueurs - 4
            Cells(Pointeur, 1) = 4
            Pointeur = Pointeur + 1
        Case 9
            Joueurs = Joueurs - 3
            Cells(Pointeur, 1) = 3
            Pointeur = Pointeur + 1
            Joueurs = Joueurs - 3
            Cells(Pointeur, 1) = 3
            Pointeur = Pointeur + 1
            Joueurs = Joueurs - 3
            Cells(Pointeur, 1) = 3
            Pointeur = Pointeur + 1
        Case 8
            Joueurs = Joueurs - 4
            Cells(Pointeur, 1) = 4
            Pointeur = Pointeur + 1
            Joueurs = Joueurs - 4
            Cells(Pointeur, 1) = 4
            Pointeur = Pointeur + 1
        Case 7
            Joueurs = Joueurs - 4
            Cells(Pointeur, 1) = 4
            Pointeur = Pointeur + 1
            Joueurs = Joueurs - 3
            Cells(Pointeur, 1) = 3
            Pointeur = Pointeur + 1
        Case 6
            Joueurs = Joueurs - 3
            Cells(Pointeur, 1) = 3
            Pointeur = Pointeur + 1
            Joueurs = Joueurs - 3
            Cells(Pointeur, 1) = 3
            Pointeur = Pointeur + 1
    End Select
Wend
End Sub

Je suis dehors jusqu'à lundi midi et aprés je m'absente un mois.
Bon vie sur et au forum.

Jean-Yves

Message édité par: jyll, à: 29/01/2006 11:03

 

[pierrejean]

bonjour TICO JYLL et le forum
bon courage JYLL
TICO
une petite approche en feuil2 [file name=Classement_20060129120734.zip size=17644]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classement_20060129120734.zip[/file]

 

[michel_m]

Bonjour Tico, Dull, Pierrejean

Bon courage Dull, et à bientôt,

Ci joint proposition sans macro basée sur le modulo 4

A+
Michel_M [file name=tarots.zip size=3394]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tarots.zip[/file]

 

[michel_m]

Re,
Excusez moi Jyll et Dull d'avoir confondu vos pseudos...

Michel_m

 

[TICO]

REMERCIEMENTS
Un Grand Merci à J.Y. à Pierre Jean et à Michel m
Vous êtes tous très adroits et vos réponses bien que toutes différentes (formules, macros) aboutissent au résultat espéré, bravo à vous trois et merci encore ainsi qu’au Forum.
Bon courage et prompt rétablissement à Jean Yves, pense que tu n’est pas seul, nous pensons à toi et attendons ton retour. A bientôt TICO www.antuiz@tele2.fr

 

[TICO]

REMERCIEMENTS
Un Grand Merci à J.Y. à Pierre Jean et à Michel m
Vous êtes tous très adroits et vos réponses bien que toutes différentes (formules, macros) aboutissent au résultat espéré, bravo à vous trois et merci encore ainsi qu’au Forum.
Bon courage et prompt rétablissement à Jean Yves, pense que tu n’est pas seul, nous pensons à toi et attendons ton retour. A bientôt TICO www.antuiz@tele2.fr

 

[TICO]

REMERCIEMENTS
Un Grand Merci à J.Y. à Pierre Jean et à Michel m
Vous êtes tous très adroits et vos réponses bien que toutes différentes (formules, macros) aboutissent au résultat espéré, bravo à vous trois et merci encore ainsi qu’au Forum.
Bon courage et prompt rétablissement à Jean Yves, pense que tu n’est pas seul, nous pensons à toi et attendons ton retour. A bientôt TICO www.antuiz@tele2.fr