XL 2016 Tri aléatoire de questions pour un contrôle

A

AC045364

XLDnaute Junior

• 7 Février 2023

• #2

Ta demande est très facile à réaliser MAIS ....
1- Quelle est la nature des questions? géographie, maths, science ou quoi ?
2- Est-ce que ce sont des questions à choix multiples?
3- Quel truc tu vas prendre pour corriger la 5e copie versus la 12e copie?
Autrement dit, dans ces copies, la question 8 est différente des 2 versions.
Je suppose qu'il faut incorporer un code dans la question pour indiquer le numéro de la question posée.
Daniel

 

Vote positif 0 Vote négatif

travolta

XLDnaute Junior

• 7 Février 2023

• #3

1) techno
2) non pas de qcm
3) bah vu que c'est moi qui fait les questions je connais les réponses par coeur, donc si dans une copie la question apparrait en 5e question et sur une autre copie elle apparait en 12e question je saurais y répondre , et pour faire simple le bareme est d'un point pour chaque question

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Février 2023

• #4

Bonsoir travolta, AC045364,

Voyez le fichier joint, j'ai effectué les opérations suivantes :

- inséré la nouvelle colonne A

- entré cette formule en A5 :

Code:

=SI(MOD(LIGNE()-5;4);A4;ALEA())

puis l'ai tiré sur A5:A84

- défini la zone d'impression B1:H84

- défusionné les cellules de la plage B5:H84 (pour pouvoir trier)

- écrit cette petite macro :

VB:

Sub Imprimer()
Dim n As Byte
For n = 1 To 30
    Calculate 'nouveaux nombres aléatoires
    [A5:H84].Sort [A5], Header:=xlNo 'tri sur la colonne A
    ActiveSheet.PrintPreview 'pour tester
    'ActiveSheet.PrintOut 'pour imprimer
Next
End Sub

Cliquez sur le bouton pour l'exécuter.

Pour imprimer enlevez l'apostrophe devant ActiveSheet.PrintOut

A+

 

Pièces jointes

• controle(1).xlsm

  20.9 KB · Affichages: 8

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Février 2023

• #5

Bonjour le forum,

En fait dans la macro l'instruction Calculate est inutile.

En effet le tri à lui seul provoque le recalcul des nombres aléatoires.

A+

 

Vote positif 0 Vote négatif

travolta

XLDnaute Junior

• 8 Février 2023

• #6

Merci @job75 je vais tester tout ça

 

Vote positif 0 Vote négatif

travolta

XLDnaute Junior

• 8 Février 2023

• #7

Merci @job75 c'est top ça marche bien, par contre serait-ce possible que cela génère les 30 itérations et que cela enregistre le tout dans un fichier pdf qui contiendrait donc les 30 itérations ?
Car je n'ai pas excel au collège, je ne peux imprimer que les pdf

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Février 2023

• #8

Alors utilisez ce fichier (2) avec la macro :

VB:

Sub PDF()
Dim F As Worksheet, n As Byte
Set F = ActiveSheet
Application.ScreenUpdating = False
For n = 1 To 30
    F.[A5:H84].Sort F.[A5], Header:=xlNo 'tri sur la colonne A
    If n = 1 Then
        F.Copy 'nouveau document
    Else
        F.Copy After:=ActiveSheet 'nouvelle feuille
    End If
Next
ActiveWorkbook.Sheets(1).Select
For n = 2 To 30
    ActiveWorkbook.Sheets(n).Select False 'sélection multiple
Next
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Questionnaire.pdf" 'nom à adapter"
ActiveWorkbook.Close False 'ferme le document
End Sub

 

Pièces jointes

• controle(2).xlsm

  22.5 KB · Affichages: 7

Vote positif 0 Vote négatif

travolta

XLDnaute Junior

• 8 Février 2023

• #9

Ah génial merci beaucoup @job75 c'est exactement comme cela que je voulais ce fichier.
Derniere petite question, car j'ai essayé de comprendre comment cela marchait au niveau du tri avec les chiffres aléatoires, car je voulais augmenter le nombre de lignes entre 2 questions (comme cela ça me permet d'avoir les 20 questions qui remplissent le recto verso) et donc mettre 7 lignes blanches entre 2 questions au lieu de 3 lignes blanches, alors j'ai modifié la macro et les lignes de commandes SI(MOD(LIGNE()-5;4);A4;ALEA()) etc mais du coup cela prend des lignes blanches au lieu des lignes de question.
Pourrais tu me dire du coup comment mettre 7 lignes blanches au lieu des 3 ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Février 2023

• #10

travolta à dit:

Pourrais tu me dire du coup comment mettre 7 lignes blanches au lieu des 3 ?

Cliquez pour agrandir...

1) Mettre en A5 la nouvelle formule, à tirer sur A5:A164 :

VB:

=SI(MOD(LIGNE()-5;8);A4;ALEA())

2) Modifier la zone d'impression => B1:H164.

3) Dans la macro modifier la ligne du tri :

VB:

    F.[A5:H164].Sort F.[A5], Header:=xlNo 'tri sur la colonne A

 

Vote positif 0 Vote négatif

travolta

XLDnaute Junior

• 9 Février 2023

• #11

on y est presque @job75 ça m'a bien pris les bonnes lignes merci
par contre du coup on a pas le saut de ligne pour que ça me fasse du recto/verso (donc 60 pages) j'ai toujours les 30 pages qui vont s'imprimer, je mets les captures d'ecran car je ne sais pas si je m'exprime bien

 

Pièces jointes

• 3 lignes.jpg

  212.1 KB · Affichages: 14
• 7 lignes.jpg

  95.2 KB · Affichages: 14

Vote positif 0 Vote négatif

travolta

XLDnaute Junior

• 9 Février 2023

• #12

ah mais non je suis bête c'est à cause de la zone d'impression qui a été définie, suffit que je j'enleve et que j'ajuste le % d'impression, je vais essayer

 

Vote positif 0 Vote négatif

travolta

XLDnaute Junior

• 9 Février 2023

• #13

oui c'est bien ça, tout fonctionne parfaitement , grand merci à toi job75

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Février 2023

• #14

Bonjour travolta, le forum,

Je n'ai pas compris ce que vous avez fait pour l'impression recto-verso.

Ce que je fais sur ce fichier (3) :

- zone d'impression => B5:H164

- lignes à répéter en haut => 1:4

- mise en page Largeur et Hauteur => Automatique, Echelle 64%

- saut de page au-dessus de la ligne 85 et bordure moyenne.

Sur le fichier PDF impression des pages impaires puis des pages paires.

A+

 

Pièces jointes

• controle(3).xlsm

  23.7 KB · Affichages: 3
• Questionnaire.pdf

  548.2 KB · Affichages: 5

Vote positif 0 Vote négatif

travolta

XLDnaute Junior

• 9 Février 2023

• #15

ah oui merci c'est top

 

Vote positif 0 Vote négatif