Bonjour,
Dans mon VBProject, je crée un UserForm de la façon suivante :
Dim Form as Object
Set Form= ThisWorkbook.VBProlect.VBComponents.Add(vbext_ct_MSForm)
Ls système ajoute bien un UserForm. Là où le coince, c'est que n'arrive pas
à le renommer. Il faut, d'une part, que je récupère le nom de ce nouveau
UserForm qui peut avoir n'impote quel N° (Comment fait-on pour récupérer le
nom du dernier UserForm créé ?), puis que je le renomme ensuite; et là je n'y
arrive pas non plus (même si je connais son nom).
Votre aide m'est précieuse
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
docm
Bonjour.Tiré de "Comment faire pour manipuler par programme un objet UserForm"http://support.microsoft.com/default.aspx?scid=kb%3Bfr%3B185774Sub Add_Form2()
' Declare a variable to hold the UserForm. Dim mynewform As Object
' Create a new UserForm. You can now use this new VBComponent object ' to manipulate the User Form. Set mynewform = _ Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_MSForm)
With mynewform .Properties("Height") = 246 .Properties("Width") = 616 .Name = "HelloWord" .Properties("Caption") = "This is a test" End With
End Subdocm"philip" wrote in message news:
Bonjour, Dans mon VBProject, je crée un UserForm de la façon suivante : Dim Form as Object Set Form= ThisWorkbook.VBProlect.VBComponents.Add(vbext_ct_MSForm)
Ls système ajoute bien un UserForm. Là où le coince, c'est que n'arrive pas
à le renommer. Il faut, d'une part, que je récupère le nom de ce nouveau UserForm qui peut avoir n'impote quel N° (Comment fait-on pour récupérer le
nom du dernier UserForm créé ?), puis que je le renomme ensuite; et là je n'y
arrive pas non plus (même si je connais son nom). Votre aide m'est précieuse Merci
Bonjour.Tiré de "Comment faire pour manipuler par programme un objet
UserForm"http://support.microsoft.com/default.aspx?scid=kb%3Bfr%3B185774Sub
Add_Form2()
' Declare a variable to hold the UserForm.
Dim mynewform As Object
' Create a new UserForm. You can now use this new VBComponent object
' to manipulate the User Form.
Set mynewform = _
Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_MSForm)
With mynewform
.Properties("Height") = 246
.Properties("Width") = 616
.Name = "HelloWord"
.Properties("Caption") = "This is a test"
End With
End Subdocm"philip" <philip@discussions.microsoft.com> wrote in message
news:7464A15D-7170-4FE0-B19B-18733B9090CF@microsoft.com...
Bonjour,
Dans mon VBProject, je crée un UserForm de la façon suivante :
Dim Form as Object
Set Form= ThisWorkbook.VBProlect.VBComponents.Add(vbext_ct_MSForm)
Ls système ajoute bien un UserForm. Là où le coince, c'est que n'arrive
pas
à le renommer. Il faut, d'une part, que je récupère le nom de ce nouveau
UserForm qui peut avoir n'impote quel N° (Comment fait-on pour récupérer
le
nom du dernier UserForm créé ?), puis que je le renomme ensuite; et là je
n'y
arrive pas non plus (même si je connais son nom).
Votre aide m'est précieuse
Merci
Bonjour.Tiré de "Comment faire pour manipuler par programme un objet UserForm"http://support.microsoft.com/default.aspx?scid=kb%3Bfr%3B185774Sub Add_Form2()
' Declare a variable to hold the UserForm. Dim mynewform As Object
' Create a new UserForm. You can now use this new VBComponent object ' to manipulate the User Form. Set mynewform = _ Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_MSForm)
With mynewform .Properties("Height") = 246 .Properties("Width") = 616 .Name = "HelloWord" .Properties("Caption") = "This is a test" End With
End Subdocm"philip" wrote in message news:
Bonjour, Dans mon VBProject, je crée un UserForm de la façon suivante : Dim Form as Object Set Form= ThisWorkbook.VBProlect.VBComponents.Add(vbext_ct_MSForm)
Ls système ajoute bien un UserForm. Là où le coince, c'est que n'arrive pas
à le renommer. Il faut, d'une part, que je récupère le nom de ce nouveau UserForm qui peut avoir n'impote quel N° (Comment fait-on pour récupérer le
nom du dernier UserForm créé ?), puis que je le renomme ensuite; et là je n'y
arrive pas non plus (même si je connais son nom). Votre aide m'est précieuse Merci
IdAL
Bonjour, Pourrais-tu être plus précis, cette commande ne ne crée pas de UserForm (Excel XP) Merci
"philip" wrote:
Bonjour, Dans mon VBProject, je crée un UserForm de la façon suivante : Dim Form as Object Set Form= ThisWorkbook.VBProlect.VBComponents.Add(vbext_ct_MSForm)
Ls système ajoute bien un UserForm. Là où le coince, c'est que n'arrive pas à le renommer. Il faut, d'une part, que je récupère le nom de ce nouveau UserForm qui peut avoir n'impote quel N° (Comment fait-on pour récupérer le nom du dernier UserForm créé ?), puis que je le renomme ensuite; et là je n'y arrive pas non plus (même si je connais son nom). Votre aide m'est précieuse Merci
Bonjour,
Pourrais-tu être plus précis, cette commande ne ne crée pas de UserForm
(Excel XP)
Merci
"philip" wrote:
Bonjour,
Dans mon VBProject, je crée un UserForm de la façon suivante :
Dim Form as Object
Set Form= ThisWorkbook.VBProlect.VBComponents.Add(vbext_ct_MSForm)
Ls système ajoute bien un UserForm. Là où le coince, c'est que n'arrive pas
à le renommer. Il faut, d'une part, que je récupère le nom de ce nouveau
UserForm qui peut avoir n'impote quel N° (Comment fait-on pour récupérer le
nom du dernier UserForm créé ?), puis que je le renomme ensuite; et là je n'y
arrive pas non plus (même si je connais son nom).
Votre aide m'est précieuse
Merci
Bonjour, Pourrais-tu être plus précis, cette commande ne ne crée pas de UserForm (Excel XP) Merci
"philip" wrote:
Bonjour, Dans mon VBProject, je crée un UserForm de la façon suivante : Dim Form as Object Set Form= ThisWorkbook.VBProlect.VBComponents.Add(vbext_ct_MSForm)
Ls système ajoute bien un UserForm. Là où le coince, c'est que n'arrive pas à le renommer. Il faut, d'une part, que je récupère le nom de ce nouveau UserForm qui peut avoir n'impote quel N° (Comment fait-on pour récupérer le nom du dernier UserForm créé ?), puis que je le renomme ensuite; et là je n'y arrive pas non plus (même si je connais son nom). Votre aide m'est précieuse Merci
