bouclage evenementiel sur chkbox dans usf ?!

[bérylion]

Salut la foule

je bute sur un cas spécial depuis ce matin :

j'ai un USF classique, avec une grosse poignée de chkbox et 2 boutons (valider, annuler) :

• la 1ere chkbox permet de switcher toutes les autres à la meme valeur (en bouclant sur toutes les chkbox et en leur attribuant sa propre valeur)

• le btn annuler ferme le usf et rend la main à la sub de départ

• le btn valider boucle sur toutes les chkbox et stock leur caption dans un tableau si leur valeur et TRUE

• les 8 autres chkbox ne sont pas codées

jusque la pas de pb tout fonctionne sans rien faire couiner.

je voudrais, pour chiader la chose, pouvoir à l'inverse attribuer la valeur null à cette 1ere chkbox si une partie seulement des autres à la valeur TRUE

je saurais faire en codant chaque chkbox mais ça m'intéresse pas (le nbre de chkbox est amené à augmenter donc risque d'oubli...)

ma question est donc la suivante :
comment tester les valeurs de toutes les chkbox quand l'une d'elle change de valeur ??!

A vot' bon coeur m'sieurs dame...

 

[Cousinhub]

Re : bouclage evenementiel sur chkbox dans usf ?!

Bonjour,

regarde le fichier joint...

1 clic sur le chkbx "Total" te valide tous les checkbox de la Frame

1 clic sur un des chkbx de la Frame te met le chkbx "Total" si tous les chkbx sont à vrai, ou l'enlève le cas échéant

Bon courage

 

[Habitude]

Re : bouclage evenementiel sur chkbox dans usf ?!

Avec module de classe comme ceci ?


bhbh j'aime bien l'idée d'affecter des objet déja créer a son vecteur. Par contre ca te force a utiliser des variables public dans un module.

 

[pierrejean]

Re : bouclage evenementiel sur chkbox dans usf ?!

Salut bhbh
Salut Habitude

Je regarderais vos contributions des que possible

@ bérylion

revois ceci

For [COLOR=red]j%[/COLOR] = 1 To i
    Set chkbox(i).chkbox = Controls("CheckBox" &[COLOR=red] i[/COLOR])
Next

 

[Fo_rum]

Re : bouclage evenementiel sur chkbox dans usf ?!

Salut

pierrejean, tu en auras un autre exemple de Class à regarder (si cela te dit).
bérylion, est-ce Null ou False ?

 

[laetitia90]

Re : bouclage evenementiel sur chkbox dans usf ?!

bonjour bérylion,pierrejean,Fo_rum,Habitude,bhbh,pascal , le forum

comme je comprends???? pas certaine!!!

 

[aubelix]

bouclage evenementiel sur chkbox dans usf ?

Bonjour à tous les amis du Forum.

Une question complémentaire:
Comment incorporer dans l'USF le libellé des Numéros contenus
dans la feuille base. En sachant que cette liste est de longueur variable.

Merci pour votre réponse.
Cordialement.

 

[Habitude]

Re : bouclage evenementiel sur chkbox dans usf ?!

Pour les libellés
Dans le ADD tu n'as qu'a modifier les paramètres.

C'est la force d'un objet lorsqu'il est bien construit.
Il est facilement modifiable.

 

[bérylion]

Re : bouclage evenementiel sur chkbox dans usf ?!

bonjour bérylion,pierrejean,Fo_rum,Habitude,bhbh,pascal , le forum

comme je comprends???? pas certaine!!!

ROYAL !!



alors la c'est la classe ; c'est pas "bien", c'est "mieux"...

va falloir que je me penche serieux sur le sujet, je découvre des possibilités incroyables.

 

[bérylion]

Re : bouclage evenementiel sur chkbox dans usf ?!

Salut bhbh
Salut Habitude

Je regarderais vos contributions des que possible

@ bérylion

revois ceci

For [COLOR=red]j%[/COLOR] = 1 To i
    Set chkbox(i).chkbox = Controls("CheckBox" &[COLOR=red] i[/COLOR])
Next

mais quel boulet !!

merci

 

[bérylion]

