Discussion :

[SKY33]

Bonjour à toutes et tous !

Le fichier joint permet, de semaine en semaine, de :

- colorer chaque chiffre sorti dans un tableau de résumé (tout en bas)
- colorer chaque chiffre sorti pour chaque joueur
- calculer la moyenne des chiffres sortis
- me situer par rapport aux autres joueurs

En plus, je souhaiterais savoir, toujours de semaine en semaine donc après un tirage et avant le suivant, s'il est toujours possible d'être le gagnant unique de la loterie.

Enfin, je souhaiterais savoir combien de joueurs peuvent encore gagner, de manière à déterminer leurs gains (répartition de la somme entre ces gagnants).

Je ne vois plus mes erreurs !

Merci beaucoup !

[alsimbad]

salut
ta premiere erreur est de ne pas nous dire en quoi consiste ton probleme et a quel endroit tu bloque.

[SKY33]

Salut,

Si tu ouvres, le fichier et que tu exécutes, tu te rends immédiatement compte à la lecture de l'exo que les résultats en "S4:S25" sont faux.

Par exemple, dans la situation actuelle, pour le joueur 1, tout comme moi, 6 de ses chiffres sont sortis, ainsi qu'indiqué en "L4" et "L14".

Donc, 4 de nos chiffres ne sont pas encore sortis, dont seul le n° 10 nous est commun.

Dès lors, le résultat en "S4" est faux.

Et c'est notamment là que je bloque.

La suite devrait aller.

Grand merci de m'aider !

[alsimbad]

tu te rends immédiatement compte à la lecture de l'exo que les résultats en "S4:S25" sont faux.

et a partir de quoi je déduis ça ? je ne sais meme pas ce que represente ce chiffre en colonne S
commence donc par expliquer quel est le principe de cette loterie.

[fring]

Bonjour,

Si j'ai bien tout capté, dans la colonne S apparaît le nombre de chiffres non sortis pour chaque joueur, identiques aux chiffres non sortis pour toi.

Jette un oeil sur le fichier ci-joint si ça correspond à ce que tu souhaites

Pièce jointe 25730

tu pourrais également remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Application.WorksheetFunction.Sum(Range("S4:S25")) = 0 Then Cells(26, 14).Value = "OUI"
If Application.WorksheetFunction.Sum(Range("S4:S25")) <> 0 Then Cells(26, 14).Value = "NON": Cells(26, 14).Value = "NON"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Application.WorksheetFunction.Sum(Range("S4:S25")) = 0 Then
Cells(26, 14).Value = "OUI"
Else
Cells(26, 14).Value = "NON"
End If

[SKY33]

Bonsoir alsimbad,

- J'ai remplacé "<> xlnone" par "= xlnone" vu que les chiffres qui m'intéressent sont ceux qui ne sont pas encore sortis, càd ceux dont le fond est blanc.

- J'ai raccourci le code sur la condition I1 et I2 en n'en faisant qu'un bloc et en mettant une police blanche en "S16"

- Ma condition était fausse. En effet, la bonne condition est qu'aucun des autres joueurs ne possède les mêmes chiffres non encore sortis que moi.

UN GRAND MERCI !!

Á charge de revanche, dès que mon niveau se sera élevé !!