Discussion :

[Stanler]

Bonjour,

Je code une Userform avec 4 Checkbox.
Voici le code que j'ai pour l'instant, dans le module de l'userform :

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
    OteCroix Me
    If CheckBox1 = "Vrai" And CheckBox2 = "Vrai" And CheckBox3 = "Vrai" And CheckBox4 = "Vrai" Then
    Unload Me
    End If
End Sub

Dans un module standard :

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
Option Explicit
 
Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
 Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
 
 Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Public Transfer(6) As String
 
Sub OteCroix(UF As UserForm)
Dim hwnd As Long
    'Enlève la croix rouge de l'UF
    hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
    & "Frame", UF.Caption)
    SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

Je souhaite fermer l'userform lorsque toutes les cases sont cochées.
Sauriez vous comment faire cela ?

Merci,

[Invité]

Code :

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

1
2
3
If CheckBox1*CheckBox2 * CheckBox3 * CheckBox4 =trueThen
    Unload Me
    End If

[Stanler]

Bonjour,

Merci pour ta réponse rapide

Avec ton code, j'obtiens le même résultat qu'avec le mien. J'ai ajouté un espace entre "true" et "then".

[Invité]

si les case sont cocher alors true sinon false!

que veux tu faire exactement si toutes les case sont cochées,

Code :

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

If CheckBox1*CheckBox2 * CheckBox3 * CheckBox4 =true Then

si toutes les case sont décochées,

Code :

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

If CheckBox1*CheckBox2 * CheckBox3 * CheckBox4 =false Then

si une est choché

Code :

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

If CheckBox1+CheckBox2 + CheckBox3 + CheckBox4 =true Then

si une est décoché,

Code :

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

If 4+ CheckBox1+CheckBox2 + CheckBox3 + CheckBox4 <>0 Then

[Stanler]

Si toutes les cases sont cochées alors, je souhaite fermer l'Userform

Si une seule case est cochée alors, ne rien faire
Si une seule case est décochée alors, ne rien faire
Si toutes les cases sont décochées alors, ne rien faire

La seule action est à réaliser si toutes les cases sont cochées

[Theze]

Bonjour,

Dans le même esprit :

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
 
Private Sub CheckBox1_Click()
    Fermer
End Sub
 
Private Sub CheckBox2_Click()
    Fermer
End Sub
 
Private Sub CheckBox3_Click()
    Fermer
End Sub
 
Private Sub CheckBox4_Click()
    Fermer
End Sub
 
Sub Fermer()
    If CheckBox1 + CheckBox2 + CheckBox3 + CheckBox4 = -4 Then Unload Me
End Sub