Code pour ouvrir un UserForm

Bonjour, le forum

J'ai réalisé des dizaines d'UserForm, sans problèmes, mais maintenant, je n'arrive pas à ouvrir mon nouveau UF.

Message d'erreur 424, Objet requis,

Mon code :

Sub Formulaire ()

UserForm1.Show

End Sub

quelqu'un à une solution ?

Merci d'avance.

Pierrot

Bonsoir Pierrot,

C'est parce que l'userform1 que tu essaies d'ouvrir n'existe pas.

Il faut donner le nom exact qui est : UserForm_1

Il faut donc écrire :

Sub Formulaire()
   UserForm_1.Show Modal
End Sub

De plus, dans le code de ton Userform_Initialize, tu as ces lignes de code :

For I = 1 To 80
Me.Controls([surligner=#FF0000]"TextBox3" & I).Visible = True
'Me.Controls("ComboBox3").Visible = True
Next I

Je pense que tu voulais plutôt écrire :

For I = 1 To 80
Me.Controls("TextBox" & I).Visible = True
'Me.Controls("ComboBox3").Visible = True
Next I

Je n'ai pas regardé beaucoup plus en avant mais tu auras encore une erreur étant donné que le TextBox2 n'existe pas...

Bonjour, vba-new

Un tout grand merci, ça marche,

j'ai modifié le code initialize

ce code vient d'un programme que je dois modifier et adapter.

Bonne soirée et encore merci

Pierrot