Discussion :

[eliot.raymond]

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

[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 :

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

1
2
Me.Controls.Remove (c(i).Name)
set c(i) = Nothing

[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

[BlueMonkey]

Bonjour,

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

Code :

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

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

[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

[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.

[patricktoulon]

bonjour

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

Code :

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

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

[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.

[BlueMonkey]

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 :

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

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 :

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

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).

[patricktoulon]

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 :

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
 
'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

[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