Boucler sur une série de CheckBox

Version imprimable

Bonjour à tous,

Avant toutes choses je vous informes que je suis novice, je n'ai que de vagues notions de POO et je découvre le VB :) c'est pourquoi je suis dans l'obligation de solliciter votre aide bienveillante :mrgreen:

Voilà j'ai réalisé un formulaire de saisie sur lequel les utilisateurs doivent répondre à une série de question, en cochant des CheckBox.

J'ai essayé de faire une fonction
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Function cko(l As Byte, m As Byte, n As Byte, checkbox As Boolean) ' Verif si cases cochées If Control.Item("checkbox" & l).Value = "" And Control.Item("checkbox" & m).Value = "" Then MsgBox "Veuillez remplir les cases pour indiquer votre couleur préférée" 'un choix à préciser dans une TextBox ElseIf Control.Item("checkbox" & m).Value = True And Control.Item("textbox" & n).Value = "" Then MsgBox "Veuillez préciser votre choix " ' Si plusieurs cases sont cochées ElseIf Control.Item("CheckBox" & l).Value = True And Control.Item("CheckBox" & m).Value = True Then MsgBox "Veuillez cocher une seule case" 'Si orange renvoie la valeur O dans excel ElseIf Control.Item("CheckBox" & l).Value = True Then cko = "O" 'Si bleu renvoie la valeur B dans excel ElseIf Control.Item("CheckBox" & m).Value = True Then cko = "B" End If End Function
Que j'utilise de cette manière
Code:

1 2 3 4 5 6 Private Sub CommandButton1_Click() 'Les valeurs 1,2 et 5 étant les numéros des CheckBox et de la TextBox (pour la précision) Range("f65536").End(xlUp).Offset(1, 0).Value = cko(1, 2, 5) End Sub
J'ai une multitude de question, j'ai donc abandonné l'utilisation de Frame, en effet ces derniers alourdissaient considérablement mon document.

Voilà comme vous pouvez vous en douter, suite à la lecture de mon "code", ça ne marche pas je suis actuellement dans une impasse et je compte sur vous pour m'aider :)

Merci d'avance

bonjour,

essaye ça!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Function cko(l As Byte, m As Byte, n As Byte) as string
 
' Verif si cases cochées
If not Control.Item("checkbox" & l) And not Control.Item("checkbox" & m) Then
MsgBox "Veuillez remplir les cases pour indiquer votre couleur préférée"
'un choix à préciser dans une TextBox
ElseIf Control.Item("checkbox" & m) And Control.Item("textbox" & n).Value = "" Then
MsgBox "Veuillez préciser votre choix "
' Si plusieurs cases sont cochées
ElseIf Control.Item("CheckBox" & l) And Control.Item("CheckBox" & m) Then
MsgBox "Veuillez cocher une seule case"
'Si orange renvoie la valeur O dans excel
ElseIf Control.Item("CheckBox" & l) Then
cko = "O"
'Si bleu renvoie la valeur B dans excel
ElseIf Control.Item("CheckBox" & m) Then
cko = "B"
End If
 
End Function

19/05/2008, 14h18
Abdel_koum

Citation:

Envoyé par mayekeul

bonjour,
essaye ça!

Tout d'abord merci pour ton aide :)

J'ai donc essayé mais ça ne marche pas, l'erreur indiquée est :

Citation:

Argument non facultatif

Sur la ligne de code :

Code:

Range("f65536").End(xlUp).Offset(1, 0).Value = cko(1, 2, 5)

Je pense que je n'ai pas déclaré ou appelé la fonction comme il conviendrait et je ne vois pas comment faire.
J'ai beau lire des tutoriaux je ne trouves pas de solutions.
Je comprends le code mais quand il s'agit de créer mon propre code, associé à des contraintes et des besoins particuliers, je m'y perd :mrgreen:
19/05/2008, 14h20
mayekeul

j'ai fait un edit du code que j'ai posté avant que tu ne réponde

c'est bien celui là que tu as pris?
19/05/2008, 14h29
Abdel_koum

Yep non désolé, par contre ce coup ci ça m'indique :

Citation:

Objet requis

Et le focus du débogage est sur la ligne :

Code:

If Not Control.Item("checkbox" & l) And Not Control.Item("checkbox" & m) Then

En tous cas c'est cool de m'aider :)
19/05/2008, 14h35
mayekeul

de rien,

est-tu sur que les deux item existe bel et bien.

que tu a donc bien une checkbox l et m?
19/05/2008, 14h53
Abdel_koum
Arf ok je viens de comprendre grace à ce que tu viens de dire :)

En fait les CheckBox l et m n'existent pas, je pensais que je pouvais utiliser ces lettres pour indiquer les variables de ma fonction.

Dans mon esprit je comptais donc créer ma fonction avec 3 variables l, m (pour les checkBox 1 et 2 couleur) et n (pour la TextBox précision), que j'utilisais avec le code :
Code:

1 2 '- cko nom de la fonction - 1 et 2 n° de CheckBox - 5 n° de TextBox cko (1,2,5)
Pour chaque série de CheckBox :
1 et 2
3 et 4
5 et 6
7 et 8 ....

Voilà ce que je voudrais faire, mais j'ai peur d'être loin de la solution et qu'il me manque des notions de base pour réaliser ce projet, quand j'ai programmé à la "volée" j'avais l'impression d'être un funambule :mrgreen: mais bon faut bien se lancer.

En tous cas je progresse avec tes réponses c'est cool :)
19/05/2008, 15h04
mayekeul

c'est déjà ça!
;)

tu sais m'envoyer une capture d'écran de ton formulaire?
que j'y voie un peu plus clair?

Bonjour,

Juste pour l'application des "If" et "ElseIf", il me semble que ce code pourrait mieux répondre à ce que vous voulez tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Function cko(l As Byte, m As Byte, n As Byte, checkbox As Boolean)
 
' Verif si cases cochées
If Control.Item("checkbox" & l).Value = "" And Control.Item("checkbox" & m).Value = "" Then
 
    MsgBox "Veuillez cocher une case pour indiquer votre couleur préférée"
 
'Si plusieurs cases sont cochées
ElseIf Control.Item("checkbox" & i).Value = True Or Control.Item("checkbox" & m).Value = True Then  'And Control.Item("textbox" & n).Value = "" Then
 
    MsgBox "Veuillez cocher une seule case"
 
'un choix à préciser dans une TextBox
ElseIf Control.Item("CheckBox" & l).Value = True Or Control.Item("CheckBox" & m).Value = True Then
            If Control.Item("textbox" & n).Value = "" Then
            MsgBox "Veuillez indiquer votre couleur préférée"
            End If
 
 
'Si orange renvoie la valeur O dans excel
ElseIf Control.Item("CheckBox" & l).Value = True Then
 
    cko = "O"
 
'Si bleu renvoie la valeur B dans excel
ElseIf Control.Item("CheckBox" & m).Value = True Then
 
    cko = "B"
 
End If
 
End Function

Pour le reste, comme le dit Mayekeul, il faudrait y voir plus clair.

Citation:

Envoyé par mayekeul

c'est déjà ça!
;)
tu sais m'envoyer une capture d'écran de ton formulaire?
que j'y voie un peu plus clair?

oki ça marche je vais essayer de mettre ça en ligne :)

Citation:

Envoyé par jacques_jean

Bonjour,
Juste pour l'application des "If" et "ElseIf", il me semble que ce code pourrait mieux répondre à ce que vous voulez tester.

Merci de votre réponse :)
En fait les If et les ElseIF répondent à mes attentes, mon gros problème réside dans le lancement et l'utilisation de ma fonction.
En effet je désire au lieu de ré-écrire à chaque fois les conditions, utiliser une fonction qui les regroupe et que je pourrais réutiliser à chaque fois en changeant justes les variables (n° de CheckBox et de TextBox).
J'ai une vingtaine de questions pour certains formulaires et je voudrais éviter de faire un code trop long ....
Mais la raison principale de ma recherche réside dans la curiosité, je l'avoue :mrgreen: je découvre VBA et je cherche à me perfectionner, en utilisant des fonctions, jusqu'a présent je n'utilisais que des Private Sub avec du code de ce genre (pour un autre formulaire):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Private Sub CommandButton7_Click() Application.Calculation = xlAutomatic Sheets("Base").Protect "caribou", True, True, True Unload Me Unload userform9 Application.WindowState = xlMaximized Workbooks("BDD_2008.xls").Sheets("Base").Activate Range("A1").Select If Workbooks("BDD_2008.xls").Sheets("Stat").Visible = False Then Workbooks("BDD_2008.xls").Sheets("Stat").Visible = True End If If Workbooks("BDD_2008.xls").Sheets("INFOS").Visible = False Then Workbooks("BDD_2008.xls").Sheets("INFOS").Visible = True End If If Workbooks("BDD_2008.xls").Sheets("Récap 1").Visible = False Then Workbooks("BDD_2008.xls").Sheets("Récap 1").Visible = True End If If Workbooks("BDD_2008.xls").Sheets("Récap général").Visible = False Then Workbooks("BDD_2008.xls").Sheets("Récap général").Visible = True End If If Workbooks("BDD_2008.xls").Sheets("Récap 2").Visible = False Then Workbooks("BDD_2008.xls").Sheets("Récap 2").Visible = True End If If Workbooks("BDD_2008.xls").Sheets("Base").Visible = False Then Workbooks("BDD_2008.xls").Sheets("Base").Visible = True End If End Sub
Et j'aimerai passer à autre chose, du code moin lourd, plus ergonomique et plus lisible.

19/05/2008, 15h57
Abdel_koum

[img=http://img233.imageshack.us/img233/196/questionnairevi9.th.jpg]

Voilà le questionnaire que j'ai réalisé :)

en voyant le formulaire, je me dis que l'emploi de radio button(ou boutons d'option) serait plus judicieux.

vu que apparemment, pour une question, une seule réponse...

l'utilisation de frame te ferait gagner plein de test inutiles alors
genre
Code:

1 2 3 4 5 6 7 8 9 10 For Each obj In Me.Controls If obj.Name = "FrameReponse" & I Then 'si somme option est vraie For Each opt In obj.BoundValue Va = Va + opt Next If Not Val Then MsgBox "valeur manquante" End If Next

19/05/2008, 16h40
Abdel_koum

Oki ça marche je vais essayer ça en l'appliquant au questionnaire, ce qui risque de me prendre pas mal de temps :mrgreen: mais c'est du temps bien utilisé.

Merci encore je m'y met tout de suite et je reviens sous peu (d'ici une semaine) @++

Bonjour à tous

Voilà j'ai opté, comme conseillé trés judicieusement :), pour l'utilisation des bouttons d'option et des frames, solution la mieux adaptée.

