Bonjour à tous,

Alors voilà mon problème: j'ai une checkbox, qui en prend la valeur d'une cellule contenant soit 0 soit 1 (servant de boolean). Le problème c'est que j'obtiens l'erreur
"La métode Range de l'objet '_Worksheet' a échoué" lorsque j'ai 1 dans la colonne B et 0 dans la colonne C (sur la même ligne). Dans tous les autres cas, cela fonctionne. Je ne vois absolument pas comment résoudre l'erreur.

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
16
Private Sub L1_Click()
    Application.EnableEvents = False
    With Sheets(1).Range("B" & Module1.ligne)
        If Sheets(1).Range("C" & Module1.ligne).Value = False Then
            If .Value = False Then
                .Value = 1
            Else
                .Value = 0
            End If
        Else
            Me.L1.Value = 1
        End If
        Me.L1.Value = .Value
    End With
    Application.EnableEvents = True
End Sub
Et voilà à quoi ressemble mon fichier (il s'agit d'un fichier de test) :
Nom : Capture.JPG
Affichages : 426
Taille : 30,3 Ko
Si quelqu'un sait comment résoudre l'erreur, merci d'avance!