les lignes sont classées par ordre chronologique de choix et le but est que chacun ait son "meilleur" voeu sous limite de places pour chaque choix.
L'ordre chronologique prévaut sur l'ordre des choix.
Je ne sais pas si je suis très clair mais impossible d'expliquer différemment.
Merci d'avance
En effet, le fichier excel comporte un onglet avec le nombre de places disponibles pour chaque choix. Malgré cela, je ne sais pas du tout comment faire.
Le mardi 17 Septembre 2013 à 19:17 par ben48 :
Bonjour,
je cherche à classer un tableau de type (mais je suis perdu)
les lignes sont classées par ordre chronologique de choix et le but est
que chacun ait son "meilleur" voeu sous limite de places pour chaque
choix.
L'ordre chronologique prévaut sur l'ordre des choix.
Je ne sais pas si je suis très clair mais impossible d'expliquer
différemment.
Merci d'avance
En effet, le fichier excel comporte un onglet avec le nombre de places disponibles pour chaque choix. Malgré cela, je ne sais pas du tout comment faire.
les lignes sont classées par ordre chronologique de choix et le but est que chacun ait son "meilleur" voeu sous limite de places pour chaque choix.
L'ordre chronologique prévaut sur l'ordre des choix.
Je ne sais pas si je suis très clair mais impossible d'expliquer différemment.
Merci d'avance
En effet, le fichier excel comporte un onglet avec le nombre de places disponibles pour chaque choix. Malgré cela, je ne sais pas du tout comment faire.
DanielCo
Le mardi 17 Septembre 2013 à 19:17 par ben48 :
Bonjour,
je cherche à classer un tableau de type (mais je suis perdu)
les lignes sont classées par ordre chronologique de choix et le but est que chacun ait son "meilleur" voeu sous limite de places pour chaque choix.
L'ordre chronologique prévaut sur l'ordre des choix.
Je ne sais pas si je suis très clair mais impossible d'expliquer différemment.
Merci d'avance
En effet, le fichier excel comporte un onglet avec le nombre de places disponibles pour chaque choix. Malgré cela, je ne sais pas du tout comment faire.
Est-ce que tu peux charger un classeur exemple sur cjoint.com et poster ensuite ici le lien généré ?
Daniel
Le mardi 17 Septembre 2013 à 19:17 par ben48 :
Bonjour,
je cherche à classer un tableau de type (mais je suis perdu)
les lignes sont classées par ordre chronologique de choix et le but est
que chacun ait son "meilleur" voeu sous limite de places pour chaque
choix.
L'ordre chronologique prévaut sur l'ordre des choix.
Je ne sais pas si je suis très clair mais impossible d'expliquer
différemment.
Merci d'avance
En effet, le fichier excel comporte un onglet avec le nombre de places
disponibles pour chaque choix. Malgré cela, je ne sais pas du tout comment
faire.
Est-ce que tu peux charger un classeur exemple sur cjoint.com et poster
ensuite ici le lien généré ?
les lignes sont classées par ordre chronologique de choix et le but est que chacun ait son "meilleur" voeu sous limite de places pour chaque choix.
L'ordre chronologique prévaut sur l'ordre des choix.
Je ne sais pas si je suis très clair mais impossible d'expliquer différemment.
Merci d'avance
En effet, le fichier excel comporte un onglet avec le nombre de places disponibles pour chaque choix. Malgré cela, je ne sais pas du tout comment faire.
Est-ce que tu peux charger un classeur exemple sur cjoint.com et poster ensuite ici le lien généré ?
Daniel
ben48
Le mardi 17 Septembre 2013 à 19:17 par ben48 :
Bonjour,
je cherche à classer un tableau de type (mais je suis perdu)
Les résultats sont en colonne 9. Regarde si ça te convient :
Sub test3() Dim C As Range, Tabl1, Tabl2, Ligne As Long Tabl1 = Application.Transpose(Application.Transpose([B13:J13])) Tabl2 = Application.Transpose(Application.Transpose([B14:J14])) For Each C In [B3:B11] For i = 1 To 6 Ligne = Application.Match(C.Offset(, i), Tabl1, 0) If Tabl2(Ligne) > 0 Then Tabl2(Ligne) = Tabl2(Ligne) - 1 Cells(C.Row, 9) = Tabl1(Ligne) Exit For End If Next i Next C End Sub
Daniel
Les résultats sont en colonne 9. Regarde si ça te convient :
Sub test3()
Dim C As Range, Tabl1, Tabl2, Ligne As Long
Tabl1 = Application.Transpose(Application.Transpose([B13:J13]))
Tabl2 = Application.Transpose(Application.Transpose([B14:J14]))
For Each C In [B3:B11]
For i = 1 To 6
Ligne = Application.Match(C.Offset(, i), Tabl1, 0)
If Tabl2(Ligne) > 0 Then
Tabl2(Ligne) = Tabl2(Ligne) - 1
Cells(C.Row, 9) = Tabl1(Ligne)
Exit For
End If
Next i
Next C
End Sub
Les résultats sont en colonne 9. Regarde si ça te convient :
Sub test3() Dim C As Range, Tabl1, Tabl2, Ligne As Long Tabl1 = Application.Transpose(Application.Transpose([B13:J13])) Tabl2 = Application.Transpose(Application.Transpose([B14:J14])) For Each C In [B3:B11] For i = 1 To 6 Ligne = Application.Match(C.Offset(, i), Tabl1, 0) If Tabl2(Ligne) > 0 Then Tabl2(Ligne) = Tabl2(Ligne) - 1 Cells(C.Row, 9) = Tabl1(Ligne) Exit For End If Next i Next C End Sub
