Private Sub UserForm_Initialize()
Agrandir
End Sub
Private Sub CheckBox1_Click()
With UserForm1
If .CheckBox1 = True Then
Rapetir
Else
Agrandir
End If
End With
End Sub
Sub Agrandir()
CheckBox1.Caption = "Masquer"
Me.Height = 360
Frame2.Height = 318
Frame3.Height = 270
Frame4.Height = 330
Label148.Top = 288
Label149.Top = 288
End Sub
Sub Rapetir() 'pas terrible comme nom
CheckBox1.Caption = "Afficher"
Me.Height = 170
Frame2.Height = à définir
Frame3.Height = à définir
Frame4.Height = à définir
Label148.Top = à définir
Label149.Top = à définir
End Sub