OVH Cloud OVH Cloud

faisons tous les cas...

1 réponse
Avatar
Jojo
bonjour,

j'avais fut un temps resolu un petit probleme mais maintenant mon probleme
evolue et je ne m'en sors pas...

Disons que j'ai 3 personnes A,B, et C et que ces 3 personnes s'occupent de
differents secteurs ex :
A peut s'occuper des secteurs 1,2,et 3 (cellules A1,A2,A3)
B des 4,5 (B1, B2)
C des 6,7 (C1, C2)

je voulais etablir toutes les possibilites:
ex ici :
A-B-C
1-4-6
1-4-7
1-5-6
1-5-7
2-4-6
2-4-7
2-5-6
2-5-7
3-4-6
3-4-7
3-5-6
3-5-7

il y a 3*2*2 possibilites, et je voulais faire une fonction me sortant le
tableau de ces colonnes sachant qu'en fait je peux avoir n personnes et m
secteurs.... aie aie aie....

mon probleme precedent revenait a faire la table verite en supposant que A,B
et C s'occupaient des memes secteurs, or maintenant comme ci dessus les
secteurs peuvent varier. J'avais reussi a m'en sortir avec des modulos mais
evidemment la ca ne marche plus...

Quelqu'un voit il comment m'aider ????
Un grand merci car la je patauge dans mes boucles....

Jojo

1 réponse

Avatar
FxM
Jojo wrote:
Disons que j'ai 3 personnes A,B, et C et que ces 3 personnes s'occupent de
differents secteurs ex :
A peut s'occuper des secteurs 1,2,et 3 (cellules A1,A2,A3)
B des 4,5 (B1, B2)
C des 6,7 (C1, C2)
je voulais etablir toutes les possibilites:


Bonsoir,

Tu pourrais t'inspirer de ce qui suit :

!! attention, formate tes cellules de de la colonne D en texte !!

Sub test()
arr_a = Array("A1", "A2", "A3")
arr_b = Array("B1", "B2")
arr_c = Array("C1", "C2")
i = 1
For Each a In arr_a
For Each b In arr_b
For Each c In arr_c
Cells(i, 4) = CStr(Range(a).Value) & "-" & CStr(Range(b).Value) _
& "-" & CStr(Range(c).Value)
i = i + 1
Next c
Next b
Next a
End Sub

@+
FxM