XL 2016 liste déroulante dans combobox

BrunoM45 à dit:

Bonjour Cuhoda

Ah non ! Ca ce n'est pas possible dans un userform 😜

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set ws = Sheets("INVENTAIRE")
list_Noms = Application.Transpose(ws.Range("A16:A" & ws.Range("A1048576").End(xlUp).Row).Value)
Me.ComboTri.List = list_Noms
  Me.ComboTri.Value = Target.Value
  Me.ComboTri.Visible = True
  Me.ComboTri.Activate
Else
Me.ComboTri.Visible = False
End If
End Sub

Quand vous êtes dans VBE, le menu de gauche vous donne tous les objets
Regarde la pièce jointe 1123023
Donc il faut sélectionner "UserForm", vous avez ensuite dans le menu de droite tous les évènements
Regarde la pièce jointe 1123024

Du coup on peut essayer avec "Initialize"

Ce qui donne tout simplement

Code:

Private Sub UserForm_Initialize()
  Set ws = Sheets("INVENTAIRE")
  list_Noms = Application.Transpose(ws.Range("A16:A" & ws.Range("A1048576").End(xlUp).Row).Value)
  Me.ComboTri.List = list_Noms
End Sub

A+

Cliquez pour agrandir...

BrunoM45 à dit:

Ah non ! Ca ce n'est pas possible dans un userform

Cliquez pour agrandir...

cuhoda à dit:

Merci Pour la réponse , par contre quand je met le code, c'est mon module qui pose problème ce qui fait que l'userform ne veut pas s'ouvrir

Cliquez pour agrandir...