Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1710 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Tirage d'une variable aléatoire comprise ...

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Tirage d'une variable aléatoire comprise ...

n°1620291
sinclair_w​ilde
Posté le 07-10-2007 à 15:07:32  profilanswer
 

comprise entre deux variables v1 et v2 par exemple.
 
En fait, je souhaite remplir un tableau avec des variables comprises entre deux variables (1 & 20 par exemple) que l'on saisit au préalable.
 
Le tableau va ainsi recueillir de façon aléatoire les différentes valeurs comprises entre 1 & 20 (pour le même exemple...)
 
Merci de votre aide...

mood
Publicité
Posté le 07-10-2007 à 15:07:32  profilanswer
 

n°1620293
sinclair_w​ilde
Posté le 07-10-2007 à 15:14:46  profilanswer
 

==> Tirage sans remise quoi ...

n°1620296
sinclair_w​ilde
Posté le 07-10-2007 à 15:33:11  profilanswer
 

A l'aide ! :(

n°1620303
karlkox
Posté le 07-10-2007 à 16:09:03  profilanswer
 

Code :
  1. dim value as integer
  2. Randomize
  3. value = Int((v2 * Rnd) + v1)


 
Mais ça fait longtemps que j'ai pas fait de VB, à tester.

n°1620307
sinclair_w​ilde
Posté le 07-10-2007 à 16:31:15  profilanswer
 

Oui, merci mais j'ai trouvé ça. En fait, je veux faire rentrer les value dans un tableau(nb de champs = v2-v1 +1), sans que celles-ci soient identiques. En clair, il faut que le tableau recueille toutes les valeurs comprises entre v2 et v1, mais dans un ordre aléatoire...

n°1620316
sinclair_w​ilde
Posté le 07-10-2007 à 18:36:31  profilanswer
 

up up up

n°1620318
galopin01
Posté le 07-10-2007 à 18:42:01  profilanswer
 

bonjour,
Voici un petit classeur pas bien difficile à adapter qui te fait un mélange de ce que tu veux.
YAKA modifier la source et la zone cible. Si tu as besoin d'aide, tu demandes.
A+

n°1620324
sinclair_w​ilde
Posté le 07-10-2007 à 19:42:11  profilanswer
 

Merci je regarde :)

n°1620330
galopin01
Posté le 07-10-2007 à 20:22:05  profilanswer
 

...Une adaptation qui te fait un tirage sans écriture préalable dans la feuille :
 
Il suffit de modifier iBot et iTop pour modifier les bornes. L'affichage se fait colonne 1
 
 
Option Base 1
 
Sub TirAuSort()
Dim Tablo(), i%, j%, k%, x%, iBot%, iTop%
iBot = 1
iTop = 25
j = iTop - iBot + 1
ReDim Tablo(j, 2)
 
For i = 1 To j
Tablo(i, 1) = iBot - 1 + i
Next
 
For i = 1 To j
  Do
  Tablo(i, 2) = Int(j * Rnd()) + iBot
    For k = 1 To i
    If Tablo(k, 2) = Tablo(i, 2) Then x = x + 1
      If x > 1 Then
      x = 0
      Exit For
      End If
    Next
  Loop Until x = 1
  x = 0
Next
 
For i = 1 To j
Cells(i, 1) = Tablo(i, 2)
Next
End Sub
 
A+


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Tirage d'une variable aléatoire comprise ...

 

Sujets relatifs
[Symfony] Récup dans une variable au lieu d'affichage, possible ?Problème d'interprétation de variable & avec $_GET
[PHP] Variable[css]largeur variable (pour design extensible)
Placer contenu ligne de fichier dans une variableVariable dans une fonction
Affiche variable dans un lienCondition dans une variable!
selection de ligne 1 jusqu'a variablepositionner une variable d'environnement avec DOS
Plus de sujets relatifs à : Tirage d'une variable aléatoire comprise ...


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR