Effacer commandbouttons dans userform

Version imprimable

10/03/2012, 15h46
eliot.raymond

Effacer commandbouttons dans userform

Bonjour a toutes et tous, forum

je souhaiterai effacer par vba des commandbouttons qui se trouve dans

un UserForm1 et aussi dans un Frame1

Mais pas effacer forcément tous les commandbuttons, juste une sélection par

Ex: le N°2,N°8,N°24 etc etc

Les commandbuttons on étés placer par codes vba

Merci a vous et de votre temps

Bon W-end

Ray
10/03/2012, 23h18
BlueMonkey
Bonsoir,

Si les boutons créés dynamiquement avec Set c(i) = Controls.Add("Forms.CommandButton.1")et
stocké dans le tableau c() pour les retirer dynamiquement :
Code:

1 2 Me.Controls.Remove (c(i).Name) set c(i) = Nothing
11/03/2012, 08h19
eliot.raymond

Bonjour a toutes et tous, forum

Bonjour BlueMonkey

Merci pour ta réponse c'est sympa, je suis de loin un virtuose du Vba, et je n'ai

pas trop bien compris ton code, je pensais qu'une petite macro ferait l'affaire.

je te joint le code si tu veux bien, qui dessine les commandButtons.

je te souhaite un agréable Dimanche

Cdlt Raymond

Bonjour,

Si tu connais le nom des boutons à supprimer tu peux t'inspirer de ceci :

Code:

1
2
3
4
5
6
7
     Dim i As Integer
 
    For i = Controls.Count - 1 To 0 Step -1
        If Controls.Item(i).Name = "<le nom d'un bouton à supprimer>" Then
           Controls.Remove (Controls.Item(i).Name)
        End If
    Next i

11/03/2012, 10h11
eliot.raymond

Re salut

Merci pour le code mais petit soucis

il me mets erreur de compilation - variable non définie pour ( controls )

j'ai essayer de mettre un Dim mais non

Merci a plus tard

Raymond
11/03/2012, 10h16
BlueMonkey

Re.

Controls fait partie des Propriétés existantes des UserForm.
Si tu souhaites ajouter le code en dehors de la Userform (ce que je déconseille), il faut précéder Controls du nom de la UserForm.

Si la fonction qui supprime les boutons doit être appelée en dehors de la Controls, le mieux est de mettre une fonction
publique dans cette UserForm.

heu

bonjour

je n'est pas tester mais pour moi ca serait plutot ca

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Dim i As long
 dim ctrl as object
 
 
For each ctrl in me.controls
 
        If ctrl (i).Name = "<le nom d'un bouton à supprimer>" Then
           ctrl (i).remove
        End If
    Next

mais encore une fois je n'est pas tester!
au plaisir

11/03/2012, 12h51
mercatog

Qu'est ce que tu racontes Patrick
Parfois, faudra s'abstenir d'écrire des ambiguïtés qui induiront le demandeur en erreur.
C'est quoi ton i dans le code? c'est quoi ctrl(i) alors que ctrl est déclaré comme objet.

Bonjour,

D'expérience, je prends un soin particulier à éviter l'utilisation des itérateurs sur une liste créé par for each,
dans les cas où je souhaite supprimer des éléments contenus dans cette liste.
A partir du moment où un élément est retirer de cette liste, l'itérateur créé précédemment devient généralement invalide.

Pour tester facilement le code posté en #4, je vous pose de copier/coller le code ci-dessous dans une UserForm contenant 2 boutons ajouté depuis l'éditeur VBE.

Le premier bouton ajoutera 10 boutons dynamiquement, et affichera un numéro comme label.
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 10 With Controls.Add("Forms.CommandButton.1") .Caption = i .Top = (i - 1) * 20 End With Next i End Sub
Le second bouton ne supprimera que les CommandButton ayant un nombre comme label.
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub CommandButton2_Click() Dim i As Integer For i = Controls.Count - 1 To 0 Step -1 With Controls.Item(i) If (TypeName(Controls.Item(i)) = "CommandButton") And IsNumeric(.Caption) Then Controls.Remove (.Name) End If End With Next i End Sub
A noter la boucle décroissante, toujours pour conserver la validité des itérations.
Et si on remplace la ligne 7 Controls.Remove (.Name) par .Remove, on déclenche une exception. "Propriété ou Méthode non géré"
:(
Le .Remove peu paraît plus simple / logique, mais ne fonctionne pas (au moins dans ma version XLS2003).

bonjour mercatog

tu a raison j'ai repris son code un peu vite
effectivement le "(i) "n'est plus necessaire puisque je boucle avec "for each" les comprends tous

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
 
'on ajoute 5 boutons
Sub ajoute()
For i = 0 To 5
Set bouton = Me.Controls.Add("Forms.CommandButton.1")
    With bouton
        .Name = "Bouton" & i
        .Caption = i
        .Left = 10
        .Top = (20 * i)
        .Width = 100
        .Height = 18
    End With
Next
End Sub
 
on supprime les 5 boutons
Sub efface()
    Dim i As Long
 Dim ctrl As Object
    For Each ctrl In Me.Controls
        With ctrl
             If (TypeName(ctrl) = "CommandButton") And IsNumeric(.Caption) Then
                Controls.Remove (ctrl.Name)
             End If
        End With
    Next
End Sub

au plaisir

12/03/2012, 07h48
eliot.raymond

Bonjour a tous

Merci de votre aide avec tous les codes j'ai réussi a faire ce que je souhaitai

j'ai bricoler mais ça a l'air d'être bon,on verra bien.

Encore pour l'aide que vous m'avez apporter

Bonne semaine a tous

Cdlt Raymond