'Button fermer déperditions
Private Sub ButtonFermerDéperditions_Click()
Déperditions.Hide
End Sub
'Débit de ventilation en occupation
Private Sub TextBoxDébitOccup_Change()
Range('B3') = TextBoxDébitOccup.Value
End Sub
'Débit de ventilation en inoccupation
Private Sub TextBoxDébitInoccup_Change()
Range('B5') = TextBoxDébitInoccup.Value
End Sub
'Efficacité de l'échangeur double flux
Private Sub TextBoxEfficacitéEchan_Change()
Range('B7') = TextBoxEfficacitéEchan.Value
End Sub
'Affichage des données à l'ouvertur de l'userform
Private Sub UserForm_Initialize()
TextBoxDébitOccup.Value = Range('B3')
TextBoxDébitInoccup.Value = Range('B5')
TextBoxEfficacitéEchan.Value = Range('B7')
With ComboBox2 'Combobox Choix du type de ventilation
.RowSource = 'L16:L18'
.ListIndex = Range('L14').Value + 0
End With
For Each ctrl In Controls
If TypeOf ctrl Is MSForms.TextBox Then
ctrl.Enabled = False
ctrl.BackStyle = fmBackStyleTransparent
ctrl.BackColor = &H80000004
End If
Next
inittextbox
End Sub
'Combobox Choix du type de ventilation
Private Sub ComboBox2_Click()
Range('L14').Value = ComboBox2.ListIndex + 0
End Sub
Private Sub ComboBox2_Change()
inittextbox
Select Case ComboBox2.ListIndex
Case 0: Exit Sub
Case 1
With TextBoxDébitOccup
.Enabled = True
.BackStyle = fmBackStyleOpaque
.BackColor = &H80000005
End With
With TextBoxDébitInoccup
.Enabled = True
.BackStyle = fmBackStyleOpaque
.BackColor = &H80000005
End With
Case 2
For Each ctrl In Controls
If TypeOf ctrl Is MSForms.TextBox Then
ctrl.Enabled = True
ctrl.BackStyle = fmBackStyleOpaque
ctrl.BackColor = &H80000005
End If
Next
End Select
End Sub
Public Sub inittextbox()
For Each ctrl In Controls
If TypeOf ctrl Is MSForms.TextBox Then
ctrl.Enabled = False
ctrl.BackStyle = fmBackStyleTransparent
ctrl.BackColor = &H80000004
End If
Next
End Sub