XL 2013 VBA ajouter une combobox

[call911]

Bonjour,

Dans un userform, j'ai créé une premiere combobox.
Je souhaite rajouter une deuxième combobox sur le meme formulaire, mais je ne sais pas comment la coder.
Pour le moment mon code ressemble à ça:

Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize() 
  Dim i As Integer
    i = 1
  Do While Worksheets("Actions").Cells(i, 1) <> "" 
  CbxAction.AddItem Worksheets("Actions").Cells(i, 1)
    i = i + 1
  Loop
  
End Sub

Est ce que je dois refaire un nouveau Private Sub UserForm_Click()
Puis rajouter un nouveau Private Sub UserForm_Initialize() et déclarer une nouvelle variable, ou est ce qu'il y a plus simple à faire?

Merci

 

[bof]

Bonjour,
Non on ne peux pas faire plusieurs Initialize
Si ton 2ème Combo s'appelle CbxBidon et qu'il se rapporte à la colonne 2 ça va te faire :

Private Sub UserForm_Initialize()
  Dim i As Integer
    i = 1
  Do While Worksheets("Actions").Cells(i, 1) <> ""
  CbxAction.AddItem Worksheets("Actions").Cells(i, 1)
    i = i + 1
  Loop
    i = 1
  Do While Worksheets("Actions").Cells(i, 2) <> ""
  CbxBidon.AddItem Worksheets("Actions").Cells(i, 2)
    i = i + 1
  Loop
End Sub

A+

 

[call911]

Super, ça marche.

Pourtant j'avais déjà fait un premier essai dans ce sens la, mais je n'avais certainement pas fait correctement.
Du coup j'étais parti pour une nouvelle déclaration de variable, mais je n'ai pas réussi.

Merci beaucoup.