Discussion :

[esse2016]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Franc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[umfred]

peut-être utiliser If TypeName(ctrl) = "CheckBox" Then"

[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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Philippe Tulliez]

Bonjour,
Le TypeOf fonctionne parfaitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 😃

[Philippe Tulliez]

Bonjour,

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)

[esse2016]

J’ai essayé aussi sur pc, mais je ferai screeshot car dur à me croire 😀

[esse2016]

Voila
Je clique dans le togglebutton il passe a mon vbred


Je reclique pour basculer
Avant de passer au vert il passe par un rouge Furtif plus foncé

Pour arriver au vert


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

[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

[esse2016]

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

[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)

[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

[Philippe Tulliez]

Bonjour,

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




Fichier de démonstration

[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

[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

[esse2016]

Ok Valtrace, je tente cette idée… merci