Attribute VB_Name = "Module1"
Option Explicit

Dim blnVisible As Boolean
Public Sub longlargepvisibility(longueur As MSForms.TextBox, Largeur As MSForms.TextBox, epaisseur As MSForms.TextBox, ComboUnite As MSForms.ComboBox, Label4 As MSForms.Label, Label5 As MSForms.Label, Label6 As MSForms.Label, pertes As MSForms.TextBox)

If bVisible = True Then
    longueur.Visible = True
    Largeur.Visible = True
    epaisseur.Visible = True
    ComboUnite.Visible = True
    Label4.Visible = True
    Label5.Visible = True
    Label6.Visible = True
    pertes.Visible = True
ElseIf bVisible = False Then
    longueur.Visible = False
    Largeur.Visible = False
    epaisseur.Visible = False
    ComboUnite.Visible = False
    Label4.Visible = False
    Label5.Visible = False
    Label6.Visible = False
    pertes.Visible = False
End If

End Sub
Public Property Get bVisible() As Boolean

bVisible = blnVisible

End Property
Public Property Let bVisible(vis As Boolean)

blnVisible = vis

End Property