XL 2016 Question aléatoire sans doublon

[Lulay]

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]

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"

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]

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

 

[Dranreb]

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

 

[djidji59430]

Bonjour à tous,
Et avec des formules :

 

[fronck]

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"

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]

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]

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]

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

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]

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

 

[Hasco]

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]

Ok

 

[Lulay]

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

 

[JBARBE]

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

 

[Lulay]

Bonjour à tous,
Et avec des formules :

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