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.

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 ?!

---

Prenez un instant pour répondre à ce sondage svp 

Bonsoir,

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

A+

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 !

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

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...

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


si c'est la solution, penser : REPONSE ACCEPTEE