Défi lecture Fermé

Question

Bonjour, 

Je ne sais pas si je suis dans la bonne rubrique, mais voici le problème à résoudre :

Dans une classe de 30 élèves, 15 livres seront lus dans l'année par binômes.
Comment faire pour que les 30 élèves lisent les 15 livres, en changeant de binôme à chaque changement de livre ?

Exemple avec six élèves, appelés A, B, C, D, E, F (en ligne figurent les ouvrages, et en colonne figurent les semaines)

AB     CD   EF
CE     AF   BD
DF     BE   AC

Je ne sais pas programmer et tente par essais erreurs de résoudre ce problème ; il doit bien y avoir une solution, moyennant un programme !

Merci de votre aide

Bidouilleu_R · Answer

bonjour,  
je crois que ça être dur  

avec 6 élèves il y a 15 combinaisons  
avec 30 il y en a 435 !!!  


voici un code pour te montrer comment faire.  



Sub ListeDeCombinaison()  
Dim tablo1() As Variant  
Dim tablo2() As Variant  
Dim i As Integer  
Dim j As Integer  
Dim k As Interger  
For i = 0 To 29  ' liste des 30 élèves  

    ReDim Preserve tablo1(i)  
    ' la liste se trouve en A20 .. à .. A49  
    ' je renseigne un tableau   
    tablo1(i) = Range("A20").Offset(i, 0).Value  
      

Next  
i = 0  
k = 0  
ReDim Preserve tablo2(i)  
i = 0  
For j = 0 To UBound(tablo1)  
    For k = j + 1 To UBound(tablo1)  
        'le premier est associé à tous les autres  
        ReDim Preserve tablo2(i)  
        If tablo1(j) = tablo1(k) Then  
        ' même valeur ...on laisse  
        Else  
        ' on l'ajoute au tableau  
            tablo2(i) = tablo1(j) + tablo1(k)  
            i = i + 1  
        End If  
    Next k  
Next j  

For i = 0 To UBound(tablo2)  
       Range("B20").Offset(i, 0).Value = tablo2(i)  
Next i  



End Sub

Défi lecture

1 réponse

Discussions similaires