Discussion :

[Denis la Malice]

Bonjour,
je voudrais charger, éditer et lancer un formulaire. Si son nom est fixe, c'est facile. Si son nom est dans une variable, ça se complique. Le code suivant ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub LanceFormulaire(NomFormulaire As String)
    Dim Formulaire As UserForm
 
    Set Formulaire = VBA.UserForms.Add(NomFormulaire)
    Formulaire.Caption = NomFormulaire
    Formulaire.Show ' <-- ICI il y a une erreur
 
End Sub
Sub Essai()
    LanceFormulaire "UserForm1"
End Sub

L'erreur est que mon objet UserForm n'a pas de méthode show.

[patricktoulon]

bonjour

Le probleme viens peut etre que tu redim l'object

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sub LanceFormulaire(NomFormulaire As String)'ici l'object est dimentionné deja 
    Dim Formulaire As UserForm' donc ceci n'est pas necessaire

on fairait plutot comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
sub lance_un_userform()
declanche userform1
end sub 
 
function declanche(usf as object)
usf.show 0
end function

au plaisir

[Denis la Malice]

Bonjour,
le problème ne vient pas du redimensionnement. La variable NomFormulaire est bien une chaine de caractères (String) qui contient le nom du formulaire.
Mais ta réponse m'a mis sur le voie et j'ai enfin trouvé la solution.
En fait, Microsoft a oublié de déclarer les méthodes Show et Hide dans la classe "UserForm". Et pour la compatibilité ascendante, il a maintenu son erreur dans les versions successives d'Excel.
Il suffit d'utiliser la classe beaucoup plus générique mais complète "Object".

Le code devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub LanceFormulaire(NomFormulaire As String)
    Dim Formulaire As Object ' au lieu de UserForm
 
    Set Formulaire = VBA.UserForms.Add(NomFormulaire)
    Formulaire.Caption = NomFormulaire
    Formulaire.Show ' <-- ICI ça marche !!!
 
End Sub
Sub Essai()
    LanceFormulaire "UserForm1"
End Sub

Merci, je passe le sujet à Résolu

[patricktoulon]

bonjour
Je ne vois pas l'interet de dimentionner un string en object par le "set"
surtout si on peut injecter la variable object directement dans la fonction
mais c'est toi qui vois lol!!!
Au plaisir

[Denis la Malice]

Bonjour,
ce n'est pas le "String" qui est redimensionné par le Set, c'est "l'Object".

Dans la réalité, la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Formulaire.Caption = NomFormulaire

ressemble plutôt à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CodeRetour = ConfigureFormulaire (Formulaire, Contexte)

J'ai donc besoin d'un "pointeur" sur mon formulaire pour le passer en paramètre à une fonction.

Cordialement.