bonjour,
Tout d'abord je ne sais ou mettre ma question donc je tente ici

j'ai 1 fonction qui me renvoit 1 liste deroulante contenant des noms de secteurs
cette fonction est remplit par 1 fonction listesecteur avec listesecteur(0,i) qui est le nom et listesecteur(1,i) qui est le code

mon probleme c'est que qd je clic sur ma liste, le nom selectionné ne s'affiche pas

voici mon code:
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
19
Function ListederoulanteSecteur(code_secteur)
Dim resultat,secteur,i
 
resultat= "<select name=""choix_secteur"">" & vbcrlf &_
              "<option value=""""></option>" & vbcrlf 
secteur=listesecteur()
 
For i=0 to UBound(secteur,2)
resultat=resultat & "<option value=""" & secteur(1,i) & """"
If secteur(1,i)= code_secteur Then
resultat=resultat & " Selected"
End If
resultat = resultat & ">" & secteur(0,i) & "</option>" & vbCrLf 
Next
 
resultat=resultat & "</select>"
Listederoulantesecteur=resultat
 
End Function
pourtant code_secteur en argument renvoit bien le code du secteur car qd je fais:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
"<option value="""">" & code_secteur &"</option>"
j'ai bien le code qui s'affiche en fonction du secteur selectionné

et mon if fonctionne bien car si je fais:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If secteur(1,i)= 5 Then
j'ai bien le nom du secteur 5 qui s'affiche

je comprend pas ce qui se passe
vous avez 1 idée?
merci