Probleme checkbox formulaire [Résolu]

[Biggy30]

Bonjour a tous

J'ai un probleme avec les fichus checkbox formulaire... je savais d'entrée de jeu que ces controle sont plutot embêtant a codé...mais pas autant...disons que dans VB c'était plus convivial !! voila mon code mais la deuxième condition ne fou rien alors qu'elle devrait vider mes cellule, la première, elle, fonctionne bien.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub tir_Clic()
 
If Sheets("DESSINS").Range("B68").Value = True Then
Sheets("PROGRAMME").Unprotect Password:="popol"
Sheets("PROGRAMME").Range("E26,E27").Value = Sheets("PROGRAMME").Range("E24").Value
Sheets("PROGRAMME").Range("E28,E29").Value = "1.75"
Sheets("PROGRAMME").Protect Password:="popol"
 
Else
 
If Sheets("DESSINS").Range("B68").Value = False Then
Sheets("PROGRAMME").Unprotect Password:="popol"
Sheets("PROGRAMME").Range("E26,E27").ClearContents
Sheets("PROGRAMME").Range("E28,E29").ClearContents
Sheets("PROGRAMME").Protect Password:="popol"
 
End If
End If
End Sub

Merci de me dire ce que je fait de pas correct !!

[jfontaine]

Bonjour,

Il est plus facile d'utiliser les Objets ActiveX (Visual Basic) si utilisation de VBA.

[Biggy30]

merci a toi mais j'ai plutot opté pour une liste de choix genre oui et non
...plus simple pour moi

Merci bcp