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