Simplification code VBA

Bonjour

J'ai ce code ci-dessous que voudrais simplifier

Code:

---

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

Bonjour,
Tu dis que cela ne fonctionne pas mais tu ne dis pas ce qui ne fonctionne pas.
As-tu une valeur en retour qui ne te convienne pas ?
As-tu un message d'erreur, si oui lequel ?
etc...
La fonction IIf fonctionne comme la formule SI d'excel
Donc dans cette ligne

Code:

---

MsgBox IIf(CheckBoxA42.Value, 1, 0)

---

Si CheckBoxA42 est coché tu as la valeur TRUE dans le cas contraire FALSE donc IIf renverra 1 ou 0
Si tu veux encore simplifier, tu peux tout simplement faire

Code:

---

MsgBox Abs(CheckBoxA42.Value * 1)

---

Cela donnera le même résultat

Autant pour moi, si je n’explique pas ce qui ne marche pas c’est moins compréhensif.
Je viens de me rendre compte que j’avais noté IFF au lieu de IIF.

Bien cordialement