Problème checkbox et cellule boolean

Version imprimable

Voir 40 message(s) de cette discussion en une page

1 pièce(s) jointe(s)

Problème checkbox et cellule boolean

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:

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) :
Pièce jointe 208606
Si quelqu'un sait comment résoudre l'erreur, merci d'avance!

Bonjour,

En VBA, True vaut -1:

Code:

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

03/05/2016, 14h56
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... :)
03/05/2016, 14h57
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]
03/05/2016, 15h09
Promethee25

Quelle est la ligne de code sur laquelle le problème survient?
03/05/2016, 15h19
parmi

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

Ça prendrait peut-être un peu plus d'explications...
03/05/2016, 15h19
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:

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.
03/05/2016, 15h23
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.
03/05/2016, 15h31
jeanmidudu

C'est ce que j'ai fait pur contourner le problème :), mais ça ne m'explique toujours pas la récurrence alors qu'il ne devrait pas y en avoir :/
05/05/2016, 19h05
AlainTech

Bonjour,

A vue de pif, je dirais que ton événement L1_Change() doit se terminer par un

Code:

Application.EnableEvents = True

qui annule le False de l'événement _Click.

Mais sans voir...
06/05/2016, 08h11
jeanmidudu

@AlainTech

Bonjour,

Tu n'as pas du tout lu le code, car tout y est.
Et le problème ne peut pas venir de là, car justement, le but est d'empêcher l'event de se faire en boucle. Le problème est surtout que le Application.EnableEvents=false ne fonctionne pas (et non pas l'inverse).

Bonjour

Sans préjudice aucun de l'intérêt de ces manoeuvres, ni de leur efficacité ou de leur finalité (en les exécutant donc comme l'en a décidé le demandeur), je n'ai aucun problème avec ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub Worksheet_Activate() CheckBox1.LinkedCell = "Feuil10!B1" End Sub Private Sub CheckBox1_Click() Dim toto As Range With Sheets("Feuil10") Set toto = .Range(CheckBox1.LinkedCell) toto.Value = CheckBox1.Value ^ 2 If toto.Offset(0, 1).Value = 0 Then If toto.Value = 0 Then toto.Value = 1 Else toto.Value = 0 End If Else CheckBox1.Value = 0 End If CheckBox1.Value = toto.Value '* -1 End With End Sub
qui "travaille" sur la ligne 1 de la feuille "Feuil10"
Attention : ma checkbox est ici sur une feuille de calcul. Si sur un userform : ce n'est pas la propriété LinkedCrell, mais la propriété Controlsource, qu'il faut utiliser

06/05/2016, 11h59
AlainTech

Citation:

Envoyé par jeanmidudu

Tu n'as pas du tout lu le code, car tout y est.

Je me permets de te citer:

Citation:

Politesse, respect et humilité sont les 3 éléments de base dans une bonne relation d'entraide

Ne trouves-tu pas que tu affirmes d'une manière manquant d'humilité?

Pour te montrer que j'ai bien tout lu, je reprends ta phrase:

Citation:

J'aimerai donc trouver un moyen d'empêcher l'appel à L1_change() et L1_Click (L1 étant ma checkBox).

Tu ne nous montres pas le code de L1_Change().

De plus, dans ton code, tu fais référence à Module1.ligne dont on ne sait pas comment il est généré.

Il faut que tu saches que j'ai un emploi du temps extrêmement chargé.
Que, malgré ça, je passe beaucoup de temps en modération du forum (je lis TOUS les messages de Macros et VBA Excel).
Tout ça ne me laisse que très peu de temps pour répondre à des questions.
J'en ai pris du temps pour répondre à la tienne car le sujet m'a interpellé.
J'ai répondu avec l'expérience que j'en ai.
J'aurais aimé pouvoir tester mais impossible car tu ne montres pas tout.

Alors, s'il te plaît, ne dis pas que je n'ai "pas du tout lu"...

Bien cordialement

Alain

P.S. Je reste intéressé par le contenu de ton L1_Change() et la façon dont Module1.ligne est créé.
06/05/2016, 15h12
jeanmidudu

@AlainTech et @unparia

Désolé si je vous ai offensés, ce n'était pas mon intention. Je vais donc m'expliquer plus clairement :

