afficher les données de la feuille dans USF via ComboBox

[chaelie2015]

Bonjour Forum
je souhaite remonter les données de la feuille vers le Userform selon la liste de ComboBox2
ci joit le fichier exemple
Salutations

 

[laetitia90]

Re : afficher les données de la feuille dans USF via ComboBox

BONJOUR chaelie2015

pour repondre a ta question en debut de module ......je comprends pas bien ta logique pour la suite

Dim m As Object, t(), c As Range
Private Sub UserForm_Initialize()
 ComboBox1.List = Array("LC", "C", "CTR", "M")
End Sub
Private Sub ComboBox2_DropButtonClick()
 If ComboBox1 = "" Then Exit Sub
 With Sheets(ComboBox1.Text)
 Set m = CreateObject("Scripting.Dictionary")
 For Each c In .Range("b4:b" & .[B65000].End(3).Row)
 m(c.Value) = ""
 Next c
 ComboBox2.List = m.keys
 End With
End Sub

 

[chaelie2015]

Re : afficher les données de la feuille dans USF via ComboBox

Bonjour Laetitia
merci pour la réponse, ci dessous une proposition que je l'ai trouvé elle est fonctionnelle

Private Sub ComboBox2_Change()
Dim Lgn&
  Lgn = ComboBox2.ListIndex + 4


With Sheets(CStr(ComboBox1))
  TextBox105 = .Cells(Lgn, 4)
  TextBox107 = .Cells(Lgn, 3)
  TextBox109 = .Cells(Lgn, 11)
  TextBox114 = .Cells(Lgn, 5)
 
End With

End Sub

salutations