Discussion :

[nadegel]

Bonjour,

J'apprends VB et j'ai un exercice à faire mais je ne sais pas mettre en oeuvre ma solution.

Je ne parle pas du codage, mais de la création de la feuille.

Habituellement, j'avais plusieurs choix à faire et je devais cocher une ligne ou plusieurs. J'utilisais plusieurs checkbox (un par ligne)

Par contre, sur cet exercice j'ai des lignes avec "cocher oui/non". Je peux coder 40 checkbox, mais je pense que ça fait beaucoup, et qu'il doit y avoir plus simple.

Est ce que je peux utiliser checklistbox ?
Pouvez vous m'expliquer comment y ajouter des choix ?

Merci

[pc75]

Bonjour,

Peut-être avec un tableau de checkbox ?

[ProgElecT]

Salut

40 CheckBoxs cela prend de la place sur un formulaire
Sur 1 Form, 1 Label, 1 Frame, dans cette frame, un VScrollBar, dans cette frame une autre Frame, dans cette dernière frame, 1 CheckBox indexé à 0.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
 
Dim T As Long
 
Private Sub Form_Load()
Label1.AutoSize = True: Label1.Caption = "": Label1.Move 180, 60
Check1(0).Move 0, 0, 1215, 255
VScroll1.Width = 255
Frame1.BorderStyle = 0
Frame1.Move 120, 360, Check1(0).Width + VScroll1.Width, 3000
VScroll1.Move Check1(0).Width, 0, VScroll1.Width, Frame1.Height
For T = 1 To 39 'pour création des 39 CheckBox, soit au total = 40
    Load Check1(Check1.Count)
    Check1(Check1.Count - 1).Move Check1(0).Left, Check1(0).Top + (Check1(0).Height * T), Check1(0).Width, Check1(0).Height
    Check1(Check1.Count - 1).Caption = "Choix " & T + 1
    Check1(Check1.Count - 1).Visible = True
Next T
VScroll1.Max = Check1.Count - (Frame1.Height / Check1(0).Height)
Frame2.Move 0, 0, Frame1.Width, Check1(0).Height * (Check1.Count)
End Sub
 
Private Sub VScroll1_Change()
Frame2.Top = -(VScroll1.Value * (Check1(0).Height))
End Sub
Private Sub VScroll1_Scroll()
 VScroll1_Change
End Sub
 
'utilisation
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = 1 Then
    Label1.Caption = "vous avez coché la case " & Check1(Index).Caption
    Else
    Label1.Caption = "vous avez decoché la case " & Check1(Index).Caption
End If
End Sub

Tu seras surement obligé de faire 40 lignes Check1(N°).Caption = "mon intitulé" pour personnaliser.

[DarkVader]

Bonjour,
L'astuce d'utiliser un listbox (ou listview) style checkbox comme l'a suggéré nadegel
est pourtant une excellente idée.

Si tu as des difficultés, je te conseille fortement d'installer la MSDN

[nadegel]

Merci à tous.

ProgElecT--> Compte tenu de mon niveau je pense que je ne peux pas utiliser ta solution (car pour le moment je ne comprend pas du tout), mais je vais tout de même regarder pour essayer de la mettre en forme.

PC75 --> Qu'est ce que tu appelles un tableau de checkbox ? On peut faire un tableau dans une feuille ?

[pc75]

Re,

Merci à tous.

ProgElecT--> Compte tenu de mon niveau je pense que je ne peux pas utiliser ta solution (car pour le moment je ne comprend pas du tout), mais je vais tout de même regarder pour essayer de la mettre en forme.

PC75 --> Qu'est ce que tu appelles un tableau de checkbox ? On peut faire un tableau dans une feuille ?

Un tableau de checkbox consiste à avoir plusieurs contrôles portant le même nom, mais sont différenciés par un indice

chkChoix(0)
chkChoix(1)
chkChoix(2)
.....