Discussion :

[Xiombarg2911]

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

[fring]

Bonjour,

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

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

[zyhack]

bonjour fring

beau code

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

Code :

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

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 :

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

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

bonne journée

[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é (c'est rectifié)

[zyhack]

Exact merci oeil de Lynx j'ai codé à la volée et le "s" est venu se coller à l'insu de mon plein gré (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

[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

[Xiombarg2911]

totalement impressionnant

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

Code :

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

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

en

Code :

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

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 !
à Zihack

[epsylon_9]

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 :

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

[fring]

Tu peux expliquer comment obtiens-tu cette valeur ??

Code :

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

'Avec l'exemple Nb = 4

[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 .

Plates excuses...

@+
Julien
PS: je suis parti réapprendre à lire un code VBA...

[fring]

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..., 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.

[fring]

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

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

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

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

Code :

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

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 ?

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

[epsylon_9]

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 :

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

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

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

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

[epsylon_9]

Salut,

Code :

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

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

[Xiombarg2911]

parfaitement limpide et logique