Automatiser des rencontres

Question

Bonjour,
Dans mon job je travaille sous Excel 2003.
Je dois organiser des rencontres entre 2 personnes sans qu'elles se rencontrent une nouvelle fois.
J'ai réussi à élaborer manuellement jusqu'à 12 rencontres, soit 6 poules. Mais au delà je rencontre des difficultés.
Débutant en VBA, je n'arrive pas à écrire le code pour automatiser ces rencontres (problème de boucle).
Pouvez vous m'aider SVP?
Merci,  
Cordialement
alain

NHenry · Answer

Bonjour, 

Soit un tableau contenant la liste des noms uniques :
Pour chaque élément du tableau (par index)
{
    Pour chaque élément du tableau suivant celui de la boucle précédente
    {
        Ajouter le croisement
    }
}

Essayes de voir de ce coté.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

LIBRE_MAX · Answer

Bonsoir,
l' idée de NHENRY est appréciable,
sauf qu' il faut éviter de faire rencontrer
une personne avec elle-même.
Pour cela, il faut décaler la liste de face d' un cran.
Voici un schéma avec une liste de 4 (pour faire plus court)

1  2
2  3
3  4 
4  1

1  3
2  4
3  1
4  2

1  4
2  1
3  2
4  3

Après, pour automatiser celà, 
on envisagera une boucle allant 
de 1 à nombre de personnes -1.
On décalera alors notre liste à chaque passage.





[] Ce qui va sans dire. va mieux en le disant.

LIBRE_MAX · Answer

oui, vous avez raison !
Il y a double rencontre  

je reviendrais plus tard avec un raisonnement plus raisonnable ..																																[] Ce qui va sans dire. va mieux en le disant.

LIBRE_MAX · Answer

For i=1 To nPersonnes-1
     For j=i+1 To nPersonnes
        Debug.Print i & "-" & j  
     Next
  Next																														[] Ce qui va sans dire. va mieux en le disant.

LIBRE_MAX · Answer

désolé pour ces posts en rafale.

C' est que moi-même je trouve ça pas assez satisfaisant !
Et ça me travaille.

Voici une stratégie que je tacherais de codifier.
Un sacré exercice !

Promis, je ne reviendrai pas avant.

1* Divisons notre liste en deux groupes.
    -G1 : 1 2 3 4
    -G2 : 5 6 7 8

2* -Mettons les l' une en face de l' autre
      1ière journée: 
      1  5
      2  6
      3  7
      4  8

     2ième journée: (on décale la liste de droite)
      1  6
      2  7
      3  8
      4  5

      3ième journée: (on décale une 2° fois)
      1  7
      2  8
      3  5
      4  6

      4ième journée: (on décale une 3° fois)
      1  8
      2  5
      3  6
      4  7

Reste à faire de même pour les éléments de chaque groupe.
Divisons alors chaque groupe en deux et refaisons la même chose.
   G1.1 : 1 2 
   G1.2 : 3 4
 
   G2.1 : 5 6
   G2.2 : 7 8

   5ième journée: 
      1  3
      2  4
   
      5  7
      6  8

    6ième journée: 
      1  4
      2  3
    
      5  8
      6  7

   Pour la dernière journée, on fait rencontrer 
   chaqu élément du groupe avec l' autre élément du même groupe
 
   7ième journée: 
      1  2
      3  4
      5  6
      7  8

A+
[] Ce qui va sans dire. va mieux en le disant.

cs_ShayW · Answer

Salut
c'est comme choisir 2 element parmis k element
  k!
_____

2!*(k-2)!
si le tableau est indexé de 0 à k
dim member1 as string
dim member2 as string
for i = 0 to k
  for j = (i+1) to k  
   member1 = Listname(i)
   member2 = listname(j)
   'placer member1 et member2 dans une cellule
  next j
next i

LIBRE_MAX · Answer

Salut ShayW,

for i =  0 to  k-1   
for j  = (i+1) to k

C' est pas une question de combinaisons seulement.
Le problème est plus complexe que ça !

Pour faire simple, éviter d' avoir:
OM - PSG 
OM - NANTES
dans la même journée !

OM - PSG 
NIMES - NANTES 

ça, c' est raisonnable..


[] Ce qui va sans dire. va mieux en le disant.

Automatiser des rencontres

7 réponses

Votre réponse

Discussions similaires