bonjour, j'ai un petit problème d'affichage d'userform ...
voici mon code : j'ai crée un userform (en codant sous vba) et je galère pour tout simplement l'afficher
ma forme est pleine de boutons eux mêmes créés en code ...
'pour afficher l'userform créee ==> c'est là que ca plante
Sub ShowForm_bouton()
Dim UserForm1 As Object
'Create UserForm
Call creation_bouton
VBA.UserForms.Add (NewForm.Name)
NewForm = UserForm1
UserForm1.Show
'va créer l'objet avec différents boutons dedans
Sub creation_bouton()
ThisWorkbook.VBProject.VBComponents.Remove vbcomponent:=NewForm
Call lecture
'Dim NewForm As Object
Dim object As Object
Dim NewButton As Object
Dim iRow As Integer, iCol As Integer, j As Integer
'dautres variables on été déclarées mais ici je les ai supprimées car ca sert à rien pour répondre a mon problème ;) par exemple v_i que je récup d'une autre procédure antèrieure
v_i = 0
'Add a new Forms module
Set NewForm = ThisWorkbook.VBProject.VBComponents.Add(3)
Dim TopPos As Integer, LeftPos As Integer
'Set the Form size
NewForm.Properties("Width") = 800
NewForm.Properties("Height") = 600
TopPos = 6
TopPos = 6
Set NewButton = NewForm.Designer.Controls.Add("Forms.CommandButton.1")
With NewButton
'.Width = 10
.Width = 30
.Height = 30
.Left = LeftPos
.Top = TopPos
.BackColor = ActiveWorkbook.Colors(v_i)
.ForeColor = ActiveWorkbook.Colors(v_i + 1)
.ControlTipText = v_param(iCol)
.Caption = v_param(iCol)
End With
End If
Next j
LeftPos = LeftPos + 35
Next iCol
End Sub
en gros je cherche pourquoi ca plante quand je lance Showform_buton
ca m'affiche une belle erreur '438' ou "Propriété ou méthode non gérée par cet objet" en parlant de la ligne "NewForm = UserForm1"
voilà si quelqu'un a une idée, ne serait-ce qu'une supposition , elle est plus que bienvenue !!!
(pour info, j'ai bien une user form (Userform1) qui est crée apres la procédure creation_bouton mais apres ça plante avec l'erreur dont je vous ai parlé ! et encore plus fort, si je selectionne l'userForm1 en double-cliquant dessus sous VBA et que je mets "executer" aucun soucis : l'userform s'ouvre bien sous excel et je peux bien cliquer sur les différents boutons qui composent mon userform mais c'est surement normal apres tout ....)
Merci encore de vous interesser à mon modeste projet vba.