Modification fichier

Résolu/Fermé
mic6259
Messages postés
325
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
5 juin 2022
- 14 févr. 2021 à 06:20
mic6259
Messages postés
325
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
5 juin 2022
- 14 févr. 2021 à 09:12
Bonjour a tous

J'ai une fois de plus besoin de votre aide.

Dans le fichier joint, quand la mise est a 0 un MsgBox(qui se trouve dans Module1) s'affiche pour signaler qu'il faut miser,
quand je clique sur Ok un tirage est activer. Serait-il possible d'empêcher ce tirage de façon à miser
avant de continuer.
Ensuite, les images qui sont tirer au sort avec une pause d'une seconde(qui se trouve aussi dans Module1), le gain s'affiche avant la 5iem image. serait-il possible de régler se problème.
Vous pouvez faire des essais en mettant vous même les chiffres dans les cellules A2 a E2 et dans la cellule
J16.

Merci beaucoup pour votre aide.

https://www.cjoint.com/c/KBoftzsIzal

5 réponses

Frenchie83
Messages postés
2237
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
20 juin 2022
332
14 févr. 2021 à 07:09
Bonjour,

Dans la macro , après la ligne qui renvoi le message, ajoutez "Exit sub"

Sub Somme()
    If Range("J16") = 0 Then
        MsgBox ("Veuillez Miser")
        Exit Sub
    Else


Cdlt
0
mic6259
Messages postés
325
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
5 juin 2022

14 févr. 2021 à 07:23
Bonjour Frenchie
Merci pour la réponse, çà marche. pour la deuxième question, quand je clique sur tirage est qu'il y a un gain, le gain s'affiche en vert avant la derrière image.
Il faudrait que toutes les images soient tirées avant le gain.

Cordialement
0
Frenchie83
Messages postés
2237
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
20 juin 2022
332
14 févr. 2021 à 08:20
Avez-vous essayer de déplacé cette ligne
    Range("A2:E2").ClearContents 'efface la plage

et de la mettre en première ligne
0
mic6259
Messages postés
325
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
5 juin 2022

14 févr. 2021 à 08:28
Désolé çà ne marche pas
0
Frenchie83
Messages postés
2237
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
20 juin 2022
332
14 févr. 2021 à 08:45
Question:

Comment faites-vous pour tester? vous cliquez sur le bouton Tirage tant que vous n'avez pas gagné? ou bien vous forcez les valeurs dans "A2:E2"?
0
mic6259
Messages postés
325
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
5 juin 2022

14 févr. 2021 à 08:52
Quand je clique sur Tirage et quand il y a un gain la cellule J16 donne en vert la somme gagnée avant la sortie de la dernière image. Je pense qu'il y a un décalage de A2 à E2
0
Frenchie83
Messages postés
2237
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
20 juin 2022
332
14 févr. 2021 à 08:54
Effectivement, je viens de tester avec le bouton Tirage, ça ne marche pas, Je regarde ça de plus près et vous tiens au courant
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Frenchie83
Messages postés
2237
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
20 juin 2022
332
14 févr. 2021 à 09:00
Voilà, il suffit d'effacer la cellule I16 au départ puis de réécrire la formule à la fin

Sub Somme()
    Range("A2:E2").ClearContents 'efface la plage
    Range("I16") = ""
    If Range("J16") = 0 Then
        MsgBox ("Veuillez Miser")
        Exit Sub
    Else
        Range("J16") = Range("J16") + Range("J19")
    End If
    Randomize 'initialise le générateur de nombres aléatoires
    For n = 1 To 5 ' boucle sur les 5 colonnes
        Cells(2, n) = Int(Rnd * 5) + 1 ' inscrit un nombre aléatoire entre 1 et 5 dans la cellule en ligne 2
        Application.Wait Time + TimeSerial(0, 0, 1) 'Pause de 1 seconde
    Next
    
    Range("I16").FormulaR1C1 = "=R[3]C[1]"
End Sub



Cdlt
0
mic6259
Messages postés
325
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
5 juin 2022

14 févr. 2021 à 09:12
Merveilleux çà fonctionne
Merci beaucoup Frenchie
Cordialement
0