Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function GetReqItemByName (tdc, ParentID, ChildName)
	set Reqfactory = tdc.reqfactory
	Dim Item
	Item = -1
	set List = Reqfactory.GetChildrenList(ParentID)
	If List.count <> 0 Then
		For Each item in List
			If trim(item.Name) = trim(ChildName) Then
				Item = item.ID
			End If
		Next
	End If
	GetReqItemByName = Item
End Function
Voilà une fonction somme fois toute simple. Lorsque j'arrive à Item = item.ID, je remarque que Item prend la bonne valeur (msgbox par exemple).
Mais lorsque j'arrive à GetReqItemByName = Item, si juste avant
la ligne j'affiche la valeur de Item, il n'en a plus !!!!
A noter que j'ai aussi déterminer ne passer qu'une fois dans la condition ci-dessous pour tout le parcours de la boucle :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
If trim(item.Name) = trim(ChildName) Then
				Item = item.ID
			End If
Je suis perdu, quelqu'un voit quelque chose que je ne vois pas ?