Discussion :

[dark_sidious]

Bonjour à tous,

J'essaie depuis quelque temps de modifier la taille d'un userform en cochant ou décochant des checkbox (3 au total).
Voici le code que j'utilise pour l'une d'entre elle, sachant que pour les deux autres c'est le même code.

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
 
Private Sub CheckBox1_Change()
Select Case CheckBox1.Value
Case Is = True And CheckBox2.Value = True And CheckBox3.Value = True
Me.Height = 500
Case Is = True And CheckBox2.Value = True And CheckBox3.Value = False
Me.Height = 500
Case Is = True And CheckBox2.Value = False And CheckBox3.Value = False
Me.Height = 200
Case Is = True And CheckBox2.Value = False And CheckBox3.Value = True
Me.Height = 500
 
Case Is = False And CheckBox2.Value = True And CheckBox3.Value = True
Me.Height = 500
Case Is = False And CheckBox2.Value = True And CheckBox3.Value = False
Me.Height = 200
Case Is = False And CheckBox2.Value = False And CheckBox3.Value = False
Me.Height = 200
Case Is = False And CheckBox2.Value = False And CheckBox3.Value = True
Me.Height = 200
Case Is = False And CheckBox2.Value = False And CheckBox3.Value = False
Me.Height = 100
End Select
 
End Sub

Mais lorsque rien n'est coché il considère que tout l'est...
Le case is true alors qu'il est false !!!

Je vous joint le ficher pour que vous essayer.

Merci de votre attention et de votre aide