ComboBox.List - Valeur unique

Bonjour à tous,

Petite question qui ne devrait pas prendre beaucoup de temps à résoudre:

Est-il possible d'avoir une ComboBox avec une seule valeur ?

    If  ComboBox1.Value = "Merci par avance :) " Then
        ComboBox2.Clear
        ComboBox2.List = Application.Transpose(Sheets("database").Range("I99:I100"))       
    End If

Dans la dernière ligne du code ci-dessus, je suis obligé de mettre I99:I100 pour retrouver la valeur dans la ComboBox2. J'ai beau essayer:

        ComboBox2.List = Application.Transpose(Sheets("database").Range("I99"))

Rien ne s'affiche dans la ComboBox2.

Merci par avance de vos retours

Bonjour,

S'il n'y a qu'un élément, il faut utiliser AddItem

Cf exemple

Boisgontier

Nickel ! C'est vrai, je n'y avais pas pensé

Merci et bonne journée !