Par contre je ne suis pas arrivé à utilisé le bout de code et de l'appliquer à mon formulaire, ce qui me donne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Private Sub CommandButton1_Click()
 
    Sheets("1").Activate
 
    If OptionButton2.Value = True And TextBox5.Value = "" Then
        MsgBox "veuillez indiquer les précisions"
        TextBox5.SetFocus
    ElseIf OptionButton1.Value = False And OptionButton2.Value = False Then
        MsgBox "veuillez indiquer la réponse"
        Frame1.SetFocus
    ElseIf OptionButton1.Value = True Then
      Range("F65536").End(xlUp).Offset(1, 0).Value = "O"
      Range("G65536").End(xlUp).Offset(1, 0).Value = "-"
    ElseIf OptionButton2.Value = True Then
      Range("F65536").End(xlUp).Offset(1, 0).Value = "N"
      Range("G65536").End(xlUp).Offset(1, 0).Value = TextBox5.Value
    End If
 
    If OptionButton3.Value = True And TextBox6.Value = "" Then
        MsgBox "veuillez indiquer les précisions"
        TextBox6.SetFocus
    ElseIf OptionButton4.Value = False And OptionButton3.Value = False Then
        MsgBox "veuillez indiquer la réponse"
        Frame2.SetFocus
    ElseIf OptionButton4.Value = True Then
      Range("H65536").End(xlUp).Offset(1, 0).Value = "O"
      Range("I65536").End(xlUp).Offset(1, 0).Value = "-"
    ElseIf OptionButton3.Value = True Then
      Range("H65536").End(xlUp).Offset(1, 0).Value = "N"
      Range("I65536").End(xlUp).Offset(1, 0).Value = TextBox6.Value
    End If
 
    If OptionButton5.Value = True And TextBox7.Value = "" Then
        MsgBox "veuillez indiquer les précisions"
        TextBox7.SetFocus
    ElseIf OptionButton6.Value = False And OptionButton5.Value = False Then
        MsgBox "veuillez indiquer la réponse"
        Frame3.SetFocus
    ElseIf OptionButton6.Value = True Then
      Range("J65536").End(xlUp).Offset(1, 0).Value = "O"
      Range("K65536").End(xlUp).Offset(1, 0).Value = "-"
    ElseIf OptionButton5.Value = True Then
      Range("J65536").End(xlUp).Offset(1, 0).Value = "N"
      Range("K65536").End(xlUp).Offset(1, 0).Value = TextBox7.Value
    End If
 
    If OptionButton7.Value = True And TextBox8.Value = "" Then
        MsgBox "veuillez indiquer les précisions"
        TextBox8.SetFocus
    ElseIf OptionButton8.Value = False And OptionButton7.Value = False Then
        MsgBox "veuillez indiquer la réponse"
        Frame4.SetFocus
    ElseIf OptionButton8.Value = True Then
      Range("L65536").End(xlUp).Offset(1, 0).Value = "O"
      Range("M65536").End(xlUp).Offset(1, 0).Value = "-"
    ElseIf OptionButton7.Value = True Then
      Range("L65536").End(xlUp).Offset(1, 0).Value = "N"
      Range("M65536").End(xlUp).Offset(1, 0).Value = TextBox8.Value
    End If
 
End sub

Qui est juste et qui me donne les résultats voulus, mais j'aimerais au lieu d'avoir 4 blocs d'instructions n'en avoir plus qu'un qui boucle sur chaque frame, avec les différentes conditions, de manière à l'alléger et surtout pour progresser en codant de manière plus logique et plus complexe.

Code:

1
2
3
4
5
6
7
8
9
For Each obj In Me.Controls
    If obj.Name = "FrameReponse" & I Then
        'si somme option est vraie
        For Each opt In obj.BoundValue
            Va = Va + opt
        Next
        If Not Val Then MsgBox "valeur manquante"
    End If
Next

Je comprend la 1ere partie, qui passe en revu les différents Objets de type Frame, mais par contre je n'ai pas compris et pas pus appliquer à ma sauce la 2eme partie.

Merci d'avance de m'éclairer et de m'aider :king:

PS : lien vers mon 2eme formulaire

[img=http://img357.imageshack.us/img357/1285/questionnaire2xo5.th.jpg]

21/05/2008, 11h42
mayekeul

bonjour,

D'abord, un conseil, veillle à bien nommer tes objet de façon significative et logique, cela t'aidera dans la compréhension de ton code
OptionButtun6 c'est bien, mais c'est peu, il y en a bcp on ne sais pas vraiment auquel on a affaire.

la deuxième partie de mon code testais si il manquais une valeur, si la somme des option est fausse. car false+false+... = false, et false+false+true+false....=true.
pour info
false=0
true=-1

et pour que mon code fonctionne parfaitment, il faut initialiser la variable val au début de la première condition!

Bonjour :)

Citation:

Envoyé par mayekeul

D'abord, un conseil, veillle à bien nommer tes objet de façon significative et logique, cela t'aidera dans la compréhension de ton code
OptionButtun6 c'est bien, mais c'est peu, il y en a bcp on ne sais pas vraiment auquel on a affaire.

Yep c'est noté, mais en fait la plupart du temps j'ai la flemme :mrgreen:

Citation:

Envoyé par mayekeul

la deuxième partie de mon code testais si il manquais une valeur, si la somme des option est fausse. car false+false+... = false, et false+false+true+false....=true.
pour info
false=0
true=-1

oki merci bien, excellent je ne savais pas comment ça fonctionnait.

Citation:

Envoyé par mayekeul

et pour que mon code fonctionne parfaitment, il faut initialiser la variable val au début de la première condition!

Yep oki, par contre je ne vois pas trop comment faire.
Voyons voir quand même si j'ai bien compris :)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 'Pour chaque objet dans mon frame (obj représentant l'ensemble des objets) For Each obj In Me.Controls 'si le nom de l'objet commence par FrameReponse concaténer avec une variable i, donc peu importe la valeur de i il le fera pour tous If obj.Name = "FrameReponse" & I Then 'si somme option est vraie 'pour chaque bouton d'option dans l'objet (par contre je ne connais pas BoundValue) For Each opt In obj.BoundValue 'la valeur égale valeur précédente + valeur de l'objet bouton optionnel Va = Va + opt Next ' si on n'a pas de valeur, donc si l'on a pas appuyé sur les bouttons d'option If Not Val Then MsgBox "valeur manquante" End If Next
En fait donc mes interrogations se portent sur :
- obj, opt, val , et va, sont des variables, et si oui il faut que je les déclare en début de procédure, du style

Code:

dim obj as object

- i idem

Code:

dim i as byte

- BoundValue je ne connais pas et je n'ai pas trouvé à quoi ça correspond, les valeurs reliés?
- Va = Va + opt c'est flou pour moi hélas, ce que j'en comprend c'est que va égale va plus le nombre de bouton d'option?
- initialiser en début de condition val

Code:

val =0

?

Voilà merci beaucoup pour ta patience :) et pour tes réponses grace auxquelles je progresse, tel la tortue :mrgreen: doucement mais surement

Edit : Suite au passage en Frame, je contaste des ralentissements lors de l'initialisation du userform, pour le questionnaire le plus important j'ai au total 23 Frame. Y a t'il une solution pour alléger et diminuer le temps de chargement?

23/05/2008, 15h57
mayekeul

bonjour,

sorry du délai, j'ai eu bcp de taff :(

pour ton probleme de frame:

-soit tu fait plusieurs formulaires
-soit tu les crée à la volée

le but serait d'avoir une succession de fenetre genre instalation wizard si tu vois ce que je veux dire!.

Je repasse au soir pour plsu d'info si tu veux!
23/05/2008, 16h56
Abdel_koum

Pas de soucis c'est déjà sympa de répondre :)

Pour ma part je ne pense pas revenir avant mercredi, d'ici là je vais essayer de tavailler dans le sens que tu m'as indiquer.

Par contre si tu as le temps tu pourrais répondre aux dernières questions de mon post précédent ? Je sens que je commence à comprendre mais aussi qu'il me manque des notions de base, c'est pourquoi ton aide me sera trés précieuse.

@ + et encore merci :)
26/05/2008, 16h27
mayekeul

Citation:

- BoundValue je ne connais pas et je n'ai pas trouvé à quoi ça correspond, les valeurs reliés?

Boundvalue va te renvoyer la collection des objet liés à l'objet( dans l'exemple, il va passer en revue tout les boutons radio contenue dans la frame)

Citation:

- Va = Va + opt c'est flou pour moi hélas, ce que j'en comprend c'est que va égale va plus le nombre de bouton d'option?^

le code que je te donne rnevoie la valeur implicite de l'objet opt
pour etre exact et plus compréhensible, il devrait etre le suivant

Code:

Va = Va + opt.Value

explication :
imagine une frame avec 5 bouton d'option
un tel bouton, n'a que deux valeur possible True ou False, soit -1 ou 0
la boucle créée fait autant de passage qu'il y a de bouton d'option dans la frame soit 5
Va vaut 0 au début de la boucle
-1 au premier passage
-2 au deuxième
...
-5 au dernier

nous savons que la valeur False est 0 et que la valeur vraie est <>0
donc
Va<>0
true<>0
donc
Va=True

Citation:

- initialiser en début de condition val
Code :

Code:

val =0?

tout simplement!
28/05/2008, 10h17
Abdel_koum

Bonjour,
de retour d'un long week end :D
Excellent la réponse je m'y met aujourd'hui, je pense qu'avec les éléments que tu m'as indiqués je vais y arriver, il va juste me falloir pas mal de temps :mrgreen:

Grazie mille :) @ bientôt