boucle sur controls MSFORMS

Version imprimable

bonjour,

Le problème: pourquoi dans mon code ci-dessous, le if ne filtre pas correctement mes controls ?
Le but: lorsque le togglebutton3 n'est pas enfoncé décoche toutes les checkbox du frame1 sinon coche tous les checkbox du frame1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub toggleButton3_click()
Dim ctrl As Object
Dim NumeroLabel As String
 
    For Each ctrl In Me.Frame1.Controls 'Boucle sur tout les contrôles de l'userform
            If TypeOf ctrl Is MSForms.CheckBox Then
            NumeroLabel = Mid(ctrl.Name, 9, Len(ctrl.Name) - 8)
                If ToggleButton3.Value = True Then
                Me.Frame1.Controls("CheckBox" & NumeroLabel).Value = True
                Else
                Me.Frame1.Controls("CheckBox" & NumeroLabel).Value = False
                End If
            End If
    Next ctrl
End Sub

Ici

Code:

If TypeOf ctrl Is MSForms.CheckBox Then

j'ai du toggleButton qui passe alors que cela ne devrait pas

qqun serait m'expliquer et résoudre mon pb SVP ?
Merci

Salut, essaie avec cette légère modif. On vérifie si le nom du contrôle contient bien la chaîne "CheckBox" avant de le traiter. Cela pourrait empêcher le traitement de contrôles indésirables.

Code:

1
2
3
4
5
6
7
8
9
10
For Each ctrl In Me.Frame1.Controls 'Boucle sur tout les contrôles de l'userform
    If TypeOf ctrl Is MSForms.CheckBox And InStr(1, ctrl.Name, "CheckBox") > 0 Then
        NumeroLabel = Mid(ctrl.Name, 9, Len(ctrl.Name) - 8)
        If ToggleButton3.Value = True Then
            ctrl.Value = True
        Else
            ctrl.Value = False
        End If
    End If
Next ctrl

26/04/2023, 16h02
umfred

peut-être utiliser If TypeName(ctrl) = "CheckBox" Then"
26/04/2023, 16h25
Philippe Tulliez
Bonjour,
Ce n'est bien entendu pas la réponse à votre question mais je me permets une petite remarque sur ce genre de ligne de code
Citation:
Code:

1 2 If ToggleButton3.Value = True Then Me.Frame1.Controls("CheckBox" & NumeroLabel).Value = True
Il est plus simple et plus rapide d'écrire et sans If et cela vous évite le Else

Code:

Me.Frame1.Controls("CheckBox" & NumeroLabel).Value =ToggleButton3.Value

A lire éventuellement mon billet sur ce sujet VBA - De la mauvaise utilisation d'un If...Then...Else pour modifier une propriété Booléenne

Si c'est l'inverse que vous voulez, il suffit d'ajouter le Not

Code:

Me.Frame1.Controls("CheckBox" & NumeroLabel).Value = Not ToggleButton3.Value

[EDIT]
Voir cette discussion avec comme objet boucle sur les controles dans un frame pour parcourir les contrôles d'un Frame et en testant avec TypeName

Bonjour,
Ce code fonctionne. Attention que j'ai changé le nom de certains contrôles

Code:

1
2
3
4
5
6
7
8
9
Private Sub toggleButton1_click()
  Dim ctrl As Object
  Dim NumeroLabel As String
  For Each ctrl In Me.Frame1.Controls 'Boucle sur tout les contrôles de l'userform
      If TypeName(ctrl) = "CheckBox" Then
         ctrl.Value = ToggleButton1.Value
      End If
  Next ctrl
End Sub

27/04/2023, 06h37
esse2016

Bonjour Franc, umfred, Philippe Tulliez,

Déjà merci pour vos interventions.

@umfred + Philippe: La méthode TypeName(ctrl) est plus favorable et fonctionne mieux que typeof ctrl Is MSForms.checkbox
=> je suis débutant et je ne sais pas pourquoi TypeName fonctionne ou est plus approprié que MSForms, mais bon le principal c'est que ça fonctionne avec TypeName

@Franc => je pars donc sur du TypeName c'est mieux

@Philippe, ok avec
Me.Frame1.Controls("CheckBox" & NumeroLabel).Value =ToggleButton3.Value je ne l'avais pas perçu. Donc cela élimine effectivement un if et 3 lignes de code, c'est toujours bon à prendre.

Mon problème est résolut. Merci encore

Bonjour,
Le TypeOf fonctionne parfaitement
Code:

1 2 3 4 5 6 7 Private Sub toggleButton1_click() Dim ctrl As Object For Each ctrl In Me.Frame1.Controls 'Boucle sur tout les contrôles de l'userform If TypeOf ctrl Is msforms.CheckBox Then ctrl.Value = ToggleButton1.Value Next ctrl Set ctrl = Nothing End Sub
Si le changement de couleurs et de texte d'un ToggleButton vous intéresse, vous pour consulter mon billet Fonction générique pour modifier la couleur et le texte d'un ToggleButton

27/04/2023, 15h40
esse2016
Bonjour Monsieur Philippe,

J’essayerai demain si ça fonctionne.
En revanche tout ce matin j’ai bataillé sur .backcolor du togglebutton et j’ai peur de froisser certains, mais ça ne marche pas

Citation:

Si le changement de couleurs et de texte d'un ToggleButton vous intéresse, vous pour consulter mon billet Fonction générique pour modifier la couleur et le texte d'un ToggleButton

