Discussion :

[jeanmidudu]

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) :

Si quelqu'un sait comment résoudre l'erreur, merci d'avance!

[Promethee25]

Bonjour,

En VBA, True vaut -1:

Code :

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

1
2
3
4
Sub test()
    Debug.Print 1 * False
    Debug.Print 1 * True
End Sub

[jeanmidudu]

Je ne savais, j'essaye donc avec -1.

Merci beaucoup =)

[Edit]
J'ai exactement la même erreur avec -1, ça ne change strictement rien
[/edit]

[Promethee25]

Quelle est la ligne de code sur laquelle le problème survient?

[parmi]

Et qu'est-ce que L1 ? un Checkbox ?
si oui, liée à des cellules ?

Ça prendrait peut-être un peu plus d'explications...

[jeanmidudu]

En fait le problème vient du fait qu'en modifiant la valeur, cela créé une récurrence, causant une boucle infinie, et donc un plantage (au bout d'un moment) à chaque fois que l'on fait appel à

Code :

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

sheets(1).Range("B"&Module1.ligne)

En gros, au bout d'un certain nombre de boucles, le programme plante sur une nouvelle récurrence.

J'aimerai donc trouver un moyen d'empêcher l'appel à L1_change() et L1_Click (L1 étant ma checkBox). Chose que Application.enableEvents=False devrait empêche, mais ne fait aucune différence ici.

[parmi]

Tu pourrais utiliser une variable Booléenne Public
Tu la mets à True avant de faire L1= .Value et la remet à False après
Dans ton événement Click ou Change, tu vérifies l'état de cette variable.

[parmi]

BOnjour,

J'ai pas tout bien compris, mais comme tu travailles avec des Vrai/Faux et des chiffres 0/1, je pense que le 1 cause problème
0 = Faux
-1 = Vrai
1 <> Vrai <> Faux

EDIT: J'ai été trop lent...