CheckBox et Vba

[pepparkakor]

Bonjour,
Je suis en train d'écrire un programme xls pour permettre de renseigner des questionnaires.
Chaque question est un userform et le résultat de ces questions s'enregistre dans une feuille xls.
Un de mes questions peut être à choix multiple : j'utilise donc des CheckBox, par contre le pgm que j'ai écrit ne s'enregistre pas correctement dans ma feuille excel. Je pense que c'est les "And" qu'il ne reconnait pas...
Avez-vous une idée ?
Merci d'avance,

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Sheets("save_data").Visible = True
Sheets("save_data").Select
ActiveSheet.Unprotect

If CheckBox1 = True And CkeckBox2 = False And ChekBox3 = False Then
ActiveCell.Offset(0, 11) = "VOUS"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("save_data").Visible = False
Sheets("Questio").Select
Application.ScreenUpdating = True
UserForm11.Hide
UserForm13.Show
ElseIf (CheckBox1 = True And CkeckBox2 = True And ChekBox3 = False) Then
ActiveCell.Offset(0, 11) = "VOUS et UN MEMBRE DE L'EQUIPE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("save_data").Visible = False
Sheets("Questio").Select
Application.ScreenUpdating = True
UserForm11.Hide
UserForm13.Show
ElseIf (CheckBox1 = False And CkeckBox2 = True And ChekBox3 = False) Then
ActiveCell.Offset(0, 11) = "UN MEMBRE DE L'EQUIPE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("save_data").Visible = False
Sheets("Questio").Select
Application.ScreenUpdating = True
UserForm11.Hide
UserForm13.Show
ElseIf (CheckBox1 = False And CkeckBox2 = False And ChekBox3 = True) Then
ActiveCell.Offset(0, 11) = "PERSONNE"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("save_data").Visible = False
Sheets("Questio").Select
Application.ScreenUpdating = True
UserForm11.Hide
UserForm12.Show
End If


End Sub

 

[Guest]

Re : CheckBox et Vba

bonjour PeparKakor,

Peut-être qu'avec :

dim Options as integer
 
Options= Abs((CheckBox1 * 1) + (CheckBox2 * 2) + (CheckBox3 * 4))
 
Select case Options
 
     Case 1
     Case 2
     Case 4
     Case 3  'chekBox1+checkbox2
     Case 6  'chekbox2+checkBox3
     Case 7  'chekbox1 +2+3
 
End select

A+