Check Box bouton

[jbdubreuil]

Bonjour le forum,

j'ai une question relative au Check Box Button.
C'est la premiere fois que j'utilise ce bouton.
je souhaite en cliquant sue ce boutton cacher des lignes (2:2,3:3)
avec le micro code suivant:

Sub Macro1()
Range("2:2,3:3").Select
Selection.EntireRow.Hidden = True
End Sub

Comment fait on ensuite pour retrouver la situation initiale?
A savoir les lignes (2:2,3:3) unhided ?

Il faut passer par une macro conditionnelle du genre if?
je vais faire qq recherches sur el forum dans le meme temps

Merci par avance,

 

[Orodreth]

Re : Check Box bouton

Bonjour jbdubreuil

Sub Macro1()
Range("2:2,3:3").Select
Selection.EntireRow.Hidden = True
End Sub

Essaye ça pour le retour, mais je promet rien:

Sub Macro2()
Range("2:2,3:3").Select
Selection.EntireRow.Hidden = False
End Sub

Après, je connais pas le checkbox button, mais s'il agit comme un checkbox (à moins que ce soit un checkbox), tu as une propriété changed qui te permet de faire le test:

Private sub chkbox1_changed()
If chkbox1.value = true then
... [COLOR="SeaGreen"]'exemple: Call Macro1[/COLOR]
elseif chkbox2.value = false then
... [COLOR="SeaGreen"]'exemple: Call Macro2[/COLOR]
end if

Cordialement,
Thomas

 

[Pierrot93]

Re : Check Box bouton

Bonjour Jb, Thomas

Remplace par le code ci dessous, si les lignes sont visibles, elles sont masquées, sinon elles sont affichées.

If Rows("2:3").Hidden = False Then
    Rows("2:3").Hidden = True
Else
    Rows("2:3").Hidden = False
End If

bonne journée
@+

 

[Orodreth]

Re : Check Box bouton

Salut Pierrot

Ah ouais, pas mal le code, je n'y aurais pas pensé comme ça
Merci

Thomas

 

[jbdubreuil]

Re : Check Box bouton

Ouahhh,

Pierrot, orodeth,
merci pour vos reponses ultra rapides !!!

je vais me plonger un peu plus dans les check Box...

Merci pour vos reponses,
et encore une fois merci au forum et à tous ses utilisateurs.

Jb