ryuoh
Messages postés4Date d'inscriptionjeudi 20 octobre 2005StatutMembreDernière intervention22 octobre 2005
-
21 oct. 2005 à 18:50
Vb Lover
Messages postés221Date d'inscriptionvendredi 30 novembre 2001StatutMembreDernière intervention13 février 2010
-
22 oct. 2005 à 11:48
Bonjour
J'ai ce prog :
Private Sub BTOK_Click()If r1 True Then Cells(15, 6) Cells(15, 6) + 1
Cells(14, 6) = Cells(14, 6) + 1
r1 = False
r2 = False
r3 = False
Q1.Hide
While Cells(14, 6) < 11
Randomize
i = Int(Rnd * 17) + 1
VBA.UserForms.Add("Q" & i).Show
Wend
Nom.Show
End Sub
Et j'ai cela pour mais autre userform ( environ 26 pour le moment )
Le prob c ke kan je lance le prog il me dit erreur '402'
Vous devez d'abord fermer/ ou masquer la feuille modale de 1er plan .
Mon probleme a ce niveau là c que je ne c pas ou mettre mon Q1.Hide, si qqun peut m'aider ???
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 21 oct. 2005 à 19:29
salut,
on en revient à ton post d'hier (sans suite d'ailleurs...)
Q1 n'existe pas.
et 2e problème qui va survenir, c'est que tu vas soit rester bloqué dans ta boucle puisque ton parametre reste inchangé, soit juste ne pas y entrer (selon valeur de Cells(14,6)) et donc ne rien afficher....
++
PCPT [AFCK]
Vb Lover
Messages postés221Date d'inscriptionvendredi 30 novembre 2001StatutMembreDernière intervention13 février 20105 22 oct. 2005 à 11:48
ça n'est pas directement lié à ta question, mais voici quand même un petit commentaire sur les fonctions "random" :
Randomize sert à donner un nombre de départ pour la suite des Rnd
(c'est le principe des "Seed" dans les calculatrices par exemple). Une
fois appelé, il n'y a plus besoin de rappeler la fonction Randomize
(chez toi, il est dans une boucle) !
En général, on appelle "Randomize Timer" une seule fois, tout au début du programme, et ensuite utilise Rnd sans autres appels.