Problème alimenter combobox

Bonjour à tous !

Voici mon problème :

Je rempli un combobox en initialisant le userform. Le code fonctionne correctement si lors de l'initialisation, l'onglet correspondant au combobox est sélectionné. Cependant, si je lance le userform depuis un autre onglet, impossible de remplir le combobox !

Deuxième question: est-il possible d'actualiser le combobox sans devoir initaliser le userform à chaque fois ?

Merci !

Voici le code que j'utilise :

Private Sub UserForm_Initialize()
Dim Col As Integer, DCol As Integer

ComboBox.Clear
   With Sheets("Feuill2")
      DCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
      For Col = 2 To DCol
         If .Cells(1, Col) <> "" Then ComboBox.AddItem .Cells(1, Col)
      Next
   End With
End Sub

Bonjour

Place un . (point) devant Cells dans

DCol = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column

Alex_P a écrit :

est-il possible d'actualiser le combobox sans devoir initaliser le userform à chaque fois ?

Oui c'est possibe

Il suffit de placer dans une procédure indépendante l'initialisation de la ComboBox et ensuite d'appeler cette procédure quant tu en as besoin

Private Sub UserForm_Initialize()
  InitCbb
End Sub

Sub InitCbb()
Dim Col As Integer, DCol As Integer

  ComboBox.Clear
  With Sheets("Feuill2")
    DCol = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    For Col = 2 To DCol
      If .Cells(1, Col) <> "" Then ComboBox.AddItem .Cells(1, Col)
    Next
  End With
End Sub

Sa fonctionne au poil merci bien !

Petite question, que change le .Cells ou lieu de cells ?

Bonjour

Alex_P a écrit :

que change le .Cells ou lieu de cells ?

Entre ça fonctionne et ça maaarche pas

Dans ce cas

Sans le point on fait référence à la cellule de la page qui est au premier plan (la page active)

Avec le point on fait référence à la cellule de la page qui est définie par l'instruction With Sheets(.....)

En même temps la réponse me paraît logique maintenant -_-'

Encore merci