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

chaelie2015

XLDnaute Impliqué
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
 

Fichiers joints

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 Impliqué
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:
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas