Discussion :

[AlainTech]

Pour les pros du VB6 (pas valable en VBA).

Comment assigner par le code, de la façon la plus simple, sa valeur à une CheckBox à partir d'un Booléen.

Pour clarifier la question:
Je ne dispose que d'une valeur booléenne et je veux changer l'état (coché ou pas) d'une CheckBox en fonction de cette valeur.

Quand je dis de la façon la plus simple, on peut traduire par la plus courte (à l'écriture).

Si je dis "les pros", ce n'est pas par esprit de ségrégation mais parce que ça fait appel à une bonne connaissance de la représentation des données en VB. Ca n'empêche à personne de s'y lancer même sans ces connaissances.

SVP, ne postez que du code testé. Le but de ce post est de vous faire chercher sur un problème, pas de recevoir un max de réponses. Je supprimerai tout message dont la solution ne fonctionne pas.

Par contre, vous pouvez poster vos commentaires sur l'évolution de vos recherches.

Pourquoi pas valable en VBA?
Car en VBA on peut assigner True ou False à une CheckBox. Donc, pas d'intérêt.

Edit --> Une assignation tient en une ligne. Pas besoin de tout le charabia autour tel que bouton et autre Form_Load.

[jmfmarques]

Avec VB5 le code suivant marche sans problème :

Code :

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

1
2
3
Private Sub Command1_Click()
  If Check1.Value = 0 Then Check1.Value = 1 Else Check1.Value = 0
End Sub

[leroissejp]

Bonsoir,
Effectivement, le CheckBox à une valeur True ou False, donc Boolean.
Enfin il y a ceci qui marche.

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 Command1_Click()
Dim bln As Boolean
bln = False
If Command1.Caption = "Activer Check1" Then
        Check1 = 1
          Command1.Caption = "Désactiver Check1"
Else
          Command1.Caption = "Activer Check1"
        Check1.Value = bln
    End If
End Sub
 
Private Sub Form_Load()
Command1.Caption = "Activer Check1"
End Sub

jpleroisse

[ypicot]

Je n'ai plus VB sous la main (désolé...) mais il me semblait qu'il fallait mettre 0 pour faux et -1 pour vrai (puisque not 0 = -1, et non pas 1)

VBment,

Yvan

[AlainTech]

Avec VB5 le code suivant marche sans problème :

Code :

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

1
2
3
Private Sub Command1_Click()
  If Check1.Value = 0 Then Check1.Value = 1 Else Check1.Value = 0
End Sub

Quel est l'intérêt de ce que tu as écrit?
J'interprète: Si ma chkbox est décochée, je la coche, sinon, je la décoche.

Par contre, tu donnes un premier élément de recherche.
Une CheckBox n'accepte que les valeurs 0 et 1.

[AlainTech]

Bonsoir,
Effectivement, le CheckBox à une valeur True ou False, donc Boolean.

J'insiste, on parle bien de VB (5 ou 6) pas de VBA.

Il n'est pas possible d'assigner True ou False à une CheckBox.

[AlainTech]

Je n'ai plus VB sous la main (désolé...) mais il me semblait qu'il fallait mettre 0 pour faux et -1 pour vrai (puisque not 0 = -1, et non pas 1)

VBment,

Yvan

Exact!

Deuxième élément de recherche.

True vaut -1 et False vaut 0

[jmfmarques]

explique-toi tout-à-fait :
aucune valeur (y compris 0, 1 et -1) ne doit apparaître dans le code oùseuls true et false seraient permis ?

[Mandalar]

J'ai trouvé ca:

Code :

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

1
2
3
Dim b As Boolean
b = True '(ca marche aussi pour b = False)
Check1.Value = Abs(b)

A priori le false booléen correspond a 0 et le true booléen à -1. Cependant la valeur "cochée" du checkbox semble être 1 (d'ou la valeur absolue) la fonction valeur absolue semblant également convertir implicitement en entier le "true" ou "false" du booléen.

[jmfmarques]

voila :

Code :

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

1
2
3
Private Sub Command1_Click()
If Check1.Value = -False Then Check1.Value = -True Else Check1.Value = -False
End Sub

[jmfmarques]

Je précise :
par mon code précédent, j'attribue la valeur que je veux à la checkbox sans utiliser 1, 0 ou -1

[AlainTech]

Prenons une variable booléenne, appelons-la blnCheck.

Une assignation simple serait:

Code :

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

Check1.Value = bnlCheck

Or, on sait que VB n'accepte pas cette syntaxe.
Il faudra convertir blnCheck en un format acceptable par Check1.Value.

Le chalenge est de trouver la manière la plus courte pour faire l'assigation.

C'est clair, maintenant?

[Mandalar]

AlainTech, est-ce que ce que j'ai proposé plus haut (avec abs()) est recevable ? ou il y a plus simple (plus pratique) ?

[DarkVader]

Mandalar t'a déjà fourni la réponse

[jmfmarques]

ben !
où est la différence avec ce que je disais ?
pour cocher je dirais :

Code :

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

1
2
3
4
Private Sub Command1_Click()
bnlcheck = -True
Check1.Value = bnlcheck
End Sub

et pour décocher :

Code :

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

1
2
3
4
Private Sub Command1_Click()
bnlcheck = -false
Check1.Value = bnlcheck
End Sub

[AlainTech]

Je précise :
par mon code précédent, j'attribue la valeur que je veux à la checkbox sans utiliser 1, 0 ou -1

Tu n'attribues pas la valeur que tu veux, tu changes son état.
Ce n'est pas pareil.

[AlainTech]

AlainTech, est-ce que ce que j'ai proposé plus haut (avec abs()) est recevable ? ou il y a plus simple (plus pratique) ?

On est tout près...

[jmfmarques]

tu as demandé :

Je ne dispose que d'une valeur booléenne et je veux changer l'état (coché ou pas) d'une CheckBox en fonction de cette valeur.

!!!!!
c'est bien ce que j'ai fait !

[Mandalar]

Ceci semble marcher et est encore plus simple:

Code :

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

1
2
Dim b As Boolean
Check1.Value = -b

[AlainTech]

ben !
où est la différence avec ce que je disais ?
pour cocher je dirais :

Code :

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

1
2
3
4
Private Sub Command1_Click()
bnlcheck = -True
Check1.Value = bnlcheck
End Sub

et pour décocher :

Code :

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

1
2
3
4
Private Sub Command1_Click()
bnlcheck = -false
Check1.Value = bnlcheck
End Sub

Si tu mets -True dans blncheck, ce n'est plus une variable booléenne...
J'ai dit qu'on recevait une valeur booléenne dans blnCheck.

Ceci dit, tu t'es fort approché de la solution en apportant un élément important.