IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Tirage au sort [XL-MAC 2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    .
    Inscrit en
    Mai 2017
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : .

    Informations forums :
    Inscription : Mai 2017
    Messages : 18
    Par défaut Tirage au sort
    Bonjour à tous,
    je dois mettre en place un fichier de tirage au sort pour un héritage et j'ai un peu de mal à mettre cela en place, j'espère que vous aurez un peu de temps à me consacrer pour m'aider

    En gros j'ai une collection de 500 objects que je dois distribuer à 6 héritiers, chaque lot devant avoir plus ou moins la même valeur financière mais pas nécessairement le même nombre d'éléments.

    J'ai donc une liste d'objects de ce style :

    Article Reference Valeur
    Article 1 Art1 250 €
    Article 2 Art2 400 €

    Je pense qu'il faut en premier faire la somme de la valeur des 500 éléments que je divise ensuite par 6 afin d'avoir une idée de la valeur que doit approcher chaque lot.
    Ensuite pour le tirage au sort je ne sais pas comment je pourrais faire pour ne pas avoir de doublons dans mes packs (chaque article ne pouvant etre que dans un seul lot).

    merci d'avance !!

  2. #2
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    Bonjour
    une fois ces deux choses faite
    il ta suffit de boucler aléatoirement sur les object 6 fois afin d'obtenir une somme a peu près égale et chaque fois qu'un object est sélectionné le supprimer de la liste
    un dico ou une collection feront très bien l'affaire
    1. calculer la somme héritage
    2. diviser par 6 cette somme
    3. 1ere boucle de 1 a 6
    4. 2 eme boucle sur les object aléatoire(fonction rnd)
    5. teste dico ou collection si oui attribution de l'object sinon passe
    6. des que l'on arrive a une somme correspondant a peu pres (mettre une limite de marge) on change d'héritier donc fermeture la 2eme boucle




    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  3. #3
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    Je pense qu'il faut en premier faire la somme de la valeur des 500 éléments que je divise ensuite par 6 afin d'avoir une idée de la valeur que doit approcher chaque lot
    J'attends que la philosophie même d'un partage de cette nature soit arrêtée de manière plus complètement pensée.
    En l'état, elle présente des défauts importants qui ne devraient normalement pas échapper.

    (se mettre dans la peau d'un notaire devrait être un premier pas). Mais on parle là de conception ...

  4. #4
    Membre averti
    Homme Profil pro
    .
    Inscrit en
    Mai 2017
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : .

    Informations forums :
    Inscription : Mai 2017
    Messages : 18
    Par défaut
    Citation Envoyé par unparia Voir le message
    Bonjour

    J'attends que la philosophie même d'un partage de cette nature soit arrêtée de manière plus complètement pensée.
    En l'état, elle présente des défauts importants qui ne devraient normalement pas échapper.

    (se mettre dans la peau d'un notaire devrait être un premier pas). Mais on parle là de conception ...
    D'après ce que j'ai compris (car le fichier n'est pas pour moi) les 6 heritiers n'arrivent pas à se mettre d'accord pour la distribution, ils ont donc décidé de tirer au sort les objects mais d'avoir chacun environ la même valeur par lot (certains objects valent quelques centaines d'euros, d'autre plusieurs milliers il est mathématiquement impossible d'avoir le même nombre d'objects pour chacun).

  5. #5
    Membre averti
    Homme Profil pro
    .
    Inscrit en
    Mai 2017
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : .

    Informations forums :
    Inscription : Mai 2017
    Messages : 18
    Par défaut
    Merci Patrick pour ta réponse mais je pense que j'ai du mal configurer mes parametres pour le forum car j'ai l'impression que tu m'as répondu en chinois

  6. #6
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    re
    si par chinois tu entends le fait que tu ne comprends pas les explications simples que je t'ai donné je te suggère avant de commencer
    de réviser les base
    a savoir
    1. les collection car tu travaille sur mac
    2. les boucles
    3. les variable tableaux
    4. la fonction rnd
    5. et les condition if,elseif, etc.....
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  7. #7
    Membre averti
    Homme Profil pro
    .
    Inscrit en
    Mai 2017
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : .

    Informations forums :
    Inscription : Mai 2017
    Messages : 18
    Par défaut
    Citation Envoyé par patricktoulon Voir le message
    re
    si par chinois tu entends le fait que tu ne comprends pas les explications simples que je t'ai donné je te suggère avant de commencer
    de réviser les base
    a savoir
    1. les collection car tu travaille sur mac
    2. les boucles
    3. les variable tableaux
    4. la fonction rnd
    5. et les condition if,elseif, etc.....
    oui en effet mon VBA est plus que rouillé, je n'en ai plus fait depuis 10 années au moins , en plus le VBA, les macros etc sur office mac me semble différent de ce que j'ai connu sur office windows.

    je vais regarder pour de la documentation sous mac du coup.

    merci pour les idées en tout cas !!

  8. #8
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    ryuautodidacte semble travailler sur mac aussi et ce genre d'exercice est son dada
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  9. #9
    Invité
    Invité(e)
    Par défaut
    bonjour,

    encore faut il que notre amis ne soit pas également exécuteurs testamentaires pour ces deux hérités! car là c'est le tueur à gage qui devra maîtriser le random!

  10. #10
    Membre averti
    Homme Profil pro
    .
    Inscrit en
    Mai 2017
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : .

    Informations forums :
    Inscription : Mai 2017
    Messages : 18
    Par défaut
    Citation Envoyé par dysorthographie Voir le message
    bonjour,

    encore faut il que notre amis ne soit pas également exécuteurs testamentaires pour ces deux hérités! car là c'est le tueur à gage qui devra maîtriser le random!
    En effet !!!

  11. #11
    Expert confirmé
    Homme Profil pro
    Responsable des études
    Inscrit en
    Juillet 2014
    Messages
    2 680
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Responsable des études
    Secteur : Santé

    Informations forums :
    Inscription : Juillet 2014
    Messages : 2 680
    Par défaut
    Nouveau fichier, toujours le même principe remplir les colonnes A et B puis trier le tableau sur la colonne rand. (si tu veux une nouvelle répartition tu n'as qu'a refaire le tri)
    Fini les MFC il y a une colonne lot et on voit directement le total par lot.

    Ps: cette fois j'ai bien mis 7 lot, 6 pour les héritiers et un de plus pour ma commission
    Fichiers attachés Fichiers attachés

  12. #12
    Membre averti
    Homme Profil pro
    .
    Inscrit en
    Mai 2017
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : .

    Informations forums :
    Inscription : Mai 2017
    Messages : 18
    Par défaut
    Excellent !!

    j'avais modifié hier le fichier avec les MFC et c'était déjà pas mal mais c'est vrai qu'avec un IF c'est encore mieux !!

    merci milles fois, je check avec le notaire pour ta commission

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Quelle fonction pour faire un tirage au sort de noms
    Par Sofie109 dans le forum VBA Access
    Réponses: 6
    Dernier message: 01/06/2007, 14h52
  2. Tirage au sort
    Par Titeuf82 dans le forum Ada
    Réponses: 5
    Dernier message: 17/04/2007, 11h05
  3. Tirage au sort d'un mot
    Par Dav-D dans le forum C
    Réponses: 39
    Dernier message: 04/01/2007, 17h04
  4. [VBA-E] Tirage au sort avec probabilité
    Par clarisse dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 12/05/2006, 11h01
  5. Tirage au sort
    Par clampin dans le forum Langage
    Réponses: 2
    Dernier message: 19/12/2005, 16h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo