Compteur: Checkbox & Label

Version imprimable

25/04/2008, 13h55
Xiombarg2911

Compteur: Checkbox & Label

Bonjour,

je vais essayer d'etre clair : je pense que j'ai besoin d'un compteur.
Je souhaite enregistrer le Caption d'un Label si la checkbox en face est cochée.

Exemple

Checkbox1 Label1
Checkbox2 Label2

Si Checkbox1 est cochée alors enregistre le caption de Label1 dans une variable String
Si CheckBox1 ET checkBox2 sont cochées alors enregistre Label1 ET Label2 dans une variable

Le chiffre de la Checkbox correspondra toujours au chiffre du label en face.

Le but étant ensuite d'afficher un msgbox pour dire à l'utilisateur quelles checkbox il a choisi.

Merci à vous :)

Bonjour,

Lors de la validation via un bouton sur le UserForm, cela devrait ressembler à un truc du style :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Dim C As Control, Nb As Byte, x As Byte, Var As String
 
'comptage des Checkbox insérés sur le UserForm
For Each C In Me.Controls
    If TypeOf C Is MSForms.CheckBox Then Nb = Nb + 1
Next C
 
'bouclage sur les CheckBox
For x = 1 To Nb
    If Me.Controls("CheckBox" & x) = True Then
    'si la Checkbox est validée, mémorisation de la valeur du label correspondant
    Var = Var & Me.Controls("Label" & x).Caption & Chr(10)
    End If
Next x
 
MsgBox "les CheckBox validées sont :" & Chr(10) & Var
 
End Sub

25/04/2008, 14h30
zyhack

bonjour fring

beau code

si je peut me permettre dans la déclaration des variables

Code:

Dim C As Controls, Nb As Byte, x As Byte, Var As Str

il faut supprimer le s de Controls sinon il y a une imcompatibilité de type

Code:

Dim C As Control, Nb As Byte, x As Byte, Var As Str

bonne journée
25/04/2008, 14h37
fring

