' Protocole adapté (vitesse et pente) test initial
Private Sub Reg202_Change()
Dim ind As Long
For ind = 297 To 336
Controls("Reg" & ind).Enabled = Reg202.Text = "Protocole adapté"
Controls("Reg" & ind).BackColor = IIf(Reg202.Text = "Protocole adapté", "&H80000005", "&H80000004")
Next ind
End Sub
' Protocole adapté (vitesse et pente) test final
Private Sub Reg347_Change()
Dim ind As Long
For ind = 442 To 481
Controls("Reg" & ind).Enabled = Reg347.Text = "Protocole adapté"
Controls("Reg" & ind).BackColor = IIf(Reg347.Text = "Protocole adapté", "&H80000005", "&H80000004")
Next ind
End Sub