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

chaelie2015

XLDnaute Accro
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
 

Pièces jointes

  • charlie edition.xlsm
    243.1 KB · Affichages: 56

laetitia90

XLDnaute Barbatruc
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

Code:
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

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

Bonjour Laetitia:cool:
merci pour la réponse, ci dessous une proposition que je l'ai trouvé elle est fonctionnelle
Code:
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:eek:
 

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 041
Membres
101 879
dernier inscrit
Arthur M