Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
berkowil
Le #4760131
j'oubliais l'essentiel: peut on ajouter ou supprimer un control sur un
userform actif par programmation
merci

"berkowil" news:
Bonjour peut on ajouter ou suprimer un control sur un userform actif
et comment faire
merci


Misange
Le #4760111
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


Misange
Le #4759811
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" message de news:
Bonjour
peut on ajouter ou suprimer un control sur un userform actif
et comment faire
merci


lSteph
Le #4759751
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"
Bonjour
peut on ajouter ou suprimer un control sur un userform actif
et comment faire
merci


berkowil
Le #4759001
merci a tous pour vos exemples
LSteph
Le #4681221
..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"
Bonjour
peut on ajouter ou suprimer un control sur un userform actif
et comment faire
merci






Publicité
Poster une réponse
Anonyme