[XL-2007] remplacer nom formulaire par une variable [Résolu]

[franc83]

Bonjour

Je cherche à ouvrir un formulaire avec une variable.
J'ai ceci

Code :

Mon formulaire.Show

et je voudrais remplacer "Mon Formulaire" par ma variable"Formulaire1"j'ai testé par msgbox je récupère bien cette variable juste avant "Mon formulaire.show"
J'ai essayé

Code :

VBA.UserForms.add(Formulaire1).show

mais cela ne fonctionne pas
merci

[Philippe JOCHMANS]

Bonjour

A mon avis un problème de déclaration de variable et d'affectation du nom dans celle-ci.

Un exemple : http://silkyroad.developpez.com/VBA/UserForm/#LIII-A-3

Philippe

[franc83]

Bonjour Philippe

Merci de ta réponse ,avec les idées un peu plus claires ce matin ,effectivement cela fonctionne bien .
Mais voila le problème j'ai

Code :

Formulaire1=Me.name

pour récupérer le nom du formulaire qui est Compte, le formulaire est caché par

Code :

Compte.hide

pour l'afficher si je fais

Code :

Compte.show

il reste chargé ,mais si je fais

Code :

VBA.UserForms.add(Formulaire1).show

il s'affiche mais il est vide
merci

[bbil]

avec VBA.UserForms.add.. tu charge et tu ouvre un nouveau formulaire... et donc les saisies dans le précédent ne sont pas reportées...


2 questions :
- pourquoi vouloir trouver le nom de ton formulaire dans une variable ?
- combien de formulaires identique désire tu ouvrir ?

[franc83]

Bonjour

En fait il n'y à qu'un seul formulaire d'ouvert à la fois mais se n'est jamais le même.
Je m'explique dans chaque formulaire il y a bouton avec une macro qui active la même feuille ,je précise que cette feuille ce trouve sur une clef USB, et qui cache le formulaire.Sur cette feuille il y a un bouton avec une macro qui devrait ouvrir le formulaire précédemment caché.
Si je précise le nom du formulaire caché comme cela il s'ouvre chargé

Code :

Compte.show

si je l'ouvre avec sa variable il s'ouvre mais vide

Code :

VBA.UserForms.add(Formulaire1).show

[bbil]

si tu n'as qu'un seul formulaire de chargé tu n'as pas besoin de son nom :

Code :

1
2
3
If VBA.UserForms.Count > 0 Then
  VBA.UserForms(0).Show
End If

[franc83]

Bonjour bbil

Merci bbil j'avais bien essayé UserForms.show mais j'avais oublier(0)
cela fonctionne
encore merci bbil