Impossible d'ajouter une valeur à une combobox

Version imprimable

Bonjour,

J'ai un formulaire qui contient 4 OptionButton qui déterminent la valeur de ComboBox1 Puis ComboBox1 contrôle la valeur de Combobox2. Cependant il semblerait que dans mon code il y ait quelque chose qui m'empêche de donner une valeur à ComboBox3 (qui est indépendant des deux autres). Mon code en entier est le suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Private Sub BoltsButton_Click()
 Me.ComboBox1.Clear
 Options
End Sub
 
Private Sub ComboBox3_Change() 'J'ai aussi utilisé Me.ComboBox3.List = Sheets("Feuil1").Range("Thickness").Value et cela ne fonctionne pas
  With Me.ComboBox3
   .AddItem "1"
   .AddItem "2"
   .AddItem "3"
  End With
End Sub
 
 
Private Sub ScrewsButton_Click()
 Me.ComboBox1.Clear
 Options
End Sub
 
Private Sub SheetsButton_Click()
 Me.ComboBox1.Clear
 Options
End Sub
 
Private Sub Options()
 Select Case True
  Case SheetsButton
   Me.ComboBox1.List = Sheets("Feuil1").Range("A1:A3").Value
  Case BoltsButton
   Me.ComboBox1.List = Sheets("Feuil1").Range("A5:A10").Value
  Case ScrewsButton
   Me.ComboBox1.List = Sheets("Feuil1").Range("A12:A16").Value
  Case Else
   Me.ComboBox1.List = Sheets("Feuil1").Range("A18:A25").Value
 End Select
End Sub
 
Private Sub VariousButton_Click()
 Me.ComboBox1.Clear
 Options
End Sub
 
Private Sub ComboBox1_Change()
 Dim Materiau As String
 Dim c As Range
 
 Me.ComboBox2.Clear
 If Me.ComboBox1.ListIndex > -1 Then
  Materiau = Me.ComboBox1
  Set c = Worksheets("Feuil1").Range("A:A").Find(Materiau, LookIn:=xlValues, Lookat:=xlWhole)
  If Not c Is Nothing Then
   Me.ComboBox2.List = Application.Transpose(c.Offset(, 1).Resize(, 4).Value)
   Set c = Nothing
  End If
 End If
End Sub

Je voudrais aussi que ComboBox3 ne soit activé que quand SheetsButton l'est. Comment faire? J'ai essayé .Enabled mais ça ne fonctionne pas.

02/07/2015, 14h00
Kimy_Ire

Bonjour

Tu utilises l'événement Private Sub ComboBox3_Change(), ce qui signifie que le code ne s'effectuera que lorsque tu changes la valeur de la ComboBox.
Ainsi, si tu souhaites initialiser ta ComboBox dès l'ouverture de ton formulaire, fait le dans l'événement Private Sub UserForm_Initialize().
Voila ! :ccool:

Cordialement,
Kimy
02/07/2015, 14h12
Tikalins

Merci

Merci beaucoup, en plus d'avoir résolu mon problème tu m'as aussi appris ce que signifiait Private Sub! Super

Par contre j'avais posé une deuxième question. Comment on active/desactive une combobox selon par exemple un OptionButton sélectionné?
02/07/2015, 15h03
Zirak
Bonjour, c'est bien l'instruction .Enabled pourtant, il devait y avoir un problème dans la construction de ton code.
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub SheetsButton_Click() Me.ComboBox1.Clear Options If SheetsButton.value = True then ComboBox3.Enabled = True Else ComboBox3.Enabled = False end if End Sub
Après il ne faut pas oublier non plus de désactiver ta ComboBox lors de l'initialisation de ton UserForm, sinon, elle sera active de base.
02/07/2015, 15h37
Tikalins

Merci! je n'avais pas désactivé dans l'initialisation de l'UserForm! Maintenant ça fonctionne.