Group checkbox
mayssa_kh3
Messages postés
28
Date d'inscription
jeudi 20 avril 2006
Statut
Membre
Dernière intervention
2 juin 2006
-
15 mai 2006 à 15:51
frederios Messages postés 125 Date d'inscription mardi 21 septembre 2004 Statut Membre Dernière intervention 9 décembre 2006 - 29 oct. 2006 à 06:35
frederios Messages postés 125 Date d'inscription mardi 21 septembre 2004 Statut Membre Dernière intervention 9 décembre 2006 - 29 oct. 2006 à 06:35
3 réponses
frederios
Messages postés
125
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
9 décembre 2006
29 oct. 2006 à 06:07
29 oct. 2006 à 06:07
Pas mal sure que ce code devrais faire l'affaire:
_______________________________________
tout les checkbox doivent etre sur le meme set de Array donc mets un premier checkbox sur ta feuille et copie le en repondant oui a la question...ca marcherais juste pas si il sont porte pas tous le meme nom avec des index diffrants. t'a quand me le dire si tu veux que je t'explique le fonctionnement d'un array
________________________________________
dim compte as integer
sub check_click(index As Integer)
compte=0
for x = 0 to check.ubound
if check(x).value=1 then compte=compte+1
next
for x=0 to check.ubound
if compte<4 then
check(x).enable=true
else
if check(x).value<>1 then check(x).enable=false
end if
next
end sub
any way's dit moi si ca te vas pas je vais voir ce que je peux faire...
je vien de le taper juste la, juste pour toi...
_______________________________________
tout les checkbox doivent etre sur le meme set de Array donc mets un premier checkbox sur ta feuille et copie le en repondant oui a la question...ca marcherais juste pas si il sont porte pas tous le meme nom avec des index diffrants. t'a quand me le dire si tu veux que je t'explique le fonctionnement d'un array
________________________________________
dim compte as integer
sub check_click(index As Integer)
compte=0
for x = 0 to check.ubound
if check(x).value=1 then compte=compte+1
next
for x=0 to check.ubound
if compte<4 then
check(x).enable=true
else
if check(x).value<>1 then check(x).enable=false
end if
next
end sub
any way's dit moi si ca te vas pas je vais voir ce que je peux faire...
je vien de le taper juste la, juste pour toi...
frederios
Messages postés
125
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
9 décembre 2006
29 oct. 2006 à 06:34
29 oct. 2006 à 06:34
ou mieux
______________________________________
dim Z as integer
sub check1_click(index As Integer)
Z=0
for x=0 to check1.ubound
if check1(x).value=1 then =Z+1
next
for x=0 to check1.ubound
if Z<4 then
check(x)1.enabled=true
else
check(x)1.enabled =cbool(check1(x).value)
end if
next
end sub
____________________________________
le cbool prend une valeur numerique 0 ou 1 et la transforme en valeur boolean vrai ou faux.
comme ca ca remets enable si inferieure a 4
desoler il est passé 1 heure du matin et je suis mort de fatigue...
je vien de tester pis ca marche a merveille
______________________________________
dim Z as integer
sub check1_click(index As Integer)
Z=0
for x=0 to check1.ubound
if check1(x).value=1 then =Z+1
next
for x=0 to check1.ubound
if Z<4 then
check(x)1.enabled=true
else
check(x)1.enabled =cbool(check1(x).value)
end if
next
end sub
____________________________________
le cbool prend une valeur numerique 0 ou 1 et la transforme en valeur boolean vrai ou faux.
comme ca ca remets enable si inferieure a 4
desoler il est passé 1 heure du matin et je suis mort de fatigue...
je vien de tester pis ca marche a merveille
frederios
Messages postés
125
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
9 décembre 2006
29 oct. 2006 à 06:35
29 oct. 2006 à 06:35
Oup petite erreur
______________________________________
dim Z as integer
sub check1_click(index As Integer)
Z=0
for x=0 to check1.ubound
if check1(x).value=1 then Z=Z+1
next
for x=0 to check1.ubound
if Z<4 then
check(x)1.enabled=true
else
check(x)1.enabled =cbool(check1(x).value)
end if
next
end sub
____________________________________
Je vien de tester pis ca marche a merveille
______________________________________
dim Z as integer
sub check1_click(index As Integer)
Z=0
for x=0 to check1.ubound
if check1(x).value=1 then Z=Z+1
next
for x=0 to check1.ubound
if Z<4 then
check(x)1.enabled=true
else
check(x)1.enabled =cbool(check1(x).value)
end if
next
end sub
____________________________________
Je vien de tester pis ca marche a merveille