Pb checkbox

[GGPS58]

Bonjour à tous.

J'ai un USF avec plusieurs togglebuttons, que j'aimerais modifier suivant leur état.
Puis, par action sur un Commandbutton, modifier une nouvelle fois les TG.
J'ai tenté quelques macros, mais rien ne fonctionne, j'ai du prendre des raccourcis un peu rapide ou alors me planter carrément. TOujours est-il que je ne m'en sort pas.
Je vous joint un fichier exemple pour plus de clarté (cet exemple smplifié contient 4TG, le fichier réel 112).

D'avance merci de votre aide.

 

[Mytå]

Re : Pb checkbox

Salut le forum

Tu ne peux affecter une macro unique pour des boutons que par des module de classe.

Mytå

 

[Catrice]

Re : Pb checkbox

Bonsoir,

Ci-joint un exemple.
Le RAZ remet tous les boutons à "blanc" et false

 

[Papou-net]

Re : Pb checkbox

Bonsoir GGPS58, les participants,

Une autre forme de programmation :

Lignes de code à entrer dans le module (Général) du Userform1)

Private Sub CommandButton1_Click()
ToggleButton1.Value = True
ToggleButton2.Value = True
ToggleButton1.BackColor = &HFF
ToggleButton2.BackColor = &HFF
End Sub

Private Sub CommandButton2_Click()
ToggleButton3.Value = True
ToggleButton4.Value = True
ToggleButton3.BackColor = &HFF
ToggleButton4.BackColor = &HFF
End Sub

Private Sub CommandButton3_Click()
For n = 1 To 4
  Me.Controls("ToggleButton" & n).Value = False
  Me.Controls("ToggleButton" & n).BackColor = &H8000000F
Next
End Sub

Private Sub ToggleButton1_Click()
TG_Change
End Sub

Private Sub ToggleButton2_Click()
TG_Change
End Sub

Private Sub ToggleButton3_Click()
TG_Change
End Sub

Private Sub ToggleButton4_Click()
TG_Change
End Sub

Sub TG_Change()
With UserForm1.ActiveControl
  Select Case .Value
    Case True
      .BackColor = &HFF
    Case False
      .BackColor = &H8000000F
  End Select
End With
End Sub

Qui vaut ce qu'elle vaut, mais qui fonctionne. Elle a le mérite de démontrer qu'on peut très simplement affecter le même module de code à des contrôles multiples.

Espérant avoir aidé.

Cordialement.

 

[Mytå]

Re : Pb checkbox

Salut le forum

Et avec un Module de Classe

Code plus simple surtout pour plusieurs ToggleButton (80 dans mon exemple)

Mytå

 

[Papou-net]

Re : Pb checkbox

Bonsoir Myta, le forum,

Tu as parfaitement raison, Myta, surtout dans le cas de nombreux contrôles identiques.
Encore faut-il savoir utiliser les modules de classe, ce qui n'est pas le cas de beaucoup, moi-même y compris.
Je vais toutefois étudier cette facette de VBA, car je suis en train de créer un jeu de Sudoku sur Excel, et dans ce cas précis ça me semble intéressant. Ma méthode exposée plus haut fonctionne très bien, mais m'a quand-même obligé à écrire 81 fois la même ligne de code ; toutefois, en cas de modification, je ne touche qu'à un seul module de code, ce qui me semblait déjà très bien.

Encore merci pour ton intervention.

Cordialement.

 

[GGPS58]

Re : Pb checkbox

Merci à tous pour vos réponses.
La méthode des modules de classe semble être la plus courte (parce que j'ai prét de 130 commandes à paramétrer).
Je vais donc m'y plonger et essayer de comprendre.
Encore merci

 

[Mytå]

Re : Pb checkbox

Re le forum

Tu reviens GGPS58, si tu as besoin d'aide.

Mytå

 

[GGPS58]

Re : Pb checkbox

Bonjour,

Me revoilà, je n'arrive pas à me sortir de ces modules de classe.
Je vous joins un fichier explicatif de mon problème.
Je vous remercie d'avance de vos eclaircissements.

 

[Mytå]

Re : Pb checkbox

Re le forum

GGPS58, ton fichier modifié rapidement

A te relire
Mytå

 

[GGPS58]

Re : Pb checkbox

Merci beaucoup MYTA, tout fonctionne parfaitement.
J'avoue que je pensait avoir compris comment fonctionnait un module de classe, mais ce n'est pas le cas, il faut que je m'y repenche.

Merci encore.

GGPS58