'Remplissage de la ComboBox des pièces spécifiques en fonction des checkbox TC ou BIW
Private Sub CheckBox_TC_change()
Dim a
With Sheets("Bilan Volume")
If CheckBox_TC.Value = True Then
For Each a In .Range(.Cells(28, 1), .Cells(72, 1))
ComboBox_pieces_specifiques.AddItem a.Value
Next
End If
End With
End Sub
'Remplissage de la ComboBox des pièces spécifiques en fonction des checkbox TC ou BIW
Private Sub CheckBox_BIW_change()
Dim i
With Sheets("Bilan Volume")
If CheckBox_BIW.Value = True Then
For Each i In .Range(.Cells(3, 1), .Cells(27, 1))
ComboBox_pieces_specifiques.AddItem i.Value
Next
End If
End With
End Sub