Discussion :

[Pequinho]

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

Merci de votre aide.
Cordialement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patbou]

BONJOUR,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_Activate()
.....initiliaser le combo
End Sub

[Pequinho]

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

[Pequinho]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonsoir


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bigalo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,