checboxes toute ok 1 ou 2 bug

[Yvon]

Bonjour à tous,

J'ai 5 checbox, quand elles générent toutes la valeur false, elles lancent une macro et cela marche, je souhaiterai que lorsque qu'une seule ou plusieure à une valeur True elle lance une autre macro.

Qui peut m'aider je suis coincé, par avance merci je vous livre le code:
Sub fichcomp2()
If Range('P36') = False Then
If Range('P38') = False Then
If Range('P40') = False Then
If Range('P42') = False Then
If Range('P44') = False Then
Call Materiel1
Else
Call materiel2
End If
End If
End If
End If
End If

End Sub

Bonne journée
Yvon

 

[PascalXLD]

Bonjour

essaies

If Range('P36') = False And Range('P38') = False And Range('P40') = False And Range('P42') = False And Range('P44') = False Then
Call Materiel1
Else
Call materiel2
End If

Bon courage

 

[Yvon]

Merci Pascal,

Cela marche au poil et j'ai compris ou je m'étais planté donc coup double.

Bonne journée
a++
Yvon