Exact merci oeil de Lynx ;) j'ai codé à la volée et le "s" est venu se coller à l'insu de mon plein gré :mrgreen: (c'est rectifié)
25/04/2008, 14h43
zyhack

Citation:

Envoyé par fring

Exact merci oeil de Lynx ;) j'ai codé à la volée et le "s" est venu se coller à l'insu de mon plein gré :mrgreen: (c'est rectifié)

J'aimerais bien sortir du code comme ça à la volée car moi il me faut un peut plus de temps
encore bravo :king:
25/04/2008, 15h54
epsylon_9

Salut,
Pour revenir au code proposé par fring
(j'espère ne pas dire de bêtises)

Imaginons 5 Checkbox cochés comme suit.

CheckBox1 = True
CheckBox2 = True
CheckBox3 = True
CheckBox4 = False
CheckBox5 = True

Tu vas donc compter 4 Checkbox coché et boucler des CheckBox1 à CheckBox4

Tu vas donc oublier CheckBox5 (qui lui est coché).

Je pense qu'il faut donc mieux boucler sur tout les CheckbOx et isoler le Chiffre si besoin pour déterminer quel Label récupérer.

(pas sûr d'avoir été clair).

@+
Julien
25/04/2008, 16h14
Xiombarg2911

totalement impressionnant 8O

Après adaptation du code à mon cas personnel au niveau du nom des CheckBox et des labels

Code:

If Me.Controls("CheckBox" & x) = True Then

en

Code:

If Me.Controls("CB_" & x) = True Then

Cela marche parfaitement point -> .

Désolé Epsylon_9 mais je vais devoir te contredire, il ne s'arrete pas à la première case non-cochée. ;)

Si je peux me permettre une question d'odre métaphysique, quelle est ta méthode, fring, pour déterminer que telle chose doit etre une variable, que telle autre doit etre un compteur incrémenté pour etre repris dans telle procédure ?
Je veux dire : est-ce qu'il y a une méthode de travail, voire de réflexion particulière, un "truc", pour organiser l'écriture de son code ?

En tout cas merci, et n'oubliez pas que : i'll be back ! :mouarf:
;) à Zihack

Re,
Je n'ai pas dit que la boucle s'arrêtait à la première non cochée.

Reprenons l'exemple.
Toujours

CheckBox1 = True
CheckBox2 = True
CheckBox3 = True
CheckBox4 = False
CheckBox5 = True

Mes commentaires en gras

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
Dim C As Control, Nb As Byte, x As Byte, Var As String
 
'comptage des Checkbox insérés sur le UserForm
For Each C In Me.Controls
    If TypeOf C Is MSForms.CheckBox Then Nb = Nb + 1
Next C'bouclage sur les CheckBox
'Avec l'exemple Nb = 4
 'Donc For x = 1 To 4 '=> On ne testera donc pas la valeur de
'Checkbox5 Est ce que je suis plus clair
For x = 1 To Nb
    If Me.Controls("CheckBox" & x) = True Then
    'si la Checkbox est validée, mémorisation de la valeur du label correspondant
    Var = Var & Me.Controls("Label" & x).Caption & Chr(10)
    End If
Next x
 
MsgBox "les CheckBox validées sont :" & Chr(10) & Var
 
End Sub

25/04/2008, 16h39
fring

Tu peux expliquer comment obtiens-tu cette valeur ??

Code:

'Avec l'exemple Nb = 4
25/04/2008, 16h43
epsylon_9

Re,

Et bien en relisant cela vient sauté à la figure et je pensais que la première boucle servait à compter le nombre de CheckBox Cochés... (et non juste compter les Checkbox...) étant donné que ce n'est PAS DU TOUT LE CAS et bien je vous pris de bien vouloir excuser cette intervention inutile :oops::oops:.

Plates excuses...

@+
Julien
PS: je suis parti réapprendre à lire un code VBA...
25/04/2008, 16h51
fring
Citation:

Envoyé par Xiombarg2911

Si je peux me permettre une question d'odre métaphysique, quelle est ta méthode, fring, pour déterminer que telle chose doit etre une variable, que telle autre doit etre un compteur incrémenté pour etre repris dans telle procédure ?
Je veux dire : est-ce qu'il y a une méthode de travail, voire de réflexion particulière, un "truc", pour organiser l'écriture de son code ?

Oufti...8O, je ne pense pas qu'il y ait UNE méthode de réflexion.
Pour une même question tu vas avoir 5 propositions différentes selon la logique, les habitudes, les préférences de chacun. C'est nottament ça qui fait toute la richesse d'un forum.
Je dirais que les étapes sont :
1. qu'est ce que j'ai au départ ?
2. qu'est ce que je veux obtenir à l'arrivée ?
3. quelles sont les étapes (à ma connaissance) qui me permettraient d'y arriver ?
4. dans quel ordre ranger ces étapes ?
5. comment optimiser l'écriture de mon code (ou comment économiser les touches du clavier) ?
Une fois que tout ça est bien clair dans ta tête, 75% du boulot est fait.
25/04/2008, 16h59
fring

Citation:

Envoyé par epsylon_9

Et bien en relisant cela vient sauté à la figure et je pensais que la première boucle servait à compter le nombre de CheckBox Cochés... (et non juste compter les Checkbox...) étant donné que ce n'est PAS DU TOUT LE CAS et bien je vous pris de bien vouloir excuser cette intervention inutile

Ya pas de soucis et il n'y a pas d'intervention inutile ;)
Jette un oeil sur le proverbe chinois ci-dessous :mrgreen:
28/04/2008, 10h13
Xiombarg2911
Je reviens vers vous pour un tout petit problème suplémentaire.
Mon manque de maîtrise de VBA m'empêche de trouver la solution moi-même, solution qui j'en suis sur est vraiment toute simple.

En reprenant le code ci-dessus, je cherche à afficher un message dans le cas où toute les cases sont décochées.

J'ai essayé betement avec
Code:

1 2 3 If Me.Controls("CB_" & x).Value = False Then ClassesSelectionnees = "Aucune" End If
Code:

1 2 3 If Not Me.Controls("CB_" & x).Value = True Then ClassesSelectionnees = "Aucune" End If
Mais dans ce cas si au moins UNE case est décochée il m'affiche "Aucune".

Je ne sais pas lui dire : "Si tu ne trouves aucune valeur true" ou alors : "Si toutes les valeurs sont False"

J'ai comme l'impression qu'il me faut une autre variable pour ce cas précis .... C'est une bonne piste ? :oops:

Merci à vous

Edit : C'est peut etre "Dans le cas où" toutes les valeurs sont False, c'est à dire avec un For, mais je n'arrive pas a le traduire :?

Salut,

Bon je vais essayer de ne pas dire de bêtise :p

Il faut que tu boucle sur TOUT les Checkbox et que tu regarde leur état si au moins une est bonne tu arrête la boucle

Essaies un truc du style

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim C As Control
Dim AllUnChecked As Boolean
'on va dire que par défaut ils sont tous
'décoché
AllUnChecked = True
 
For Each C In Me.Controls
    If TypeOf C Is MSForms.CheckBox Then
        If C.Value Then
            AllUnChecked = False
            Exit For
        End If
    End If
Next C 'bouclage sur les CheckBox
 
 
If AllUnChecked Then MsgBox "Ils sont tous décoché"

Voilà j'espère que cela t'aide

28/04/2008, 10h57
Xiombarg2911

Haha la variable Booléenne ^^ forcémenent je n'y avais pas pensé !
Ton code fonctionne bien, merci beaucoup.

Par contre, vu de mon niveau j'ai l'impression qu'il manque des choses. Par exemple tu écris :

Code:

If C.Value Then

je comprend pas, il devrait y avoir If C.Value = All False ou un truc comme ça.

Ou alors, peut etre que l'objet CheckBox ne prend une Value que si elle est cochée ? Si elle est décochée elle n'a pas de Value, donc implicitement false. C'est la seule explication que je vois.

merci epsylon_9 :king:

Salut,

Code:

1
2
3
4
5
6
7
8
9
If C.Value Then 
'Est équivalent à 
If (C.Value = True) Then
 
'De même
 
If Not C.Value Then 
'Est équivalent à 
If (C.Value = False) Then

Voila j'espère que tu y vois plus clair

28/04/2008, 11h24
Xiombarg2911

parfaitement limpide et logique ;)