Insérer une inputbox qui se répercute sur Excel

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.

Bonjour Jerome13000,

Citation:

---

Envoyé par 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 ?

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;)

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 :mrgreen:

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:

---

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

---

et por gagner en velocité (utilisation de variable tableaux

Code:

---

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

---

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.

1 er cours !!!!:roll:
ton prof aurait du te faire commencer par les base alors
ou alors t'a pas suivi :mouarf:

manipulation des cellules par exemple(effacer une colonne par exemple)pour pouvoir y réintroduire des données

mais si tu en est la ca n'est pas la peine que j'aille plus loin, commence par les bases d'abords ensuite on s'attaquera au macros

sinon tu sera vite dépassé;)

C'est la première fois que j'ai ce cours la, mais j'ai déja eu 2-3 cours sur les algorithmes mais j'ai toujours autant de mal sachant que c'est pas du tout mon domaine :mrgreen:

J'aimerais bien ne pas m'y intéresser mais c'est le sujet du devoir que l'on doit faire, c'est bien ça le problème !

Puis-je vous contacter par MP pour notamment vous transmettre le fichier ?

Salut, à titre documentaire voir : Générer une série de nombres entiers aléatoires sans doublon

Merci, je viens de regarder cela.
Toute la partie sur les doublons n'est pas pour moi mais la dernière partie peut me sembler utile.

Néanmoins j'essaye de l'introduire dans VBA mais cela n'a aucun impact sur les valeurs aléatoires dans ma colonne.