Bonjour,
Voilà la transformation
(J’ai modifié l’ordre des opérations dans l’onglet TEMPS, afin d’être dans le même ordre que les CheckBox)
Thychick.xlsm (25,8 Ko)
MACRO (En commentaire, les rajouts)
Private Sub ValidOP_Click()
'_________________________________________________________________
Dim f As Byte, i As Byte, Texte As String, H As Integer 'Depuis ton code, j'ai rajouté la variable H
'_________________________________________________________________
H = 0 'Je l'initialise à 0
For i = 1 To 7
With Controls("CheckBox" & i)
If .Value Then
f = 1
If Texte = "" Then
Texte = .Caption
H = Sheets("Temps").Cells(i + 1, 2).Value 'H prend la valeur de i+1 sur la feuille TEMPS
Else
Texte = Texte & vbNewLine & .Caption
H = H + Sheets("Temps").Cells(i + 1, 2).Value 'H prend la valeur de H+i sur la feuille TEMPS
End If
End If
End With
Next i
'_________________________________________________________________
If f = 0 Then
[B4] = ""
[D4] = ""
MsgBox "Aucune case d'option n'est sélectionnée"
Unload Me
Else
[B4] = Texte
[D4] = H 'Colle la valeur de H
End If
'_________________________________________________________________
Unload Me
End Sub