modification code

[julien clerc]

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😕

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

 

[JCGL]

Re : modification code

Bonjour à tous,

Il me semble que NBbilles est un nom défini.
Avec le fichier, il serait plus facile de tenter de t'aider...

A+ à tous

 

[julien clerc]

Re : modification code

Oui je pense voici le fichier :

 

[JCGL]

Re : modification code

Bonjour à tous,

Fonctionne chez moi.

A+ à tous

 

[julien clerc]

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

 

[julien clerc]

Re : modification code

😕bonjour à tous
😡je cherche toujours une solution si quelqu’un pouvait m'aider ça serait géniale



merci d'avance

 

[Kael_88]

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

 

[JCGL]

Re : modification code

Bonjour à tous,

Bien vu Kael...

Pour se départir de toutes bornes, je préconise :

=MAX(INDIRECT("B1:B"&NBVAL(A:A)))>=F16

A+ à tous

 

[julien clerc]

Re : modification code

oui!!! ça fonctionne parfaitement ! Kael .. excellent ! Merci beaucoup
merci à JCGL aussi vous êtes Super ! 😉

A+