Discussion :

[mickael99]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[ouskel'n'or]

As-tu essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Case trim(roleTab(i))

Supprime les éventuels espaces à droite et à gauche de la variable (au cas où tu me poserait la question...)

A+

Edit
Moi, je vais même plus loin pour être sûr de ne pas avoir de pb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Case lcase(trim(roleTab(i)))

Je m'applique bien sûr de ne mettre que des minuscules dans les "case ..."

[mickael99]

alors, jai testé, et c'est marrant (enfin non ^^) mais avec Trim, il me met :

L'indice n'appartient pas a la selection... grrrrr

mais merci, car je pense que en effet, c'est a cause d'espace, qui ne sont pas presents pour le premier metier...

me reste plus qu'a gerer le probleme de la sortie du tableau ...

[jmfmarques]

Ai ben la vague impression que i n'est pas dans l'intervalle .....

[mickael99]

Merci de vos reponses ! ca y est ca fonctionne !

ouskel'n'or, ca venait bien d'espace qui trainnaient ^^.

et jmfmarques, le probleme venait de la taille de mes tableaux acteur, realisateur. Il y a un maximum et j'avais oublie de faire les tests !

Merci !

bonne journée !