Re : bouclage evenementiel sur chkbox dans usf ?!

Salut

pierrejean, tu en auras un autre exemple de Class à regarder (si cela te dit).
bérylion, est-ce Null ou False ?

salut

merci pour le coup de pouce, mais c'est bien NULL et pas FALSE

 

[bérylion]

Re : bouclage evenementiel sur chkbox dans usf ?!

Bonjour,

regarde le fichier joint...

1 clic sur le chkbx "Total" te valide tous les checkbox de la Frame

1 clic sur un des chkbx de la Frame te met le chkbx "Total" si tous les chkbx sont à vrai, ou l'enlève le cas échéant

Bon courage

salut, et merci

j'en voulais pas tant , mais ça me permet de voir plusieurs solutions pour un meme probleme


**je vais en passer un temps à décortiquer tout ça, moi...**

 

[bérylion]

Re : bouclage evenementiel sur chkbox dans usf ?!

Avec module de classe comme ceci ?


bhbh j'aime bien l'idée d'affecter des objet déja créer a son vecteur. Par contre ca te force a utiliser des variables public dans un module.

salut

alors la, tu voles un peu haut pour moi...

intéressant, mais pas nécessaire dans mon cas :

les chkbox sont créées à la main, car j'utilise uniquement leur caption

en revanche, ton approche est très instructive ; habituellement j'aurais créer le usf à la volée et inséré les chkbox par une boucle, mais la ça ouvre d'autres horizons créatifs que je ne vais pas manquer d'étudier !!!

 

[bérylion]

Re : bouclage evenementiel sur chkbox dans usf ?!

bonjour bérylion,pierrejean,Fo_rum,Habitude,bhbh,pascal , le forum

comme je comprends???? pas certaine!!!

re-

y manquait juste la touche finale : si toutes les chkbox sont TRUE alors chkbox1 = TRUE

modifié à l'arrache :

Public WithEvents cbx As MSForms.CheckBox

Private Sub cbx_Change()
If cbx = UserForm1.CheckBox1 Then
    For Each ctrl In UserForm1.Controls
        If TypeOf ctrl Is MSForms.CheckBox Then ctrl.Value = UserForm1.CheckBox1
    Next
Else
    For Each ctrl In UserForm1.Controls
        If TypeOf ctrl Is MSForms.CheckBox Then
            i = i + 1
            If ctrl.Caption <> "" Then Y = Y - ctrl.Value
        End If
    Next
    Select Case Y
        Case 0:     UserForm1.CheckBox1 = False
        Case i - 1:   UserForm1.CheckBox1 = True
        Case Else:  UserForm1.CheckBox1 = Null
    End Select
End If
End Sub

finalement, tout ça pour une futilité completement inutile :

comme dit tout au début, le form affiche des chkbox avec les noms des contacts à qui envoyer le classeur
le bouton "OK" récupère les caption des chkbox=true dans un tableau et repasse la main à une sub standard pour envoi du classeur


mébon, j'aurai appris des choses ; merci à tous pour vos excellentes contributions.

 

[aubelix]

Re : bouclage evenementiel sur chkbox dans usf ?!

Bonjour à tous les amis du Forum.

Ma question s'adressait à Fo rum. Car sa réponse correspondrait à
un projet que je dois traiter. A savoir, comment reprendre les numéros
de la feuille "BASE" dans l'USF. En sachant que le nombre est variable de 1 à 44.
Comment afficher les numéros. En validant déclencher une action.
Par exemple recopier une feuille modèle sous le numéro d'onglet du numéro.
Si il y'a 10 numéros, création de 10 onglets ayant pour nom les numéros affichés dans l'USF etc...

Par avance Merci pour votre aide.
Cordialement.

 

[bérylion]

Re : bouclage evenementiel sur chkbox dans usf ?!

reuh à tous

une copie du fichier finalisé pour ceux que ça intéresse.

le module de classe ne sert à rien sinon à faire joli, mais ce fut un tres bon exercice et l'occasion pour moi de mettre les mains dans les modules de classe.

merci encore à tous, et à bientot car j'ai plein d'idées à mettre en pratique !!...