'
'************************************
'Frame plante
'************************************
Private Sub CbTransporteur_Change()
If Me.CbTransporteur.Value <> "" Then TransPlante = Application.VLookup(CbTransporteur, Sheets("Données").Range("TbTransporteur"), 2, 0): PRPlante = "0,00 €" Else TransPlante = "" 'Calcul du Coef
End Sub
Private Sub ChbcoeffPlante_Click()
Dim state As Boolean
ObRempotee.Value = False
ObNonRempotee.Value = False
state = ChbCoeffPlante
With CoeffPlante
.Locked = state
If Not state Then .SetFocus: .SelStart = 0: .SelLength = Len(.Value):
.BackColor = Array(vbWhite, &HE0E0E0)(Abs(.Locked))
End With
End Sub
'********************************************