[VBA] Lancer une form à partir de son nom

Version imprimable

Voir 40 message(s) de cette discussion en une page

03/05/2006, 14h45
truman

[VBA] Lancer une form à partir de son nom
Bonjour

Bon, ça doit pas être bien sorcier mais pourtant j'y arrive pas. Pas de blabla, un code d'exemple :
Code:

1 2 3 4 5 6 7 'Nom de la form Dim form_name as string form_name=frm_ma_form 'Et là ça marche pas (pas étonnant d'ailleurs) form_name.Show
Voila, simplement je voudrai lancer une form à partir de son nom (dans mon programme, j'ai un tableau d'attributs et chaque attribut correspond à une form dont le nom est stocké sous forme de string (tableau de structures) si vous voulez tout savoir :)) et je ne sais pas comment procéder.

Merci de votre aide.
03/05/2006, 14h49
Lucas42

essaye de mettre un attribut spécifique à l'ouverture d'une form , essaye avec plusieurs nom , execute , et je te parriré que ta form selectionné s'ouvre , mais seulememt à l'EXECUTION du programme , il faut que tu fasse une mise à jour PERMANENTE de ta variable

Citation:

form_name
03/05/2006, 14h50
méphistopheles
il faut que tu fasse un parcourt des forms de tonprojet en regardant si le nom est bien form_name.

ça doit ressembler à :
Code:

1 2 3 4 dim formquejecherche as form for each formquejecherche in monprojet if formquejecherche=form_name then formquejecherche.show next
03/05/2006, 15h02
truman
Code:

1 2 3 4 5 6 Dim frm as UserForm For Each frm In VBA.UserForms If frm = Tattrib(SearchAtt("Canal")).form Then frm.Show End If Next
J'ai déjà essayé mais impossible de comparer un objet form et un string :? Le problème c'est que je trouve pas de propriété 'Name'. :aie:
03/05/2006, 15h02
Catbull
Code:

1 2 3 Forms("Ma forme").Show
A tester. Je ne sais plus si la collection Forms contient les forms non chargées.

Edité : Remplacement de la collection Controls par Forms.
03/05/2006, 15h03
SfJ5Rpw8
Citation:
Envoyé par truman

Code:

1 2 3 4 5 6 Dim frm as UserForm For Each frm In VBA.UserForms If frm = Tattrib(SearchAtt("Canal")).form Then frm.Show End If Next

J'ai déjà essayé mais impossible de comparer un objet form et un string :? Le problème c'est que je trouve pas de propriété 'Name'. :aie:
déjà revoir ton titre ... ? VBA ou VB6 ?
03/05/2006, 15h05
truman

Citation:

Envoyé par bbil

déjà revoir ton titre ... ? VBA ou VB6 ?

Désolé :aie:
03/05/2006, 15h14
truman
Citation:
Envoyé par Catbull

Code:

1 2 3 Forms("Ma forme").Show

A tester. Je ne sais plus si la collection Forms contient les forms non chargées.

Edité : Remplacement de la collection Controls par Forms.
Salut.

Alors Controls il me dit objet invalide. Mais je suis en train d'essayer de le trifouiller parce que ça doit être un truc du genre. Forms c'est pas reconnu :? C'est une procédure VB6 ? Je suis en VBA.
03/05/2006, 15h32
Catbull

En VBA, il faut utiliser la collection UserForms. Mais je viens de tester et cela ne fonctionne pas. Apparament seules les feuilles chargées sont présentes dans la collection. Je n'ai pas l'aide VBA sur mon poste, je ne peux pas vérifier cette hypothèse.

Code:

UserForms(nom).Show

Ne marche pas non plus.

J'ai trouvé ce morceau de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub REMPLISSAGE(ByVal argmt As Integer, ByVal numero As Integer) Dim userformname As String 'AFFICHAGE DES DONNEES userformname = "client_p" & numero 'AJOUT DES AUTRES DONNEES With VBA.UserForms.Add(userformname) .TextBox1.Text = Cells(argmt, 3) .TextBox2.Text = Cells(argmt, 4) .TextBox6.Text = Cells(argmt, 5) .TextBox3.Text = Cells(argmt, 6) .TextBox4.Text = Cells(argmt, 10) .TextBox5.Text = Cells(argmt, 11) End With End Sub
Ca ajoute une nouvelle feuille du nom spécifié. Le problème c'est que je n'arrive pas à trouver une méthode pour trouver une feuille déjà existante sachant que la propriété Name n'existe pas.

03/05/2006, 16h51
truman

Grmbl... Ca commence à me chauffer cette affaire. :roll: :arf:

Pour savoir si un UserForm existe, tu peux passer par l'objet VBE :
Code:

1 2 3 4 5 6 7 8 9 Public Function UFExiste(Name As String) As Boolean 'Cocher la référence ' Microsoft Visual Basic For Application Extensibility On Error Resume Next UFExiste = (Application.VBE.ActiveVBProject.VBComponents(Name).Type = vbext_ct_MSForm) End Function
La fonction UFExiste prend en paramètre une chaine, si cette chaine coorrespond au nom d'une feuille alors elle renvoie True, False dans le cas contraire.

03/05/2006, 17h34
truman

Ca peut servir mais en réalité, ça ne résoud pas mon problème. Si j'ai bien compris, la fonction que tu me donnes me permet de savoir si une form d'un nom donné existe ou non.
Normalement, dans mon cas précis, tous les noms de forms stockés dans mon tableau sont valides, je suis donc sûr de leur existence dans mon programme. Le soucis c'est que même dans l'objet VBE je ne trouve aucune méthode pour charger une form à l'aide de son nom sous forme de string. :(

Code:

1
2
On Error Resume Next
UserForms.Add("Nom de la form").Show

03/05/2006, 17h46
AlainTech

Je viens de tourner le problème un peu dans tous les sens.
J'ai, entre autres, suivi la même piste que Catbull (VBE) en essayant d'instancier le form trouvé dans VBE pour le charger... mais nada.

Il me semble qu'on tombe là sur une faiblesse de VBA :cry:

Il ne restera plus qu'à créer tous les forms en dynamique pour pouvoir y accéder par une instance.

Sinon, un Select Case. :roll:
03/05/2006, 17h49
SfJ5Rpw8

et voila :

Code:

VBA.UserForms.Add("UserForm1").Show

;)

:aie: bon le temps que je cherche CatBull à répondu :roll:
03/05/2006, 17h50
truman

Les créer dynamiquement 8O 8O
Impossible... :aie:
Je vais devoir revoir toute la structure de base du programme ! Achevez-moi. Pitié :kill:

Code:

1
2
3
4
5
6
7
8
Public Sub masub()
    Load UserForm1
 
    If (VBA.UserForms.Count >= 1) Then
        MsgBox VBA.UserForms(0).Name, vbkonly
        Unload VBA.UserForms(0)
    End If
End Sub

je charge un userform1 juste pour le test ...

Citation:
Envoyé par bhaal76
Code:

1 2 3 4 5 6 7 8 Public Sub masub() Load UserForm1 If (VBA.UserForms.Count >= 1) Then MsgBox VBA.UserForms(0).Name, vbkonly Unload VBA.UserForms(0) End If End Sub
je charge un userform1 juste pour le test ...
Ca ça affiche le nom de ta form mais pour shower à partir d'un nom en string ? :?

03/05/2006, 18h02
SfJ5Rpw8

Citation:

Envoyé par truman

Ca ça affiche le nom de ta form mais pour shower à partir d'un nom en string ? :?

voir la méthode à CatBull un peu plus haut !!

Voir 40 message(s) de cette discussion en une page