[VB]probleme avec select case
Bonjour tout le monde !
j'ai un petit probleme, que je n'arrive pas a comprendre, peut etre que vous pourriez m'aider ! ^^
j'ouvre un fichier excel ou par exemple dans la colonne B je vais avoir les metiers de personnes, et dans la colonne C le nom de ses personnes.
Vu que les personnes peuvent avoir plusieurs metiers, les colonnes B et C ressemblent a ca :
Code:
1 2 3 4 5 6
|
colonne B colonne C
acteur, réalisateur | moi
projectionniste, acteur | lui
réalisateur, producteur | elle
réalisateur, ingenieur du son| vous |
pour récupérer tout ca et les associé au nom des personnes, je fais ca :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
roleTab = Split(role, ",") ' Take each role present
For i = 0 To UBound(roleTab)
Message = wkS.Worksheets("getProgram").Cells(line, colonne + 1) + ": " + roleTab(i)
MsgBox Message
Select Case roleTab(i)
Case "acteur"
acteur(cptActeur) = wkS.Worksheets("getProgram").Cells(line, colonne + 1)
cptActeur = cptActeur + 1
Case "producteur"
producteur(cptProducteur) = wkS.Worksheets("getProgram").Cells(line, colonne + 1)
cptProducteur = cptProducteur + 1
.....
End Select
Next i |
le probleme c'est qu'il ne prends que la premiere valeur du tableau roleTab, alors que quand je fais afficher le Message, j'ai bien tous les metiers avec les bonnes personnes...
dans l'exmple que je vous ai donné, dans le tableau acteur, je n'aurai que : moi, alors que "lui" devrait y etre aussi, dans le tableau réalisateur je n'aurai que :elle et vous, alors que "moi" devrait y etre ...
est ce que j'ai ete assez clair ??
Merci !