Suppression Labels d'un Userform

Version imprimable

01/06/2010, 16h25
Eric_69

Suppression Labels d'un Userform
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:

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:

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 !

bonjour Eric_69 le forum essai avec Remove

exemple suppression de 6 labels crées dynamiquement!!
Code:

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

Même problème...

Pas moyen de supprimer ces fameux labels...

J'obtiens ceci :

Erreur d'exécution, argument non valide

voici la procédure complète :

Code:

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