Check box problemes dans mon programme...

Résolu/Fermé
mkos - 10 août 2009 à 14:57
jjsteing Messages postés 1670 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 - 10 août 2009 à 15:59
Bonjour,

Je travaille sous excel 2003, j'ai un programme assez simple qui fait que lorsque je coche une check box elle fait disparaitre certaines lignes de mon ficher excel:

Private Sub CheckBox2_Click()

If Worksheets("Sheet1").Rows(20).Hidden = True Then
Worksheets("Sheet1").Rows(20).Hidden = False
Else
Worksheets("Sheet1").Rows(20).Hidden = True
End If
If Worksheets("Sheet1").Rows(48).Hidden = True Then
Worksheets("Sheet1").Rows(48).Hidden = False
Else
Worksheets("Sheet1").Rows(48).Hidden = True
End If

End Sub

J'ai essaye pas mal de choses pour que ca fasse le contraire: que quand je coche la case ca fasse apparaitre des lignes qui sont caches au depart...
je n'y arrive pas...

est ce que quelq'un aurait la solution a mon probleme?
Merci

Pierre
A voir également:

8 réponses

jjsteing Messages postés 1670 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
10 août 2009 à 15:02
bonjour :)

Private Sub CheckBox2_Click()
Worksheets("Sheet1").Rows(20).Hidden=CheckBox2.checked
Worksheets("Sheet1").Rows(48).Hidden=CheckBox2.checked
end sub

sinon, si c'est exactement le contraire, c'est a dire quand la coche est décoché que ca cache la ligne :

Private Sub CheckBox2_Click()
Worksheets("Sheet1").Rows(20).Hidden=xor CheckBox2.checked
Worksheets("Sheet1").Rows(48).Hidden=xor CheckBox2.checked
end sub
0
Salut jjsteing !
Merci de'avoir repondu si rapidement !! :)
Seul souci, j'ai essai les deux formules que tu ,as donne, la 1ere me fait une erreur 438 et la deuxieme est ecrite en rouge dans le programme, ca ne marche pas :(

Sais tu a quoi ca peut etre du ? des versions differents ou alors je dois taper autres choses ? Car la j'ai enlever mes lignes de codes pour mettre juste la tienne? Cest bien un raccourci de ce que javais fait?

Merci :)
0
jjsteing Messages postés 1670 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
10 août 2009 à 15:26
re:)

excuse, j avais pas tester..

Worksheets("Sheet1").Rows(20).Hidden = True Xor CheckBox2
ou

Worksheets("Sheet1").Rows(20).Hidden = CheckBox2


et oui, c'est un racouci comme tu dis ;):p
0
PLus exactement,

la 1ere: "Run time error438: Object does not support this property or method"

la 2eme: "compile error: Syntax error"


:'(
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Ah merci !

HAHAH ! c'est genial comme truc :p

CIaoooo merci bcp :)
0
Ah encore un petit truc tant qu'a faire ca existe peut etre aussi, si je faire apparaitre la ligne 12 a 74 par exemple c'est possible en une ligne ou il m'en faut 74-12 :p ?
0
jjsteing Messages postés 1670 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
10 août 2009 à 15:55
si si c'est possible ;)..

je teste et je t envoie ca ;)
0
jjsteing Messages postés 1670 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
10 août 2009 à 15:59
re :)

Worksheets("Sheet1").Range(Rows(12), Rows(74)).Hidden = True
0