Tirage aléatoire avec VB

Question

Bonjour ! 
je veux développer une application en VB qui va gérer des tirages aléatoires sans remise.
D'abord jai une feuille excel (Feuil1) avec une colonne (colonne A) qui contient des nombres à 8 chiffres (68521541, 52154785, 59652314, etc...).


Le tirage porte sur cette colonne; mais le nombre de ligne n'est pas connu, donc peut varier. Donc il faut d'abord compter le nombre de ligne qui contiennent des données, faire le tirage sur ces nombres.


Après les différents tirages, les résultats doivent etres stockés dans une autre feuil.


Aider moi, s'il vous plait.

PCPT · Answer

salut,

t'aider sur le code actuel bien sûr, tu peux le fournir stp

PS : valeurs dans excel ok, mais tu es en VB6 ou VBA ?!

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

dedenet2 · Answer

Bonsoir,

Pour génerer des nombres à 8 chiffres avec Excel:
Dim N
N = Int(100000000 * Rnd)

A+

jmf0 · Answer

Et randomize ?
Niet ?
(Il ne servirait pas à assurer un peu mieux le caractère aléatoire ?)


Mais ce n'est pas ce qu'a voulu dire PCPT !


Où est donc le dode (ou ta tentative) du restye (l'essentiel, en fait) et dont tu parles toi-même :
citation (de toi) :
"Donc il faut d'abord compter le nombre de ligne qui contiennent des données, faire le tirage sur ces nombres"
Ce ne sera qu'après que tu pourras t'intéresser au tirage aléatoire, pas avant !

cs_Orohena · Answer

Bonjour

jfm0, tu ne serais pas en train d'enguirlander missa27 pour un message envoyé par ... dedenet2 ? 

Tu me copieras 100 fois :

            je dois lire les messages avant de répondre, et non l'inverse 

Attention, je suis sur un méga logiciel capable de détecter si tu as fais fait des copier-coller (il est presque au point, puisque j'ai déjà défini toutes mes variables) 


Bon, maintenant, pour compter le nombre de lignes non vides dans la colonne A, on peut faire

Function compteur As Integer
   Dim r as Range
   Set r = Range("A1")
   Do Until r.Value = ""
      Set r = r.Offset(1,0)
   Loop
   compteur = r.Row - 1
   MsgBox compteur
End Function

Amicalement à tous

cs_Orohena · Answer

Oups, j'ai fait une faute d'orthographe : il faut lire si tu as fait, et non si tu as fais.

Cela m'inspire un nouveau proverbe :

            Le fait est au fais ce que la fête est à la fesse.

Je trouve que ça sonne bien, même si le sens m'échappe un peu...

pile_poil · Answer

orohena  il y a plus simple 

Si tu veux savoir combien de lignes il y a dans une colonne particulière (ici B)
     nbLignes = Columns("B:B").Find("*", Range("B1"), , , xlByRows, xlPrevious).Row   

sinon pour trouver la derniere ligne du tableau contenant une donnée
faut partir d'en bas et remonter :
    Range("A65536").End(xlUp).Row

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

Tirage aléatoire avec VB

6 réponses

Votre réponse

Discussions similaires