Initialisation d'une ComboBox

Bonjour,

Je rencontre un petit problème lors de l'initialisation d'une ComboBox dans une feuille Excel. La ComboBox s'initialise que lorsque je clique au moins une fois en dehors de la ComboBox elle-même. Je pense que cela est dû au fait que j'aie inséré le code dans la fonction "Worksheet_SelectionChange"... (mon code ci-dessous). Savez-vous quelle est la meilleure façon pour initialiser une ComboBox dans Excel ? Je ne vous cache pas que je suis novice dans l'utilisation de Excel :oops:

Merci de votre aide.
Cordialement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   Dim i As Byte Dim RawMaterialList(3) As String   RawMaterialList(0) = "Ferment" RawMaterialList(1) = "Sel" RawMaterialList(2) = "Présure"   ComboBox1.Clear   For i = 0 To 2 ComboBox1.AddItem RawMaterialList(i) Next i   ComboBox1.ListIndex = 0 End Sub

---

BONJOUR,

si le combo est utilisé sur une feuille , je pense qu il faut l initialiser lorsque celle ci est activée

Code:

---

1 2 3 4

Private Sub Worksheet_Activate() .....initiliaser le combo End Sub

---

La fonction Worksheet_Activate() n'était pas présente dans la code. Néanmoins, je l'ai ajoutée et j'ai inséré le code d'initialisation de la ComboBox. Malheureusement, cela ne fonctionne pas et la ComboBox n'est jamais initlialisée. Bon, je poursuis mes recherches. Si vous avez une idée, n'hésitez pas ;)

J'ai trouvé une solution qui me semble cohérente.
J'ai initialisé la ComboBox dans la fonction "Workbook_Open()" à l'ouverture du document Excel:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Workbook_Open()   Dim MyArray As Variant Dim Ctr As Integer MyArray = Array("Ferment", "Sel", "Présure")   For Ctr = LBound(MyArray) To UBound(MyArray) Feuil3.ComboBox1.AddItem MyArray(Ctr) Next   Feuil3.ComboBox1.ListIndex = 0   End Sub

---

bonsoir


Tu n'es pas obligé de boucler sur tous les éléments du tableau pour alimenter ton ComboBox:

Code:

---

1 2 3 4 5 6

Dim MyArray As Variant   MyArray = Array("Ferment", "Sel", "Présure")   Feuil3.ComboBox1.List() = MyArray Feuil3.ComboBox1.ListIndex = 0

---

bon week end
michel

Juste une précision supplémentaire, presque HS :

RowSource n’existe pas dans les versions Mac d’Excel. La technique utilisée par SilkyRoad est donc la norme, avec Excel Mac, pour alimenter un ListBox ou un Combo, lorsque l’on ne souhaite pas passer par AddItem.

Voici en exemple :

Code:

---

1 2 3

Private Sub UserForm_Initialize() ListBox1.List = Range("Source").Value End Sub

---

Cordialement,