[MACRO] Case à cocher

[Jw_]

Réponse : Mauvais bouton


Bonjour,

J'ai créé un bouton ActiveX nommé case d'option.
J'aimerais que quand celui-ci est coché, afficher une plage de cellule, et la masquer dans le cas contraire.

Avec ce code je n'y arrive pas, la case reste cochée.

Private Sub OptionButton1_Click()

If OptionButton1 = True Then
' Afficher
     Rows("18:27").EntireRow.Hidden = False

Else
If OptionButton1 = False Then
' Masquer
    Rows("19:26").EntireRow.Hidden = True

End Sub

Mais quelle est mon erreur ?

Bien à vous,

Julien

 

[Lone-wolf]

Re : [MACRO] Case à cocher

Bonjour Jw,

Je viens de faire un test avec une CheckBox et ça fonctionne.
Ce que tu as mis c'est un boutton d'option et non une case à cocher.

Sub CheckBox1_Click()
If CheckBox1 = False Then
' Afficher
Range("A1:A10").EntireRow.Hidden = False
Else
If CheckBox1 = True Then
' Masquer
Range("A1:A10").EntireRow.Hidden = True
End If
End If
End Sub

 

[Cousinhub]

Re : [MACRO] Case à cocher

Bonjour,

un peu plus court :

Private Sub CheckBox1_Click()
Rows("1:10").Hidden = Me.CheckBox1
End Sub

Bon dimanche

 

[Jw_]

Re : [MACRO] Case à cocher

Très bien, je pensais que ces deux boutons avaient la même fonction.

Merci
Bon dimanche

 

[Lone-wolf]

Re : [MACRO] Case à cocher

Bonjour bhbh,

et pour masquer certaines lignes, par ex. 2,4,6?


A+

 

[Cousinhub]

Re : [MACRO] Case à cocher

Re-,

Private Sub CheckBox1_Click()
Range("5:5,8:8,12:12").EntireRow.Hidden = Me.CheckBox1
End Sub

Bon dimanche

 

[Lone-wolf]

Re : [MACRO] Case à cocher

Merci bhbh et bon dimanche.