Check box problemes dans mon programme... Résolu

Question

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

jjsteing · Answer

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

mkos · Answer

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 :)

jjsteing · Answer

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

mkos · Answer

PLus exactement,

la 1ere:  "Run time error438: Object does not support this property or method"

la 2eme:  "compile error: Syntax error"


:'(

mkos · Answer

Ah merci !

HAHAH ! c'est genial comme truc :p

CIaoooo merci bcp :)

mkos · Answer

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 ?

jjsteing · Answer

si si c'est possible ;)..

je teste et je t envoie ca ;)

jjsteing · Answer

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

Check box problemes dans mon programme...

8 réponses

Discussions similaires

Newsletters