Discussion :

[gantec]

Hello tout le monde !

j'ai une question a vous poser :

j'aimerais que dans une variable soit stocker plusieurs informations concernant les cases à cochés qui sont cochées... je m'explik si j'y arrive

EXEMPLE :

Code :

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

1
2
 
 Dim SelectionCase As Variant

dans selectioncase, il y aurait le caption de mes cases à cocher si elles sont cochées

Code :

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

1
2
3
4
 
If case1 = true then // si case1 est coché
selectioncase = case1.caption //alors la variable prend la valeur de case1
end if

mais par contre, si j'ai 8 cases à cocher qui sont cochées, alors dans ce cas la valeur de ma variable selectioncase serait le Caption des cases à cocher

Code :

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

1
2
 
selectioncase = case1.caption & case2.caption & case3.caption

je ne sais pas du tout si c'est possible ou s'il y a un autre moyen de parvenir a cette idée (si je me suis exprimé assez clairement)

Merci d'avance et a bientot

[Speedrman]

Salut,

Tu peux essayer ça, en appelant la procédure SPCheckBox avec un bouton "valider" par exemple ou bien lorsque tu fermes la userform en utilisant l'évènement QueryClose

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
Private Sub SPCheckBox()
 
     SPSelectionCase CheckBox1.Caption, CheckBox1.Value
 
     SPSelectionCase CheckBox2.Caption, CheckBox2.Value
 
     SPSelectionCase CheckBox3.Caption, CheckBox3.Value
 
     SPSelectionCase CheckBox4.Caption, CheckBox4.Value
 
     'Etc....
 
End Sub
 
Private Sub SPSelectionCase(locStrChk As String, locBooChk as Boolean)
 
    If Not locBooChk Then Exit Sub
 
    If selectioncase = "" Then
        selectioncase = locStrChk
    Else
        selectioncase = selectioncase + " - " + locStrChk
    End If
 
End Sub

[gantec]

Merci pour ta réponse ! mais c'est quoi un Sub SPCheckBox ?
comment l'utiliser ? je suis novice en VBA...

[Speedrman]

C'est juste le nom de la fonction que j'ai fait pour te montrer ce que tu voulais faire : )

donc dans cette fonction, tu met autant de ligne

Code :

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

SPSelectionCase CheckBox1.Caption, CheckBox1.Value

que tu as de checkBox (en remplaçant à chaque fois par le nom de la CheckBox)

ensuite,
si tu as un bouton "valider" sur ta userform, tu met :

Code :

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

1
2
3
4
5
6
7
Private Sub cmdValider_Click() 'cmdValider = nom du bouton
 
   SPCheckBox 
 
   Unload UserForm
 
End Sub

et à la sortie tu auras ta variable selectioncase remplit

[gantec]

enfaite j'ai essayé et a la fin, la variable reste tout de meme vide, j'ai essayé d'afficher le contenu de la variable dans un msgbox !! jte montre le code :

Code :

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

1
2
3
Public Sub Confiramtion_Click()
 SPCheckBox
 MsgBox (selectioncase)

c'est ce que g marqué !

++

[Speedrman]

Pourrais-tu mettre tout ton code stp ?

ça serait plus simple pour trouver d'où vient le problème merci