Conditions UserForm sur VBA Excel

Version imprimable

22/12/2010, 17h14
fny_bnfnt

Conditions UserForm sur VBA Excel

Bonsoir à tous!

Je travaille sur un projet VBA sur excel pour une école, c'est un programme de gestion de notes d'élèves, je vous expose mon problème :

J'ai un Userform où se trouve plusieurs combobox :
1. la promotion
2. le groupe
3. le nom de l'élève

les valeurs pour chaque combobox :
1 : 1 et 2
2 : A et B
3 : dépend des 2 premières

Ainsi, si je sélectionne "1" dans ma premiere Combobox, alors les items de la combobox3 sont les valeurs de ma colonne B dans ma feuille 2.

J'espère avoir assez bien expliqué..=S.. pourriez vous m'aider pour le code?

Très cordialement.
22/12/2010, 17h30
aliasjadawin

personnellement je n'ai rien compris. Ou sont tes données ?
22/12/2010, 19h06
fny_bnfnt

mes combobox1 et 2 ont leurs données sur ma feuille1 et combobox3 a ses données sur la feuille2.
est-ce cela que vous n'aviez pas compris?:)

Bonsoir,

Si j'ai bien compris, tu souhaites que le ComboBox3 se remplisse de façon dynamique en fonction des choix effectués dans les deux premiers ?
Voici un code pour un début de piste, à adapter ou à creuser car d'après ce que j'ai compris, tu as 4 colonnes en feuil2 qui servent de source à ComboBox3 :

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
 
 
Private Sub UserForm_Initialize()
 
    ComboBox1.AddItem 1
    ComboBox1.AddItem 2
    ComboBox2.AddItem "A"
    ComboBox2.AddItem "B"
 
End Sub
 
Private Sub ComboBox1_Change()
 
Dim Plage As Range
 
With Worksheets("Feuil2")
 
    Select Case ComboBox1.Text
 
        Case 1
 
            Select Case ComboBox2.Text
 
                Case "A"
 
                    Set Plage = .Range(.[A3], .[A65536].End(xlUp))
 
                Case "B"
 
                    Set Plage = .Range(.[B3], .[B65536].End(xlUp))
 
            End Select
 
        Case 2
 
            Select Case ComboBox2.Text
 
                Case "A"
 
                    Set Plage = .Range(.[C3], .[C65536].End(xlUp))
 
                Case "B"
 
                    Set Plage = .Range(.[D3], .[D65536].End(xlUp))
 
            End Select
 
    End Select
 
End With
 
ComboBox3.Clear
 
On Error Resume Next
ComboBox3.RowSource = Plage.Address
 
End Sub
 
Private Sub ComboBox2_Change()
 
Dim Plage As Range
 
With Worksheets("Feuil2")
 
    Select Case ComboBox1.Text
 
        Case 1
 
            Select Case ComboBox2.Text
 
                Case "A"
 
                    Set Plage = .Range(.[A3], .[A65536].End(xlUp))
 
                Case "B"
 
                    Set Plage = .Range(.[B3], .[B65536].End(xlUp))
 
            End Select
 
        Case 2
 
            Select Case ComboBox2.Text
 
                Case "A"
 
                    Set Plage = .Range(.[C3], .[C65536].End(xlUp))
 
                Case "B"
 
                    Set Plage = .Range(.[D3], .[D65536].End(xlUp))
 
            End Select
 
    End Select
 
End With
 
ComboBox3.Clear
 
On Error Resume Next
ComboBox3.RowSource = Plage.Address
 
End Sub

Hervé.

23/12/2010, 11h59
fny_bnfnt

1 pièce(s) jointe(s)

Merci Hervé!

Ton code n'est vraiment pas loin de ce que je cherche, j'ai essayé de le modifier pour arriverà mes fins mais je débute et j'ai du mal.
J'ai fait un schéma pour mieux expliquer :

Pièce jointe 70883

J'espère être un peu plus claire (les rectangles arrondis gris sont mes feuilles et le rectangle vert : mon userform) ;)

J'ai trouvé finalement:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub ComboBox10_Change()
 
 Dim i As Integer
 
i = 0
i = i + 1
 
Worksheets("BDD").Activate
Select Case ComboBox10.Text
    Case 1
Do While Range("B14").Offset(i) <> ""
Saisie_notes.ComboBox8.AddItem Range("B14").Offset(i)
i = i + 1
Loop
    Case 2
Do While Range("B14").Offset(i) <> ""
    Saisie_notes.ComboBox8.AddItem Range("B14").Offset(i)
    i = i + 1
Loop
 
End Select
 
End Sub

merci hervé pour le bout de code! ;)