Discussion :

[nianko]

Bonjour,

J'ai crée un formulaire avec une combo box (on a une liste déroulante avec 6 plages de cellules prédéfinées) et 4 check box (chacune correspond à une opération: calculer la somme d'une plage de cellules données, la moyenne, le maximum et le minimum).

Le hic c'est que quand je sélectionne une plage de cellules dans ma combo box, aucun calcul n'est effectué.

Voici le code (un peu long et moche je sais):

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
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
Private Sub ComboBox1_Change()
'on choisit une plage parmi les 6 dans la combo box
Dim position As Integer
Dim contenu As Variant
position = ComboBox1.ListIndex
contenu = WorksheetFunction.Index(Range("plages"), position + 1, False)
End Sub
 
Private Sub CheckBox1_Click()
' pour la première check box, on calcule la somme
    If CheckBox1.Value = True Then
       Dim plage As Range
       Set plage = ComboBox1.Value
       TextBox1 = WorksheetFunction.Sum(plage)
    End If
End Sub
 
Private Sub CheckBox2_Click()
' pour la 2e check box, on calcule la moyenne
    If CheckBox2.Value = True Then
       Dim plage As Range
       Set plage = ComboBox1.Value
       TextBox1 = WorksheetFunction.Average(plage)
    End If
End Sub
 
Private Sub CheckBox3_Click()
' pour la 3e check box, on calcule le maximum
    If CheckBox3.Value = True Then
       Dim plage As Range
       Set plage = ComboBox1.Value
       TextBox1 = WorksheetFunction.Max(plage)
    End If
End Sub
 
Private Sub CheckBox4_Click()
' pour la 4e check box, on calcule le minimum
    If CheckBox4.Value = True Then
       Dim plage As Range
       Set plage = ComboBox1.Value
       TextBox1 = WorksheetFunction.Min(plage)
    End If
End Sub

Je mets également mon classeur pour ceux qui ont du courage.
Merci si qq à une idée pour résoudre mon pb.

[fring]

Bonjour,

Deux problèmes :

1. Où sont les CheckBox ? (ce sont des OptionButton sur le UserForm)
2. plage = ComboBox1.Value ---> plage = plage_un ---> elle est définie où la plage_un ?

En corrigeant ces deux points là ça fonctionne