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
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
A voir également:
- Check box problemes dans mon programme...
- Check disk - Guide
- Programme demarrage windows 10 - Guide
- Adresse ip box - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre programme - Guide
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
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
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 :)
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
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
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
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"
:'(
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 ?
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
10 août 2009 à 15:55
si si c'est possible ;)..
je teste et je t envoie ca ;)
je teste et je t envoie ca ;)
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
10 août 2009 à 15:59
re :)
Worksheets("Sheet1").Range(Rows(12), Rows(74)).Hidden = True
Worksheets("Sheet1").Range(Rows(12), Rows(74)).Hidden = True