En ce qui concerne le code de L1_change() Je ne l'ai pas donné car je ne l'ai pas modifié. C'était dans le sens où une modification non souhaitée de la checkbox avait lieu, sans intervention de ma part. Pour être exact, c'est l'event qui correspond soit à L1_change() soit à L1_click() que je veux empêcher d'avoir lieu. Certes ma formulation était imprécise, je vous prie de m'en excuser.

Ensuite en ce qui concerne Module1.ligne, il est crée dans Module1 en variable globale et initialisé à 2 dans mon usf. J'ai un spinButton qui fait incrémenter ou décrémenter sa valeur, de 1 en 1. Si nécessaire, je pourrais vous en fournir le code.

@unparia
J'ai essayé ta solution (je travaille avec un usf), mais le résultat reste strictement le même, c'est-à-dire un appel récurrent et infini à la fonction L1_click().

Je vous suis reconnaissant du temps que vous passez pour moi, je n'arrive pas à imaginer ce que représente le travail d'un modérateur AlainTech, et je te prie de croire que je n'avais pas l'intention d'être agressif. J'avais mal lu et n'avait pas remarqué que tu parlais de L1_change() et non pas de L1_click(). J'espère donc que tu auras compris que je n'utilise pas L1_change() et que donc l'erreur ne peut pas venir de là.
06/05/2016, 15h24
parmi

Si tu utilises les 2 événements _Change() et _Click(), je pense que tu fais une erreur.
Les 2 sont sensiblement les mêmes.
C'est possiblement là la source de l'erreur.
06/05/2016, 16h22
jeanmidudu

j'expliquais justement au-dessus que je n'en utilise qu'un seul, qui n'est autre que L1_click(). Je n'utilise pas change()
06/05/2016, 16h31
parmi

Désolé, j'ai dû sauter la dernière ligne...
Si tu utilises la variable booléenne comme mentionnée plus haut, ça fonctionne ?

Est-ce que tu utilises Application.EnableEvents ailleurs dans le code ?
J'ai comme l'impression que cette valeur (False au départ) se perd ailleurs dans le code, ce qui fait qu'elle devient True quand elle repasse dans cet événement.
Est-ce possible ?
06/05/2016, 16h38
unparia

Le code que je t'ai montré a été testé sur un projet neuf et fonctionne sans faille et sans boucle infinie.
S'il ne fonctionne pas une fois intégré à ton projet, ce ne peut donc être qu'en raison d'autres bouts de code dans ton projet.
Cherche-les. Je subodore (entre autres hypothèses) des instructions dans un évènement change (non de ta checkbox, mais de ta feuille de calcul), mais tu es bien seul à savoir ce que tu as dans ton projet.
Je réitère donc : mon code fonctionne, seul, sans faille.
06/05/2016, 18h36
jeanmidudu

@parmi
J'ai en effet contourné le problème via l'utilisation d'une variable booléenne (j'avais trouvé la solution seul), mais je continue de me demander pourquoi sans cette variable j'ai une boucle infinie.
Il s'agit également de la seule fois où j'utilise Application.EnableEvents dans le code. Il n'est utilisé à aucun autre endroit dans le projet.

@unparia
J'ai testé le programme que tu m'as donné seul (en-dehors du projet, avec seulement un usf et une checkbox), j'obtiens toujours la boucle infinie (idem avec mon code). J'ai également d'autres projets sur lesquels ces programmes (le tien comme le mien) fonctionnent correctement. Est-ce que cela pourrait venir d'un des paramètres du projet?
En ce qui concerne l'utilisation de la feuille, c'est la seule modification qui en est faite.
Je fournirai le projet complet dans la soirée ou demain, vous pourrez ainsi vérifier mes dires.
06/05/2016, 19h06
AlainTech

Bonjour,

J'ai trouvé!

Ce qui réactive les Events est le fait d'essayer de donner la valeur 1 à la CheckBox dans cette ligne:

Code:

Me.L1.Value = .Value

La CheckBox ne peut accepter cette valeur (ni True, ni False).

Travaille avec de vraies valeurs booléennes et tu n'auras plus le soucis.

Je me disais bien que cette discussion me ferait apprendre quelque chose...

Edit: La suite va m'apprendre que j'avais tort. Application.EnableEvents est inefficace dans un UserForm.

Voir 40 message(s) de cette discussion en une page