afficher et masquer les lignes par bouton

[chaelie2015]

Bonjour Forum
je souhaite résoudre mon souci suivant (ci joint le fichier exemple):

si je coche "sur HT" alors masquer la ligne 43 et 45
sinon si je coche "sur TTC" alors masquer la ligne 42 et 43.
sinon si je coche sur " pas de RG" alors masquer la ligne 42,43 et 45.


Salutations
edit : désolé j'ai modifié mon souci par un bouton

 

[Caillou]

Re : afficher et masquer les lignes par bouton

Bonjour,

Sub aff_mas()
  Dim u42 As Range
  Dim u45 As Range
  
  Set u42 = Range("U42")
  Set u45 = Range("U45")
  
  Range("42:43,45:45").EntireRow.Hidden = False
  If IsNumeric(u42) Then
    If u42 > 0 And u45 = "" Then
      Rows("43,45").Hidden = True
    End If
  End If
  If IsNumeric(u45) Then
    If u45 > 0 And u42 = "" Then
      Rows("42:43").Hidden = True
    End If
  End If
  
End Sub

Caillou

 

[chaelie2015]

Re : afficher et masquer les lignes par bouton

Bonjour CAILLOU
Merci pour la réponse rapide , je suis désolé d'avoir changé mon souci, néanmoins je vous sollicite
encore une fois désolé.
SALUTATIONS

 

[chaelie2015]

Re : afficher et masquer les lignes par bouton

Bonjour Forum
j'ai essayé ce code ça fonctionne tres bien mais je pense qu'il existe un code plus simple?

Private Sub CheckBox1_Click() ' RG sur HT

If CheckBox1 = True Then
Worksheets("Fac").Rows("43").Hidden = True
Worksheets("Fac").Rows("45").Hidden = True
Worksheets("Fac").Range("U45:V45").ClearContents
Else
If CheckBox1 = False Then
Worksheets("Fac").Rows("43").Hidden = False
Worksheets("Fac").Rows("45").Hidden = False
End If
End If

End Sub


Private Sub CheckBox2_Click() 'RG sur TTC

If CheckBox2 = True Then
Worksheets("Fac").Rows("42:43").Hidden = True
Worksheets("Fac").Range("U42:V42").ClearContents
Else
If CheckBox2 = False Then
Worksheets("Fac").Rows("42:43").Hidden = False
End If
End If
 
End Sub

Private Sub CheckBox3_Click() ' sans RG

If CheckBox3 = True Then
Worksheets("Fac").Rows("42:43").Hidden = True
Worksheets("Fac").Rows("45").Hidden = True
Worksheets("Fac").Range("U42:V42").ClearContents
Worksheets("Fac").Range("U45:V45").ClearContents
Else
If CheckBox3 = False Then
Worksheets("Fac").Rows("42:43").Hidden = False
Worksheets("Fac").Rows("45").Hidden = False
End If
End If
 
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

NB: la feuille1 =Fac
Salutations