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
j’espère avoir était clerc Merci d'avance
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
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