Probleme textbox combobox
Bonjour à tous!!
J'ai dans un fichier excel plusieurs noms de projets, à chaque projet correspond une référence, un nom ... J'ai fait une liste contenant tous les projets grâce à une combobox, Pour cela j'ai utilisé le code suivant :
Private Sub Userform_Initialize ()
For i=3 to 19
Combobox1.AddItem Sheets ("Feuil1").Cells(1,i)
Next
End Sub
Jusque là pas de problème. J'aimerais ensuite que dans un textbox soit inscrit la référence en fonction du projet du combobox. Par exemple s'il y a le projet 1 dans la combobox, la référence 1 est dans la textbox, si c'est le projet 2 alors ça sera la référence 2 dans la textbox etc... Pour cette partie j'ai écris le code suivant :
Private Sub TextBox1_Change ()
For i=3 to 19
If ComboBox1.Value = sheets("Feuil1").Cells(1,i) Then
TextBox1.Value = Sheets ("Feuil1").Cells(2,i).Value
End if
Next
End Sub
Ce code ne fonctionne pas et je ne comprend pas. Pouvez vous m'aider et me dire ce qui ne va pas?
D'avance je vous remercie.
Bonjour,
A essayer
Private Sub Userform_Initialize()
Dim i As Byte
For i = 3 To 19
Me.ComboBox1.AddItem Sheets("Feuil1").Cells(1, i)
Next
End SubPrivate Sub Combobox1_Change()
Dim i As Byte
i = Me.ComboBox1.ListIndex + 3
Me.TextBox1.Value = Sheets("Feuil1").Cells(2, i).Value
End SubSi ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER
Amicalement
Ca marche!!!
Merci beaucoup!!