IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Génération de série aléatoire avec Rnd et Randomize [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Inscrit en
    Décembre 2009
    Messages
    90
    Détails du profil
    Informations forums :
    Inscription : Décembre 2009
    Messages : 90
    Points : 55
    Points
    55
    Par défaut Génération de série aléatoire avec Rnd et Randomize
    Bonjour à tous,

    Je simule dans les cellules d'une feuille 5 nombres aléatoires via la formule =ALEA() (je dis 5 pour faire simple, j'en ai 200 en réalité). Disons que ces 5 nombres aléatoires caractérise une personne.

    Je souhaite simuler plusieurs groupes de 3 personnes, par exemple, caractérisés par des ALEA() différents. Mais que tous les groupes se ressemblent.C'est à dire que les personnes intra-groupes soient différentes (ALEA() différents), mais qu'elles soient les mêmes entre les groupes.

    Pour cela je fais plusieurs boucles, en imbriquant des dictionnaires.
    1) je simule les 5 ALEA() dans ma feuille que je viens stocker dans mon dictionnaire (dicoPAT)
    2)Via une boucle, je fait cette manip 3 fois pour mes 3 patients. Puis je stocke dicoPAT dans un autre dictionnaire dicoCOH
    3) via une autre boucle, je construis 3 dicoCOH que je stoke dans dicoALL.

    Cela me fait 3 cohortes de 3 patients.

    Mon problème : les cohortes ne se ressemblent pas. Ca bloque a cet endroit (en rouge) :
    1) initialiser et stocker la graine
    -> simuler une personne = 5 ALEA(), les stocker (1-a)
    -> utiliser "Calculate" pour regénérer 5 nouveau ALEA(), les stocker
    -> idem...
    2) Reinitialiser le Rnd() (qui est ALEA() dans ma feuille) avec la même graine
    -> si je veux simuler une nouvelle personne, impossible de retrouver les même ALEA du (1-a)


    Soit l'utilisation du calculate fait tout foiré...
    Soit ma réinitialisation de la graine ne s'applique que pour le code VBA et non le contennu des feuilles...

    Si quelqu'un à une idée ! je vous remercie

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
     
    Public Sub random(nbvar As Integer, nbpatient As Integer, nbcohort As Integer)
     
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim x As Integer
    Dim seed As Variant
    Dim ligne As Integer
    Dim dicoALL As Dictionary
    Dim dicoCOH As Dictionary
    Dim dicoPAT As Dictionary
    Dim comp1, comp2, comp3 As Variant
     
    ' populate
    Set dicoALL = New Dictionary
    For k = 1 To nbcohort
        Set dicoCOH = New Dictionary
        x = Rnd(-1)
        Debug.Print Rnd() 'on retrouve bien toujours le même nb
     
        For j = 1 To nbpatient
            Set dicoPAT = New Dictionary
            Feuil6.Calculate
     
            For i = 1 To nbvar
                dicoPAT.Add "patient" & i, Feuil6.Cells(1, i).Value 'je stocke mes ALEA()
                Debug.Print Feuil6.Cells(1, i).Value  'verif
     
            Next i
            dicoCOH.Add "pat" & j, dicoPAT
        Next j
    dicoALL.Add "coh" & k, dicoCOH
    Next k
     
    End Sub
     
    Public Sub test()
        random 5, 3, 3
    End Sub

  2. #2
    Membre du Club
    Inscrit en
    Décembre 2009
    Messages
    90
    Détails du profil
    Informations forums :
    Inscription : Décembre 2009
    Messages : 90
    Points : 55
    Points
    55
    Par défaut
    Après quelques tests, j'ai remarqué qu'en exécutant Rnd(-1) puis Randomize, ca ne réinitialisé ni la graine et ni les formules ALEA() qui se trouvent dans les cellules.
    Les formules excel et le code VBA sont vraiment indépendant.

    Si quelqu'un à une solution autre que changer le modèle....(ce que j'aimerai bien faire)

    Merci à vous

  3. #3
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Points : 11 274
    Points
    11 274
    Par défaut
    Salut, extrait de l'aide en ligne [F1] sur Rnd
    Note Pour obtenir plusieurs fois les mêmes séries de nombres aléatoires, appelez Rnd avec un argument négatif juste avant d'utiliser Randomize avec un argument numérique. L'utilisation de Randomize en répétant pour l'argument number la valeur précédente ne permet pas de reproduire une série de nombres.
    A lire : http://excel.developpez.com/faq/?pag...ionsAleatoires

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 14/03/2014, 15h27
  2. Réponses: 10
    Dernier message: 12/12/2011, 13h24
  3. Réponses: 0
    Dernier message: 07/09/2011, 17h08
  4. Nombre aléatoire avec Rnd
    Par dimdimDC dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 06/10/2007, 13h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo