Discussion :

[motard01]

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

[Philippe Tulliez]

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 :

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

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 :

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

MsgBox Abs(CheckBoxA42.Value * 1)

Cela donnera le même résultat

[motard01]

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