oui cette solution me semble la meilleure... tu peux aussi récupérer de manière sure une valeur de liste et enregistrer cette valeur dans une variable pour une utilisation future... par exemple :
dim chaine as string
chaine = combobox1.texte
dans chaine tu auras le choix de l'utilisateur de la liste.
et apres tu peux faire le meme test dont t'a parlé le monsieur d'avant... sauf que ca donnerait ca :
--------------------------------------------------------------
Private Sub Combobox1_click()
Combobox2.Clear
dim chaine as string
chaine = combobox1.text
'utilisation de case en fonction du choix de la combo1
Select Case chaine
Case "Platform"
With Combobox2
.AddItem ("Request ID")
.AddItem ("Request Title")
.AddItem ("Statues")
.AddItem ("Type")
End With
Case "Request ID"
With Combobox2
.AddItem ("Platform")
.AddItem ("Request Title")
.AddItem ("Statues")
.AddItem ("Type")
End With
Case "Request Title"
With Combobox2
.AddItem ("Platform")
.AddItem ("Request ID")
.AddItem ("Statues")
.AddItem ("Type")
End With
Case "Type"
With Combobox2
.AddItem ("Platform")
.AddItem ("Request ID")
.AddItem ("Statues")
.AddItem ("Request Title")
End With
End Select
End Sub
----------------------------------------------------
Voila, encore une fois, tu peux aller dans le fichier pricer, y a plein de truc qui pourrait t'aider je pense....
Nag
ICQ# : 132028600
msn = giraudnba@msn.com
-------------------------------
Réponse au message :
-------------------------------
>
Max El Fada>
> Merci pour ta reponse,
>
> le pb est que je n arrive pas dans une meme macro a travailler avec cette valeur. Voila ce que j'ai:
> ---------------------------------------------------------
> Private Sub UserForm_Activate()
>
> With ComboBox1
> .AddItem ("Platform")
> .AddItem ("Request ID")
> .AddItem ("Request Title")
> .AddItem ("Statues")
> .AddItem ("Type")
> End With
>
>
> If
ComboBox1.Text = "Platform" Then
> With ComboBox2
> .AddItem ("Request ID")
> .AddItem ("Request Title")
> .AddItem ("Statues")
> .AddItem ("Type")
> End With
> Else: With ComboBox2
> .AddItem ("Platform")
> .AddItem ("Request ID")
> .AddItem ("Request Title")
> .AddItem ("Statues")
> .AddItem ("Type")
> End With
> End If
>
> End Sub
> -----------------------------------------------------------
>
> Monn pb est simple : il faut que le choix de l'utilisateur d'efface du deuxieme combo. Ici, je ne travail qu'avec le choix "Platform". Mais il ne comprend pas
ComboBox1.Text = "Platform">
> J'ai egalement essaye avec :
ComboBox1.List(ComboBox1.ListIndex)> ainsi qu avec
ComboBox1.ListIndex mais ca ne dois vraiment pas etre ca.
> Merci encore pour l'aide....