Bonjour

J'ai ce code ci-dessous que voudrais simplifier

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
Private Sub CheckBoxA42_Click()
If CheckBoxA42.Value Then
Sheets("Nombre de viestiaires").Range("E3").Value = 1
Else
Sheets("Nombre de viestiaires").Range("E3").Value = 0
 End If
End Sub
 
Voici la silmplfication que l'on m'a sucgéré
 
Private Sub CheckBoxA42_Click()
Sheets("Nombre de viestiaires").Range("E3").Value = iff(CheckBoxA42.Value, 1, 0)
End Sub
 
Mais cela coince avec le iff
Que faire?
merci d'avance