Private Sub ObNonRempotee_Click()
If Me.ObNonRempotee.Value = True Then
CoeffPlante = Application.VLookup(ObNonRempotee.Caption, Sheets("Données").Range("Tbcoeff"), 2, 0)
ChbCoeffPlante = True
Else: CoeffPlante = "" 'Calcul du Coef
End If
End Sub
Private Sub ObRempotee_Click()
If Me.ObRempotee.Value = True Then
CoeffPlante = Application.VLookup(ObRempotee.Caption, Sheets("Données").Range("Tbcoeff"), 2, 0)
ChbCoeffPlante = True
Else
CoeffPlante = "" 'Calcul du Coef
End If
End Sub