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.