'déclaration du compteur dans l'userform
Dim compteur As Byte
Dim MVal(5) As Single 'Consommation énergétique pour chaque jour de la semaine
Dim jour(5) As String
Private Sub cmd_valider_Click()
jour(1) = "mardi"
jour(2) = "mercredi"
jour(3) = "jeudi"
jour(4) = "vendredi"
'Incrémentation du compteur à chaque click sur valider
compteur = compteur + 1
If Not compteur = 5 Then lbl_jour.Caption = jour(compteur)
MVal(compteur) = Cells(Me.cmd_entrée.ListIndex + 2, 2) + Cells(Me.cmd_plat.ListIndex + 2, 4) + Cells(Me.cmd_laitage.ListIndex + 2, 6) + Cells(Me.cmd_dessert.ListIndex + 2, 8) + Cells(Me.cmd_boisson.ListIndex + 2, 10) + Cells(Me.cmd_pain.ListIndex + 2, 12)
If CheckBox1.Value = True Then MVal(compteur) = 0
If compteur = 5 Then
Worksheets("Résultats").Activate
[A1] = MVal(1)
[A2] = MVal(2)
[A3] = MVal(3)
[A4] = MVal(4)
[A5] = MVal(5)
Me.Hide
Sheets("résultats").Select
End If
End Sub