Discussion :

[Jerome13000]

Bonjour,

Dans le cadre d'un "exposé", j'ai besoin de réaliser une inputbox qui me demanderait de choisir un nombre déterminant le nombre de valeurs aléatoires à insérer sur excel.
Jusqu'ici, j'ai compris la méthode pour insérer l'inputbox et poser la question, mais je n'arrive pas à lier le résultat donné par l'utilisateur à Excel.

Je m'explique plus clairement avec un exemple :
J'ai une liste de valeurs aléatoires dans ma colonne A de 300 valeurs par exemple. Je souhaite créer une inputbox pour demander à l'utilisateur combien il souhaite faire apparaitre de valeurs aléatoires dans cette colonne. Donc, si il répond par exemple 200, je dois faire apparaitre 200 valeurs dans la colonne A.

Bien cordialement, merci de vos réponses.

[antonysansh]

Bonjour Jerome13000,

Je m'explique plus clairement avec un exemple :
J'ai une liste de valeurs aléatoires dans ma colonne A de 300 valeurs par exemple. Je souhaite créer une inputbox pour demander à l'utilisateur combien il souhaite faire apparaitre de valeurs aléatoires dans cette colonne. Donc, si il répond par exemple 200, je dois faire apparaitre 200 valeurs dans la colonne A.

200 Valeurs parmi les 300 déjà présentes ou bien 200 nouvelles valeurs aléatoires ?

[Aposto]

Bonjour,

Je te suggère de regarder dans l'aide Excel les mots clé FOR, CELLS et RND.

Normalement tu devrait pouvoir t'en soritr

[Jerome13000]

200 nouvelles valeurs aléatoires


Bien évidemment j'ai déjà essayé les aides.. J'ai même eu des cours dessus, mais c'est pas pour autant que j'arrive à résoudre mon problème

[patricktoulon]

Bonjour
ca me parait assez simple pourtant vu le peu d'éléments que tu donne on aurait tendance a tricoter sans s'arrêter

alors ok
1 imputbox qui demande le nombre de valeur ca OK!!!!

des valeurs aléatoires ca OK


mais ces valeurs ont elles une limites basse et hautes !!!!!!!!!!!!!
dans le cas ou il y aurait une limite basse et haute voila un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim LIM_HAUTE, LIM_BASSE,nbval,newval
    LIM_BASSE = 10
    LIM_HAUTE = 1000
    nbval = InputBox("Entrez un nombre", "liste aleatoire")
    Do
        Randomize
        newval = Int((LIM_HAUTE * Rnd) )
        If newval > LIM_BASSE Then
            i = i + 1
            Cells(i, 1) = newval
        End If
    Loop Until i = nbval
End Sub

[patricktoulon]

et por gagner en velocité (utilisation de variable tableaux

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
Option Base 1
Sub test()
    Dim LIM_HAUTE, LIM_BASSE, tablo
    LIM_BASSE = 10
    LIM_HAUTE = 1000
    nbval = Val(InputBox("Entrez un nombre", "liste aleatoire"))
 
    ReDim tablo(nbval, 1)
    Do
        Randomize
        newval = Int((LIM_HAUTE * Rnd) + 1)
        If newval > LIM_BASSE Then
            i = i + 1
            tablo(i, 1) = newval
        End If
    Loop Until i >= nbval
MsgBox tablo(26, 1)
Sheets(1).Cells(1, 1).Resize(UBound(tablo, 1)) = tablo
End Sub

[Jerome13000]

Le soucis c'est que c'est pas du tout mon domaine d'activité.
C'est mon premier cours dans ce domaine du coup j'ai vraiment du mal à suivre.

J'ai essayé de le rentrer mais vu que j'ai déjà un algorithme en place pour mon exposé, je sais pas ou l'introduire. J'ai essayé de le mettre à plusieurs endroits mais ça me demande régulièrement un "End Sub" et quand ça marche ça laisse toujours le nombre de valeurs de base.