ajout d'un control

j'oubliais l'essentiel: peut on ajouter ou supprimer un control sur un
userform actif par programmation
merci

"berkowil" <berkowil@free.fr> a écrit dans le message de
news:0A6B7E8B-8AA6-4FB1-8121-9D450216C026@microsoft.com...

Bonjour peut on ajouter ou suprimer un control sur un userform actif
et comment faire
merci

Bonjour

pas lorsqu'il est en mode affichage dans excel ! pour le modifier il
faut aller dans l'éditeur VBA (alt+ clic sur le nom de l'onglet)

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour peut on ajouter ou suprimer un control sur un userform actif
et comment faire
merci

Faudrait faire un bêtisier !!!

"-Dis bonjour Sophie
- bonjour Sophie !"

"-Diplôme ?
-Plome"

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

en direct de l'aide de Microsoft :

Si tout ne fonctionne pas correctement, fais-le savoir à Microsoft
Ils adorent rire du monde !!!

====================================== > Page, objet, MultiPage, contrôle, Add, Clear, Remove, méthodes, exemple

L'exemple suivant utilise les méthodes Add, Clear et Remove pour ajouter
et supprimer un contrôle dans un objet Page d'un contrôle MultiPage, en
mode exécution.

Pour utilisez cet exemple, copiez le code suivant dans la partie
Déclarations d'une feuille et vérifiez que celle-ci contient :

* un contrôle MultiPage nommé MultiPage1,

* trois contrôles CommandButton nommés CommandButton1 à CommandButton3.

Dim MyTextBox As Control

Private Sub CommandButton1_Click()
Set MyTextBox = MultiPage1.Pages(0).Controls.Add("MSForms" _
& ".TextBox.1", "MyTextBox", Visible)
End Sub

Private Sub CommandButton2_Click()
MultiPage1.Pages(0).Controls.Clear
End Sub

Private Sub CommandButton3_Click()
If MultiPage1.Pages(0).Controls.Count > 0 Then
MultiPage1.Pages(0).Controls.Remove "MyTextBox"
End If
End Sub

Private Sub UserForm_Initialize()
CommandButton1.Caption = "Add control"
CommandButton2.Caption = "Clear controls"
CommandButton3.Caption = "Remove control"
End Sub

====================================== >
Bonjour Microsoft, je viens de vous envoyer un autre client.... Heureux ?





"berkowil" <berkowil@free.fr <mailto:berkowil@free.fr>> a écrit dans le
message de news: 0A6B7E8B-8AA6-4FB1-8121-9D450216C026@microsoft.com
<mailto:0A6B7E8B-8AA6-4FB1-8121-9D450216C026@microsoft.com>...
Bonjour
peut on ajouter ou suprimer un control sur un userform actif
et comment faire
merci

Bonjour,

Option Explicit
Dim mytbx As New Collection
Dim myTb As Control
Dim t As Integer

Private Sub CommandButton1_Click()

On Error Resume Next
t = t + 40
Set myTb = Me.Controls.Add("Forms.TextBox.1")
myTb.Left = 20
myTb.top = t
myTb.Height = 20
myTb.Width = 80
mytbx.Add myTb, myTb.Name
On Error GoTo 0
End Sub

Private Sub CommandButton2_Click()
t = t - 40
On Error Resume Next
Me.Controls.Remove mytbx(mytbx.Count).Name
On Error GoTo 0

mytbx.Remove mytbx.Count
End Sub

'lSteph

On 28 août, 10:05, "berkowil" <berko...@free.fr> wrote:

Bonjour
peut on ajouter ou suprimer un control sur un userform actif
et comment faire
merci

merci a tous pour vos exemples

..petite rectif:

Option Explicit
Dim mytbx As New Collection
Dim myTb As Control
Dim t As Integer

Private Sub CommandButton1_Click()

On Error Resume Next
t = t + 25
Set myTb = Me.Controls.Add("Forms.TextBox.1")
myTb.Left = 20
myTb.Top = t
myTb.Height = 20
myTb.Width = 80
mytbx.Add myTb, myTb.Name
On Error GoTo 0
End Sub

Private Sub CommandButton2_Click()
t = t - 25
On Error Resume Next
Me.Controls.Remove mytbx(mytbx.Count).Name
mytbx.Remove mytbx.Count
On Error GoTo 0
End Sub

Private Sub UserForm_Terminate()
Set myTb = Nothing
End Sub

Private Sub UserForm_Initialize()
t = 0
End Sub

Bonjour,

Option Explicit
Dim mytbx As New Collection
Dim myTb As Control
Dim t As Integer

Private Sub CommandButton1_Click()

On Error Resume Next
t = t + 40
Set myTb = Me.Controls.Add("Forms.TextBox.1")
myTb.Left = 20
myTb.top = t
myTb.Height = 20
myTb.Width = 80
mytbx.Add myTb, myTb.Name
On Error GoTo 0
End Sub

Private Sub CommandButton2_Click()
t = t - 40
On Error Resume Next
Me.Controls.Remove mytbx(mytbx.Count).Name
On Error GoTo 0

mytbx.Remove mytbx.Count
End Sub

'lSteph

On 28 août, 10:05, "berkowil" <berko...@free.fr> wrote:

Bonjour
peut on ajouter ou suprimer un control sur un userform actif
et comment faire
merci