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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Octobre 2024

• #2

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. 🙂

 

Vote positif 0 Vote négatif

Volvo64400

XLDnaute Junior

• 24 Octobre 2024

• #3

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é !

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Octobre 2024

• #4

sylvanu à dit:

fournissez un petit fichier test

Cliquez pour agrandir...

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

Volvo64400 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 24 Octobre 2024

• #5

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... 🤪

 

Vote positif 0 Vote négatif

N

NONO14

XLDnaute Impliqué

• 24 Octobre 2024

• #6

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.

 

Vote positif 0 Vote négatif

N

NONO14

XLDnaute Impliqué

• 24 Octobre 2024

• #7

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

VB:

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

 

Pièces jointes

• ExempleTirage.xlsm

  25.1 KB · Affichages: 4

Dernière édition: 24 Octobre 2024

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 24 Octobre 2024

• #8

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

Code:

Randomize timer

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

 

Vote positif 0 Vote négatif

N

NONO14

XLDnaute Impliqué

• 24 Octobre 2024

• #9

dysorthographie à dit:

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

Code:

Randomize timer

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dominique Gagnon

XLDnaute Nouveau

• 24 Octobre 2024

• #10

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

 

Pièces jointes

• Échange de cadeaux 0.xlsm

  25.2 KB · Affichages: 13

Vote positif 0 Vote négatif

Dominique Gagnon

XLDnaute Nouveau

• 24 Octobre 2024

• #11

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

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 24 Octobre 2024

• #12

NONO14 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

N

NONO14

XLDnaute Impliqué

• 24 Octobre 2024

• #13

dysorthographie à dit:

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

Cliquez pour agrandir...

Il n'y pas de problème.

 

Vote positif 0 Vote négatif

N

NONO14

XLDnaute Impliqué

• 25 Octobre 2024

• #14

Dominique Gagnon à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

N

NONO14

XLDnaute Impliqué

• 25 Octobre 2024

• #15

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.

 

Pièces jointes

• Échange de cadeaux 0.xlsm

  46.4 KB · Affichages: 5

Vote positif 0 Vote négatif