Discussion :

[louisapt]

bonjour,

j'ai réalisé un UserForm qui en fonction d'une donnée génère des TextBox (TextBox dynamique)
voici le code pour les générer celui ci marche parfaitement

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
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub CommandButton2_Click()
 
    '------------------permet de dimensionner le UserForm----------------------'
    With CommandButton1
        .Top = 18 * nbcr + 96
    End With
    With UserForm3
        .Height = 18 * nbcr + 149
    End With
 
    '------------------création des TextBox dynamique en fonction de nbcr--------------'
    For i = 1 To nbcr
        Set supcomposant = UserForm3.Controls.Add("forms.CheckBox.1")
        With supcomposant
            .Name = "CheckBox2" & i  'nom de la textbox
            .Left = 12         'position par rapport au rebord gauche de l'UserForm
            .Top = 18 * i + 60  'position par rapport au haut de l'UserForm
            .Width = 198.5         'largeur de la zone d'écriture
            .Height = 13.5        'hauteur de la zone d'écriture
            .BackColor = &H8000000B  'couleur fond
            .BackStyle = fmBackStyleOpaque
            .Caption = "composant_" & Nomcomposant(i)
        End With
    Next i
 
End Sub

Et voici le code qui ne marche pas qui doit pouvoir récupérer la valeur des checkBox pour supprimer des feuilles
Dans ce code c'est la condition If qui n'est pas correctement exécuté "checkBox2 & i" ne renvoie pas le nom des checkBox précédemment créées

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton1_Click()
 
        '----------supprime les feuilles séléctionnées------------------'
        For i = 1 To nbcr
            If CheckBox2 & i = True Then
                Worksheets("Composant_" & Nomcomposant(i)).Delete
            End If
        Next i
 
    Unload UserForm3
End Sub

sur certain forum j'ai lu qu'il fallait créer une collection et une classe mais je ne comprend pas vraiment comment adapter les choses à mon code
Quelqu'un a t'il une idée ?

Louis

[Jean-Philippe André]

Salut,

tu peux commencer par remplacer ton

Code :

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

If CheckBox2 & i = True Then

par

Code :

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

If Me.Controls("CheckBox2" & i) = True Then

[louisapt]

Bonjour,

Super Jean-Philippe je n'avais pas pensé au

Code :

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

Me.Controls

ca marche maintenant c'était simple finalement

Merci Beaucoup

[Pierre Fauconnier]

Salut

Code :

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

If Me.Controls("CheckBox2" & i) = True Then

Je dirais même:

Code :

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

If Me.Controls("CheckBox2" & i) Then

Bien que je préfère If Me.Controls("CheckBox2" & i).Value Then car je n'aime pas les valeurs par défaut