tirage au sort

[rudid]

bonjour à tous,
voilà je dois faire un examen et j'aurai besoin d'un tirage au sort de questions dans 3 listes
- une série de questions facile
- une série de questions moyenne
- une série de questions difficile
le tout est tiré d'un questionnaire donc dans les séries, les numéros ne se suivent pas
et ils doivent tirer une question dans chaque groupe
merci d'avance

 

[Etienne2323]

Re : tirage au sort

Salut rudid,
voici une possibilité.

Option Explicit

Sub Test()
Dim i As Integer, Nb_Alea As Byte
Dim Question(1 To 3) As String

Application.ScreenUpdating = False
Randomize

'En supposant que les listes de questions comprennent
'100 questions et qu'elles se trouvent dans les 3 premières
'colonnes
For i = 1 To 3
    Nb_Alea = Mid(Rnd(), 3, 2)
    Question(i) = Cells(Nb_Alea, i).Value
Next i

End Sub

Cordialement,

Étienne

 

[phlaurent55]

Re : tirage au sort

Bonjour Rudid, et bienvenue sur le forum

clique ci-dessous, on y parle longuement de tirage aléatoire.
https://www.excel-downloads.com/threads/tirage-tombolat.164559/
et plus précisement le fichier 111V2.xls à la réponse #14

à+
Philippe

 

[CISCO]

Re : tirage au sort

Bonsoir

Si tu n'as besoin de tirer que trois questions, cf. une possibilité en pièce jointe.

@ plus

P.S : Faire F9 pour renouveler le tirage

 

[CISCO]

Re : tirage au sort

Rebonsoir à tous, bonsoir Etienne2323 et Phlaurent55

Une autre possibilité en tirant plus de 3 questions, avec une formule matricielle, donc à valider avec ctrl+maj+entrer. Il y a certainement plus simple, mais pour ce soir...

@ plus

 

[rudid]

Re : tirage au sort

re,
vous avez en annexe
les listes et un bouton mais je sais pas comment on fait🙁😕🙄
merci beaucoup à vous

 

[phlaurent55]

Re : tirage au sort

Re, Bonjour à tous

un autre exemple en pièce jointe
il est nécessaire d'activer les macros

à+
Philippe

 

[rudid]

Re : tirage au sort

re,
vous avez en annexe
les listes et un bouton mais je sais pas comment on fait
merci beaucoup à vous

Regarde la pièce jointe tirage hasard 3 listes.xls

 

[rudid]

Re : tirage au sort

re, re
ci dessous le lien du travail de phlaurent55, mais il faudrait que celui ci ne tire pas de Zero, je doit avoir obligatoirement une question
merci beaucoup de votre travail
vous êtes super
Regarde la pièce jointe tirage au sort 2.xls

 

[phlaurent55]

Re : tirage au sort

Re,

ton fichier en retour

il fallait adapter les formules en fonction du nombre de données dans les colonnes A B & C

à+
Philippe

 

[rudid]

Re : tirage au sort

un grand merci à toi