modification code

julien clerc

XLDnaute Junior
bonjour a tous , heureux de vous retrouver ,
voici une vba sur la quel je n'arrive pas à augmenter le nombre de bille à tiré, le problème est que le code ne prend pas en compte mes modification ! j'ai réussi à le faire manuellement on ajoutant des billes au colonne et en suite à la vba .sans succés:confused:
Code:
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub toto()
Dim x As Integer, NbT As Integer, Y As Long, NBb As Integer
With ActiveSheet
    .Shapes("START").Visible = False
    Range("B1:[COLOR="#FF0000"]B30[/COLOR]").ClearContents
    NbT = 1: NBb = [NBbilles]
    Y = [Delai]
    Randomize
    While [fini] = False
        x = Int(1 + Rnd() * NBb)
        .Cells(x, 2) = .Cells(x, 2) + 1
        [BILLE] = x
        DoEvents
        NbT = NbT + 1
        Sleep Y
    Wend
    .Shapes("START").Visible = True
End With
End Sub

j’espère avoir était clerc Merci d'avance
 

julien clerc

XLDnaute Junior
Re : modification code

re, le problème est que le programme est fait pour que le tirage s’arrête
si une billes atteint le nombre de sortie fixé .
or le programme ne prend pas en compte les bille rajouté pour être plus clerc voici un exemple :

le nombre de sortie est fixé à 3

si une bille comprise entre 21 et 40 atteint 3 sortie en premier le tirage continue alors qu'il doit s’arrête.

remarque il s’arrête une foie que une bille comprise entre 1 à 20 est atteint 3

merci de jeter un coup d’œil
 

Kael_88

XLDnaute Occasionnel
Re : modification code

ton pb ne vient pas de ta prog VBA,

Tu as un pb dans ta formule en Case F13 elle va jusqu'à 20 d'ou le probleme

=MAX(B1:B20)>=F16 doit devenir =MAX(B1:B40)>=F16

cdt
 
Dernière édition:

Statistiques des forums

Discussions
311 711
Messages
2 081 792
Membres
101 817
dernier inscrit
carvajal