Discussion :

[jojo86]

Bonjour,

Je voudrais simplement savoir comment supprimer des checkboxs qui ont étés créers par programation.

Mes checkbox sont sur un UserForm et je connais leurs nom.

Merci beaucoup.

[laetitia]

bonjour jojo le forum essai avec remove + name object

Code :

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

1
2
3
Private Sub CommandButton2_Click()
 Me.Controls.Remove "moncheckbox1"
End Sub

en complement tu peus faire une boucle dans ce style je suppose 6 crées

Code :

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

1
2
3
4
Dim i As Byte
   For i = 1 To 6
     Controls.Remove "moncheckbox" & i
  Next

[jojo86]

Merci beaucoup, ça fonctionne.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'Montableau est une variable contenant les noms des composants.
For i = LBound(Montableau) To UBound(Montableau)
    If Me.Controls("CheckBox" & Montableau(i)).Value = True Then
        TableauTemp1(i) = Montableau(i)
        Me.Controls.Remove "CheckBox" & Montableau(i)
    Else
        TableauTemp1(i) = ""
    End If
Next i

Merci beaucoup !