OptionButton dans frame

[lynyrd]

Bonjour le forum
J’ai des options buttons dans un frame et je ne sais comment les faire fonctionner.
Pour exemple si :
( dans les choix obligatoires )
ComboBox1 = Nord
ComboBox2 = 1
ComboBox3 = Villa
( dans les choix optionnels l
Le choix avec piscine = indispensable
Vue Sur mer = Non Indispensable
Jardin = Non indispensable
TV / SAT = Indispensable
Alors il ne devrait rien y avoir dans la ListBox1
Quel Code faudrait t’il appliquer ?
Merci .

 

[laetitia90]

Re : OptionButton dans frame

bonjour lynyrd , l'ami Fo_rum
avec un peu de retard week end oblige 😛

pas si simple que cela j'ai passe une grosse partie de l'aprés midi "dessus"
une version légerement différente a la place des 8 optionbuttons 4 checkboxs
par defaut les 4 checkboxs pas coches donc pas indispensable ..
enfin !!! si j'ai bien compris la finalité??

 

[lynyrd]

Re : OptionButton dans frame

C'est exactement la finalité recherchée.
Encore une fois un grand merci pour le travail accompli.
Bonne fin de soiréé.
A+

 

[laetitia90]

Re : OptionButton dans frame

rebonjour;
en regardant de plus "prés" je pense qu on peut simplifier le module de classe
essai ce code
le code du module classe a changer & tester

Public WithEvents cbx As msforms.CheckBox
Dim X As Long, i As Long, z1, z2, z3, z4, z5, z6, z7 As Variant
Private Sub cbx_Change()
User.ListBox1.Clear
z1 = User.ComboBox1: z2 = User.ComboBox2: z3 = User.ComboBox3
If cbx = True Then cbx.Caption = "  Indispensable" Else cbx.Caption = "  Pas  indispensable"
If cbx = True Then cbx.ForeColor = &HFF& Else cbx.ForeColor = &HFF0000
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If User.CheckBox1 = False Then z4 = Cells(i, 4) Else z4 = IIf(User.CheckBox1, "OUI", "NON")
If User.CheckBox2 = False Then z5 = Cells(i, 5) Else z5 = IIf(User.CheckBox2, "OUI", "NON")
If User.CheckBox3 = False Then z6 = Cells(i, 6) Else z6 = IIf(User.CheckBox3, "OUI", "NON")
If User.CheckBox4 = False Then z7 = Cells(i, 7) Else z7 = IIf(User.CheckBox4, "OUI", "NON")
If Cells(i, 1) = z1 And Cells(i, 2) = z2 And Cells(i, 3) = z3 And Cells(i, 4) = z4 And Cells(i, 5) = z5 _
And Cells(i, 6) = z6 And Cells(i, 7) = z7 Then User.ListBox1.AddItem Cells(i, 8)
Next i
If User.CheckBox1 = False And User.CheckBox2 = False And User.CheckBox3 = False And User.CheckBox4 = False Then
User.ListBox1.Clear
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = z1 And Cells(i, 2) = z2 And Cells(i, 3) = z3 Then User.ListBox1.AddItem Cells(i, 8)
Next
End If
End Sub

 

[lynyrd]

Re : OptionButton dans frame

Bonjour
Ca fonctionne également avec le nouveau code.
Grand merci.
Bonne journée.
A+