Valeur par défaut de ma combobox

Bonjour le forum,

J'ai cherché un peux sur le net mais je sèche...

Comment mettre par défaut une valeur dans ma combobox?

J'ai écrit ceci :

'Status auto
Me.ComboBox13.Value = "Rejected"

Mais sans succès...

j'ai lu quelque chose a propos d'un index mais je n'ai pas compris...

Pour info ma conbo pointe sur un sheet "Drop list" et se trouve en colonne I ligne 3 (la 1ère ligne étant le titre de la colonne)

'Status
For I = 2 To Sheets("Drop list").Range("I65536").End(xlUp).Row
ComboBox13 = Sheets("Drop list").Range("I" & I)
If ComboBox13.ListIndex = -1 Then ComboBox13.AddItem Sheets("Drop list").Range("I" & I)
Next I
Me.ComboBox13 = ""

Pouvez-vous éclairer ma lanterne svp.

Merci d'avance

Et mettre "rejected" en face de "value" dans les propriétés de la combobox ne fonctionne pas non plus...

Bonjour

Essayez plutôt comme ceci

Dim dlg As Integer
With Sheets("Drop list")
    dlg = .Range("I" & Rows.Count).End(xlUp).Row
    Me.Combobox13.List = .Range("I2:I" & dlg).Value
End With
Me.Combobox13.Value = "Rejected"

NB : attention que Rejected doit faire partie de données de votre colonne I

Crdlt

Bonjour Dan,

Merci pour la solution, mais j'ai compris d'ou venais le soucis...

Dans la dernière ligne du second code de mon 1er post j'ai ceci :

Me.ComboBox13 = ""

En le changeant en

Me.ComboBox13.Value = "Rejected"

cela règle le soucis...