Sujet sur le .backcolor problème de «*fond grisé*»
Ici: http://www.developpez.net/forums/d80...-togglebutton/
J’ai bataillé ce matin et non ce n’est pas au point !
J’ai un tooglebutton qui par ceci
Code:

1 2 3 Togglebutton1.backcolor=IIF(Togglebutton1.value,vbRed,vbGreen) Togglebutton1.Caption=IIF(Togglebutton1.value,*«*KO »,«OK»)
En gros lorsque j’enfonce le bouton (car je décide mettre un «*KO*» sur le,togglebutton), il doit se colorier en rouge sauf que c’est rouge en plus pale, puis lorsque j’appuis à nouveau (je décide de passer du «*KO*» vers du «*OK*») alors on voit durant moins d’1s le togglebutton passé d’un rouge pale à un rouge vif pour finir à du vert.
Comme je ne sais pas résoudre cela j’ai joué sur le forecolor 😞

Mais on dérive un peu du sujet 😃
27/04/2023, 16h18
Philippe Tulliez

Bonjour,

Citation:

n revanche tout ce matin j’ai bataillé sur .backcolor du togglebutton et j’ai peur de froisser certains, mais ça ne marche pas

Je peux vous certifier que cela fonctionne parfaitement. Je ne publie rien que je n'ai testé. En revanche d'après la discussion vous avez un MAC et tout ne fonctionne pas sur MAC comme Windows (par exemple les ActiveX)
27/04/2023, 16h24
esse2016

J’ai essayé aussi sur pc, mais je ferai screeshot car dur à me croire 😀
27/04/2023, 18h22
esse2016

3 pièce(s) jointe(s)

Voila
Je clique dans le togglebutton il passe a mon vbred
Pièce jointe 637947

Je reclique pour basculer
Avant de passer au vert il passe par un rouge Furtif plus foncé
Pièce jointe 637948
Pour arriver au vert
Pièce jointe 637949

Pourquoi ça ne marche pas j’ai rouge pale et non le rouge vif demandé par vbred ?
Explication ou solution avez vous ?

Salut testes comme cela :

Code:

1
2
3
4
With Togglebutton1
    .BackColor = IIf(.Value = True, vbRed, vbGreen)
    .Caption = IIf(.Value = True, "ON", "OFF")
End With

28/04/2023, 07h08
esse2016

Citation:

Hier, 21h28
Valtrase
Salut testes comme cela :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
With Togglebutton1
.BackColor = IIf(.Value = True, vbRed, vbGreen)
.Caption = IIf(.Value = True, "ON", "OFF")
End With

non pareil, je constate que
lorsque je clique une fois dans le togglebutton, cela le fait passé en rouge pale
lorsque je clique dans le togglebutton MAIS que je ne relache pas le bouton de la souris le rouge pale passe à un rouge vif (et c'est cette couleur que j'ai demandé !)
lorsque je relache le clique de la souris alors le rouge vif passe au vert

j'ai essayé sur un PC, une nouvelle feuille excel et dans un userform1 j'ai mais uniquement un togglebutton1 cela me produit le même effet
28/04/2023, 11h58
umfred

ça a l'air d'être le comportement normal du contrôle malheureusement pour la couleur.
Si tu tiens à la couleur, une possible alternative serait d'utiliser un bouton normal (et utiliser le backgroundcolor pour définir/récupérer l'état)
28/04/2023, 12h14
Valtrase

Salut le fil,
Peut-être simplement parce que le bouton-bascule à le focus testes en envoyant le focus sur un autre contrôle

Sinon j'ai eu l'ocasion d'utiliser ceci : WorksheetsVBA - Switcher control for VBA userform
28/04/2023, 18h07
Philippe Tulliez

2 pièce(s) jointe(s)

Bonjour,

Citation:

lorsque je clique une fois dans le togglebutton, cela le fait passé en rouge pale
lorsque je clique dans le togglebutton MAIS que je ne relache pas le bouton de la souris le rouge pale passe à un rouge vif (et c'est cette couleur que j'ai demandé !)
lorsque je relache le clique de la souris alors le rouge vif passe au vert

Avez-vous tester le code que j'ai publié dans mon billet Fonction générique pour modifier la couleur et le texte d'un ToggleButton ?

Chez moi cela fonctionne parfaitement

Illustration

Pièce jointe 637997

Fichier de démonstration
28/04/2023, 18h47
esse2016

bonjour Philippe,

j'ai testé votre macro sur mon pc, mais j'ai toujours le problème lors de la transition votre Vert qui est un peu grisé deviendra un vert plus vif de manière fugitif. Je pense et comme l'a dit Valtrase cela est inhérent au togglebutton.

Je vais me contenter de ça, merci aussi pour vos aides (votre code est super dur pour moi)

je voudrais cloturer le sujet car j'en ai un nouveau à ouvrir :)
29/04/2023, 16h17
Valtrase

Salut le fil
Bon il est évident que pour savoir que le bouton bascule est activer la couleur doit changer c'est un mix entre le vert et le gris.
En bidouillant un peu avec deux images, une verte l'autre rouge, on arrive au résultat.
D'abord mettre la propriété BackStyle du bouton sur transparent, ensuite créer deux images verte et rouge, leur donner la même taille que le bouton, on aligne les trois et on les groupe. Ensuite il ne reste plus qu'a jouer sur la propriété visible des images.

Pièce jointe 638046
29/04/2023, 19h14
esse2016

Ok Valtrace, je tente cette idée… merci