Private Sub OB_AC_Click()
AffLbl False
End Sub
Private Sub OB_Containment_Click()
AffLbl True
End Sub
Sub AffLbl(flag As Boolean)
If flag Then
LB_Demande_Containment.Visible = True
LB_Reponse_Containment.Visible = True
LB_reponse_acceptee_Containment.Visible = True
LB_Demande_AC.Visible = False
LB_Reponse_AC.Visible = False
LB_Reponse_acceptee_AC.Visible = False
Else
LB_Demande_Containment.Visible = False
LB_Reponse_Containment.Visible = False
LB_reponse_acceptee_Containment.Visible = False
LB_Demande_AC.Visible = True
LB_Reponse_AC.Visible = True
LB_Reponse_acceptee_AC.Visible = True
End If
End Sub
Private Sub UserForm_Initialize()
OB_Containment = True
End Sub