XL 2019 Tirage au sort pour Noël "Échange de cadeaux"

[Dominique Gagnon]

Bonjour à tous, je veux créer un petit programme qui permettrait de faire une pige de cadeau de Noël !
En tenant compte des couples.

 

[sylvanu]

Bonjour Dominique,
Qu'est ce qu' "ne pige de cadeau de Noël " ?
Ou encore "En tenant compte des couples." ?
N'étant ni devin, ni omniscience, fournissez un petit fichier test, avec de plus amples informations sur ce que vous attendez.

 

[Volvo64400]

Bonjour,
Une pige de cadeaux de Noël vient du Canada : c'est un échange de cadeaux, de là à tenir compte des couples cela devient compliqué !

 

[sylvanu]

fournissez un petit fichier test

Pas de fichier, surement pas de réponses pertinentes.

de là à tenir compte des couples cela devient compliqué !

Imaginez ce que c'est pour un contributeur qui ne sait même pas de quoi vous parlez.

 

[mapomme]

Bonjour à tous ,

Donc si je comprends bien, on met tout le monde dans un chapeau, on tire au sort des paires de noms et ils ou elles repartent ensemble. Pour tenir compte des couples, on refuse ceux qui le sont déjà dans la vie. En gros, c'est l'échangisme généralisé à n couples (au lieu de deux). Bon, je sors...

 

[NONO14]

Je crois que ce veut dire Dominique, c'est qu'il y a une liste cadeaux. A partir de là, on fait un tirage aléatoire des cadeaux qui seront remis à un couple qui lui aussi sera tiré au hasard. De cette façon, c'est le sort qui désigne le couple (personnes déjà en couple) et qui repart avec le cadeau.

 

[NONO14]

Il faut créer une liste de noms dans une feuille et utiliser ce code vba que j'avais en réserve (non testé)

Private noms As Collection

Sub InitialiserListe()
    Dim ws As Worksheet
    Dim rng As Range
    Dim nom As Range
  
    ' Définir la feuille et la plage de la liste de noms
    Set ws = ThisWorkbook.Sheets("Feuille1") ' Change "Feuille1" par le nom de ta feuille
    Set rng = ws.Range("A1:A10") ' Change la plage selon tes besoins

    ' Ajouter les noms de la plage dans une collection
    Set noms = New Collection
    For Each nom In rng
        If nom.Value <> "" Then
            noms.Add nom.Value
        End If
    Next nom
End Sub

Sub TirageAleatoire() - Macro à affecter à un bouton de commande dans une feuille
    If noms Is Nothing Then
        Call InitialiserListe
    End If

    If noms.Count > 0 Then
        Randomize
        Dim index As Long
        index = Int(noms.Count * Rnd) + 1
        MsgBox noms(index) ' Afficher le nom dans une MsgBox
        noms.Remove index ' Supprimer le nom de la liste
    Else
        MsgBox "Tous les noms ont été tirés."
    End If
End Sub

 

[dysorthographie]

Bonjour,
Le Redon c'est un algorithme, il a rien d'aléatoire.

Randomize timer

Ici on initialise le Redon avec la valeur du timer qui pour le coup est le plus aléatoire.

 

[NONO14]

Bonjour,
Le Redon c'est un algorithme, il a rien d'aléatoire.

Randomize timer

Ici on initialise le Redon avec la valeur du timer qui pour le coup est le plus aléatoire.

Bonjour
J'ai fait ça avec mes connaissances. Je sais que ce n'est pas optimal, mais bon ça fonctionne

 

[Dominique Gagnon]

Rebonjour, je vous fait parvenir un exemple de ce que j'ai besoin

 

[Dominique Gagnon]

J'ai oublié de vous demander, il faut que je puisse ajouter à chacun une liste de leur cadeaux individuel

 

[dysorthographie]

Bonjour
J'ai fait ça avec mes connaissances. Je sais que ce n'est pas optimal, mais bon ça fonctionne

Désolé, c'était juste une information pas un jugement. Bon nombre d'internautes chevraunés l'ignorent.

 

[NONO14]

Désolé, c'était juste une information pas un jugement. Bon nombre d'internautes chevraunés l'ignorent.

Il n'y pas de problème.

 

[NONO14]

Rebonjour, je vous fait parvenir un exemple de ce que j'ai besoin

Bonjour,
Si je comprends bien, le tirage au sort doit se faire à partir des onglets des feuilles ?
Pour les Noms d'onglet vous pourriez utiliser Maxime 1, Maxime 2, ou alors les initiales du NOM par exemple

 

[NONO14]

Voici un début. Dans la feuille "Base de donnée" vous avez 2 boutons "Tirage" et "Afficher".
En cliquant sur "Tirage", un onglet est tiré au sort. Lorsque vous revenez sur la feuille "Base de donnée", la dernière feuille sélectionnée est cachée. Le bouton "Afficher" sert à rendre de nouveau visible toutes les feuilles si nécessaire.