XL 2016 Question aléatoire sans doublon

Lulay · 5 Mai 2023

Bonjour,

J'essaie de créer un Questionnaire. Il y a 20 questions mais les personnes ne doivent répondre qu'à 10 questions parmi les 20.
J'ai créé ce fichier mais malheureusement, j'ai des questions qui se répète.
Est-ce quelqu'un peut m'aider ?
J'ai essayé la fonction UNIQUE qui pourrait me sortir 20 chiffres et ensuite ajouté aléa.entre.bornes pour que les chiffres soient distribués aléatoirement mais ça ne fonctionne pas. J'ai des questions qui se répètent.
J'aimerais y arriver sans vba.

Merci à l'avance de votre aide. Je joins le fichier.

Lu

Hasco · 5 Mai 2023

bonjour,

Proposition avec PowerQuery. Pour tirer de nouvelles questions, clik-droit dans le tableau vert puis "Actualiser" ou cliquez sur le bouton "Actualiser tout" de l'onglet de ruban "Données"

PowerQuery:

let   
    Source = Excel.CurrentWorkbook(){[Name="Questions"]}[Content],
    Tirage = #table({"Tirage"},List.FirstN(List.Distinct(List.Transform({1..100}, each {Int64.From(Number.RandomBetween(0,19))})),10)),
    Questions = Table.TransformColumns(Tirage,{"Tirage", each Source{_}[Column1], type text })

in
    Questions

Voyez également les cellules "Question - nn" elle ne contiennent qu'un chiffre formaté par format personnalisé.

Lulay · 5 Mai 2023

Wow ça fonctionne ! Un immense merci Hasco. Je ne vous remercierai jamais assez.

Dranreb · 5 Mai 2023

Bonsoir.
Avec une fonction perso Hasard que j'ai développée récemment.

djidji59430 · 5 Mai 2023

Bonjour à tous,
Et avec des formules :

fronck · 7 Mai 2023

Hasco à dit:
bonjour,

Proposition avec PowerQuery. Pour tirer de nouvelles questions, clik-droit dans le tableau vert puis "Actualiser" ou cliquez sur le bouton "Actualiser tout" de l'onglet de ruban "Données"

PowerQuery:

let Source = Excel.CurrentWorkbook(){[Name="Questions"]}[Content], Tirage = #table({"Tirage"},List.FirstN(List.Distinct(List.Transform({1..100}, each {Int64.From(Number.RandomBetween(0,19))})),10)), Questions = Table.TransformColumns(Tirage,{"Tirage", each Source{_}[Column1], type text }) in Questions

Voyez également les cellules "Question - nn" elle ne contiennent qu'un chiffre formaté par format personnalisé.

Bonjour Hasco,
J'aimerais savoir comment tu as fait le tirage des 10 questions sur PQ.
Merci

Hasco · 7 Mai 2023

fronck à dit:
J'aimerais savoir comment tu as fait le tirage des 10 questions sur PQ.

Bonjour,

Qu'est-ce que vous ne comprenez pas ? Essayez de préciser votre question.
Sur l'image que vous montrez, vous savez déjà ce qu'est l'étape "Tirage",
C'est le détail de cette étape que vous voulez ?

fronck · 7 Mai 2023

Oui, il y a eut apparemment 3 icones qui ont été sélectionnés:
-Acceuil/combiner.
-Transformer/colonne texte et transf/colonne structurée.
Mais il y a jusqu'à 4 options aprés, qui elles ne sont pas sélectionnées (en rose).

Hasco · 7 Mai 2023

Re,
Je ne vois pas de quoi vous parlez.

#table({"Tirage"},List.FirstN(List.Distinct(List.Transform({1..100}, each {Int64.From(Number.RandomBetween(0,19))})),10))

C'est une étape écrite à la main en langage M, le langage de power query, vous trouverez la description de chaque fonction dans la documentation microsoft :

Informations de référence sur les fonctions Power Query M - PowerQuery M

En savoir plus sur les alertes suivantes : Informations de référence sur les fonctions Power Query M

learn.microsoft.com

la description du constructeur #table est en bas de la liste des fonctions de table.

Sinon ci-dessous, une version commentée mais je ne sais si c'est ce que vous voulez

VB:

let   
    // Récupération des 20 questions
    Source = Excel.CurrentWorkbook(){[Name="Questions"]}[Content],
    // Etablissement d'un tirage aléatoire de 10 nombre de 0 à 19
    Tirage = #table({"Tirage"},List.FirstN(List.Distinct(List.Transform({1..100}, each {Int64.From(Number.RandomBetween(0,19))})),10)),
    // Récupération des items de la source correspondants aux nombres tirés, par transformation des valeurs de la colonne.
    Questions = Table.TransformColumns(Tirage,{"Tirage", each Source{_}[Column1], type text })
in
    Questions

fronck · 7 Mai 2023

Vous l'avez pas tapé à la main le code, alors vous avez cliquez ou aprés ?

Hasco · 7 Mai 2023

fronck à dit:
Vous l'avez pas tapé à la main le langage, alors vous avez cliquez ou aprés ?

Si, au risque de vous décevoir, je l'ai tapé à la main. Affichage, Editeur avancé.
L'interface utilisateur ne propose que les choses les plus courantes.
Si vous voulez faire des choses avancées, il vous faut apprendre les subtilités du langage M et coder à la mimine.

fronck · 7 Mai 2023

Lulay · 8 Mai 2023

Merci à tous pour vos propositions qui sont toutes excellentes et qui fonctionnent toutes.
Vous êtes super !

JBARBE · 8 Mai 2023

Bonjour à tous,
J'ai çà sous le coude !
Si çà peut intéresser !
Bonne journée

Lulay · 8 Mai 2023

djidji59430 à dit:
Bonjour à tous,
Et avec des formules :

Ça aussi ça fonctionne très bien sans code vba. Cool. Merci.

XL 2016 Question aléatoire sans doublon

Lulay

XLDnaute Nouveau

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

Lulay

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Pièces jointes

djidji59430

XLDnaute Barbatruc

Pièces jointes

fronck

XLDnaute Junior

Hasco

XLDnaute Barbatruc

fronck

XLDnaute Junior

Hasco

XLDnaute Barbatruc

Informations de référence sur les fonctions Power Query M - PowerQuery M

fronck

XLDnaute Junior

Pièces jointes

Hasco

XLDnaute Barbatruc

fronck

XLDnaute Junior

Lulay

XLDnaute Nouveau

JBARBE

XLDnaute Barbatruc

Pièces jointes

Lulay

XLDnaute Nouveau

Discussions similaires