Check box problemes dans mon programme...
Résolu
mkos
-
jjsteing Messages postés 1613 Date d'inscription Statut Contributeur Dernière intervention -
jjsteing Messages postés 1613 Date d'inscription Statut Contributeur Dernière intervention -
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
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
Configuration: Windows XP Internet Explorer 6.0
8 réponses
-
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 -
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 :) -
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 -
PLus exactement,
la 1ere: "Run time error438: Object does not support this property or method"
la 2eme: "compile error: Syntax error"
:'( -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
-
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 ?
-
si si c'est possible ;)..
je teste et je t envoie ca ;) -
re :)
Worksheets("Sheet1").Range(Rows(12), Rows(74)).Hidden = True
