Combobox = null

Bonjour à tous

Un petit souci avec un combobox . Dans un userform j'ai un combobox avec un textbox, les données du combobox doivent apparaitre dans le textbox!!

Mais là problème le combobox apparait null !!!

Je cherche, je cherche encore et encore, j'ai besoin de votre savoir.

ci joint le fichier en question

Merci d'avance

Bonsoir

Pour la ComboBox1 modifies la propriété BoundColumn : 1

Bonjour Benzai,

Ca fonctionne merci .

Enfait le but de ce test été de pouvoir rajouter à un combobox une valeur à l'aide du bouton ajouter . Ca ca fonctionne, mon tous petit souci c'est que je dois fermer l'userform afin qu'il intialize. Normal!!!

Y aurai il un moyen de le faire sans fermer l'userform?

Ci joint le test.

Merci d'avance.

Bonsoir

Une solution

remplaces tout ton code par celui-ci

Private Sub Ajouter_Click()
Dim DerLig As Integer

  With Worksheets("Données")
    DerLig = .Range("C20").End(xlUp).Row + 1
    .Range("C" & DerLig).Value = Me.ComboBox1.Value
  End With
  InitComboBox
End Sub

Private Sub ComboBox1_Change()
  Me.TextBox2 = Me.ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
  InitComboBox
End Sub

Sub InitComboBox()
'Alimentation comboBox
Dim tablo, derligne As Long

  With Sheets("Données")  'Feuille utlisée
    derligne = .Range("C65536").End(xlUp).Row
    tablo = .Range("C3:C" & derligne)
    Me.ComboBox1.List = tablo
  End With
End Sub