XL 2013 VBA ajouter une combobox

call911

XLDnaute Occasionnel
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:

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

XLDnaute Occasionnel
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 :

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

XLDnaute Occasionnel
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.
 

Discussions similaires

Réponses
6
Affichages
327

Statistiques des forums

Discussions
312 875
Messages
2 093 147
Membres
105 639
dernier inscrit
crobyx