VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
   Caption         =   "UserForm1"
   ClientHeight    =   5475
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   11625
   OleObjectBlob   =   "UserForm1.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CommandButton1_Click()

Dim ws As Worksheet
    
    Dim matérielCOPEC As Boolean, navireCabineCOPEC As Boolean, communicationTravailCOPEC As Boolean, dissimulationCOPEC As Boolean, fauteContreCOPEC As Boolean, informationManquante As Boolean, déclarationIncomplète As Boolean, équipementGénéralisteArmement As Boolean, équipementRejetDéchetArmement As Boolean, équipementScelléArmement As Boolean, équipementEnvironnementArmement As Boolean, zonePériodePêche As Boolean, modesTechniquesPêche As Boolean, transbordementDébarquementQuota As Boolean, modalitéPêcheProtectionEnvironnement As Boolean, modalitéPêcheCOPEC As Boolean, marquage As Boolean, gestionRejets As Boolean

    
    ' Spécifiez la feuille de calcul sur laquelle vous souhaitez agir
    Set ws = ThisWorkbook.Sheets("Feuil1")
    
    ' Récupérez l'état des cases à cocher
    matérielCOPEC = CheckBox1.Value
    navireCabineCOPEC = CheckBox2.Value
    communicationTravailCOPEC = CheckBox3.Value
    dissimulationCOPEC = CheckBox4.Value
    fauteContreCOPEC = CheckBox5.Value
    informationManquante = CheckBox6.Value
    déclarationIncomplète = CheckBox7.Value
    équipementGénéralisteArmement = CheckBox8.Value
    équipementRejetDéchetArmement = CheckBox9.Value
    équipementScelléArmement = CheckBox10.Value
    équipementEnvironnementArmement = CheckBox11.Value
    zonePériodePêche = CheckBox12.Value
    modesTechniquesPêche = CheckBox13.Value
    transbordementDébarquementQuota = CheckBox14.Value
    modalitéPêcheProtectionEnvironnement = CheckBox15.Value
    modalitéPêcheCOPEC = CheckBox16.Value
    marquage = CheckBox17.Value
    gestionRejets = CheckBox18.Value
    
    ' Masquez toutes les lignes au départ
    ' ws.Rows.Hidden = True'
    
    ' En fonction de l'état des cases à cocher, affichez les plages de lignes correspondantes
If matérielCOPEC Then
    ws.Rows("2:8").Hidden = False
Else
    ws.Rows("2:8").Hidden = True
End If

If navireCabineCOPEC Then
    ws.Rows("9:14").Hidden = False
Else
    ws.Rows("9:14").Hidden = True
End If

If communicationTravailCOPEC Then
    ws.Rows("15:19").Hidden = False
Else
    ws.Rows("15:19").Hidden = True
End If
    
If dissimulationCOPEC Then
    ws.Rows("20:27").Hidden = False
Else
    ws.Rows("20:27").Hidden = True
End If

If fauteContreCOPEC Then
    ws.Rows("28:35").Hidden = False
Else
    ws.Rows("28:35").Hidden = True
End If

If informationManquante Then
    ws.Rows("36:43").Hidden = False
Else
    ws.Rows("36:43").Hidden = True
End If

If déclarationIncomplète Then
    ws.Rows("44:52").Hidden = False
Else
    ws.Rows("44:52").Hidden = True
End If

If équipementGénéralisteArmement Then
    ws.Rows("53:56").Hidden = False
Else
    ws.Rows("53:56").Hidden = True
End If

If équipementRejetDéchetArmement Then
    ws.Rows("57:61").Hidden = False
Else
    ws.Rows("57:61").Hidden = True
End If

If équipementScelléArmement Then
    ws.Rows("62:66").Hidden = False
Else
    ws.Rows("62:66").Hidden = True
End If

If équipementEnvironnementArmement Then
    ws.Rows("67:70").Hidden = False
Else
    ws.Rows("67:70").Hidden = True
End If

If zonePériodePêche Then
    ws.Rows("71:83").Hidden = False
Else
    ws.Rows("71:83").Hidden = True
End If

If modesTechniquesPêche Then
    ws.Rows("84:90").Hidden = False
Else
    ws.Rows("84:90").Hidden = True
End If

If transbordementDébarquementQuota Then
    ws.Rows("91:94").Hidden = False
Else
    ws.Rows("91:94").Hidden = True
End If

If modalitéPêcheProtectionEnvironnement Then
    ws.Rows("95:106").Hidden = False
Else
    ws.Rows("95:106").Hidden = True
End If

If modalitéPêcheCOPEC Then
    ws.Rows("107:109").Hidden = False
Else
    ws.Rows("107:109").Hidden = True
End If

If marquage Then
    ws.Rows("110:111").Hidden = False
Else
    ws.Rows("110:111").Hidden = True
End If

If gestionRejets Then
    ws.Rows("112:118").Hidden = False
Else
    ws.Rows("112:118").Hidden = True
End If

'Vous pouvez ajouter ces blocs If pour ces variables en ajustant les plages de lignes (Rows) en fonction de celles que vous souhaitez afficher ou masquer en fonction de l'état des cases à cocher correspondantes. Assurez-vous de répéter ce modèle pour toutes les variables et plages de lignes correspondantes que vous souhaitez gérer.
    
    ' Fermez la UserForm
    Me.Hide

End Sub

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub