Ajout d'une checkbox ainsi que de son code

Bonjour,

Pouvez-vous m'aider afin de modifier ce code ?

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

Private Sub CommandButton1_Click() Dim StrMessage If CheckBox3.Value = True Then MsgBox "La fonction - Rapport - n'est pas encore disponible", vbInformation + vbOKOnly, "Information" End If If CheckBox2.Value = True Then If OptionButton1.Value = True Then Repartition_Jour_Tous Tableau_Analyse   ElseIf OptionButton2.Value = True Then Repartition_Jour Tableau_Analyse   ElseIf OptionButton3.Value = True Then Repartition_Jour_1 Tableau_Analyse Else Tableau_Analyse End If Else If OptionButton1.Value = True Then Repartition_Jour_Tous   ElseIf OptionButton2.Value = True Then Repartition_Jour   ElseIf OptionButton3.Value = True Then Repartition_Jour_1   Else MsgBox "Aucune case sélectionnée", vbInformation + vbOKOnly, "Information" End If End If Unload UserForm1 End Sub

---

Le UserForm1 est composé de trois OptionButton, ainsi que de deux checkbox.

Je veux ajouter la fonction qui est attribué à la checkbox3. (La macro qui devrait y être attaché se nomme (Rapport_Jour).

Cependant, cette Macro fonctionne à partir d'un tableau qui se créer à partir des données existantes dans les différences sheets de travail, c'est à dire qu'il y a un sens dans les opérations.

D'abord les options buttons, ensuite la checkbox2 qui déclanche la construction d'un tableau et pour finir la checkbox3 qui créer un rapport à partir du tableau.

Comment je peux créer cela ? En sachant que les checkbox ne sont pas obligatoire, d'oú le choix de checkbox.

Merci d'avance

Pour rappel, la macro qui se déclanche lorsqu'on check la box 3 est "Rapport_Jour". Donc il faut remplacer "MsgBox "La fonction - Rapport - n'est pas encore disponible", vbInformation + vbOKOnly, "Information""

Merci d'avance

Bàv,

Je pense avoir trouvé la solution :

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 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85

Private Sub CommandButton1_Click() Dim StrMessage If CheckBox2.Value = True And CheckBox3.Value = True Then If OptionButton1.Value = True Then Repartition_Jour_Tous Tableau_Analyse Rapport_Jour   ElseIf OptionButton2.Value = True Then Repartition_Jour Tableau_Analyse Rapport_Jour   ElseIf OptionButton3.Value = True Then Repartition_Jour_1 Tableau_Analyse Rapport_Jour Else Tableau_Analyse Rapport_Jour End If   Else   If CheckBox2.Value = True Then If OptionButton1.Value = True Then Repartition_Jour_Tous Tableau_Analyse     ElseIf OptionButton2.Value = True Then Repartition_Jour Tableau_Analyse     ElseIf OptionButton3.Value = True Then Repartition_Jour_1 Tableau_Analyse   Else Tableau_Analyse   End If   Else   If CheckBox3.Value = True Then If OptionButton1.Value = True Then Repartition_Jour_Tous Rapport_Jour     ElseIf OptionButton2.Value = True Then Repartition_Jour Rapport_Jour     ElseIf OptionButton3.Value = True Then Repartition_Jour_1 Rapport_Jour   Else Rapport_Jour   End If   Else If OptionButton1.Value = True Then Repartition_Jour_Tous   ElseIf OptionButton2.Value = True Then Repartition_Jour   ElseIf OptionButton3.Value = True Then Repartition_Jour_1   Else MsgBox "Aucune case sélectionnée", vbInformation + vbOKOnly, "Information" End If End If End If   End If Unload UserForm1 End Sub

---