Discussion :

[Eric_69]

Bonjour,

Je cherche à supprimer x labels générés dynamiquement dans un Frame.

Je parviens à masquer ces labels, mais pas à les supprimer.

les labels sont créés au préalable de la façon suivante :

Code :

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

1
2
3
4
5
Set obj = Me.F_Resultats.Controls.Add("forms.label.1")
With obj
    .Name = "L_Result_" & ComptResults
    .Caption = Cells(Li, Col)    
End With

Voici le code pour masquer les labels :

Code :

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

1
2
3
For Each obj In Me.F_Resultats.Controls
    If TypeOf obj Is MSForms.Label Then obj.Visible = False
Next

Merci pour votre aide !

[laetitia]

bonjour Eric_69 le forum essai avec Remove

exemple suppression de 6 labels crées dynamiquement!!

Code :

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

1
2
3
4
5
6
Private Sub CommandButton2_Click()
Dim i As Byte
   For i = 1 To 6
     Controls.Remove "label" & i
  Next
End Sub

[Eric_69]

Pas moyen de supprimer ces fameux labels...

J'obtiens ceci :

Erreur d'exécution, argument non valide

voici la procédure complète :

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
28
29
30
31
32
33
34
35
36
37
38
Private Sub Verif_BD() 'recherche de noms pouvant correspondre à la requête de l'utilisateur
    Dim Li, Col As Integer
    Dim Nom As String
    Dim obj As Control
    Li = 2
    Col = 2 'départ de la recherche cellule B2 -> 1er nom de la BD
 
    For Each obj In Me.F_Resultats.Controls
        'MsgBox obj.Name
        Controls.Remove "L_Result_" & ComptResults
    Next
 
    'ComptResults = 0
 
    Worksheets("BD").Activate
    While Not IsEmpty(Cells(Li, Col)) 'tant que 1ère cell. vide pas atteinte => il existe un enregistrement.
        'si les x 1ers caract. lus dans la cell. (x = nb de caract saisis par l'utilisateur)
        'correspondent aux x premiers caractères saisis par l'utilisateur.
        'ComptResults comptabilise les occurences trouvées -> info nécessaire pour redimensionner l'UF
        'et le frame.
        If Left(Cells(Li, Col), NbCar) = Saisie Then
            Set obj = Me.F_Resultats.Controls.Add("forms.label.1")
            With obj
                .Name = "L_Result_" & ComptResults
                .Caption = Cells(Li, Col)
                .BackColor = RGB(0, 255, 0)
                .Height = 9.75
                .Left = 6
                .Top = 11.25 + (11.25 * ComptResults * 2)
            End With
            'MsgBox obj.Name
            ComptResults = ComptResults + 1
            Li = Li + 1 'test ligne suivante
        Else
            Li = Li + 1 'test ligne suivante
        End If
    Wend
End Sub