[VBA] Lancer une form à partir de son nom [Trucs & Astuces]

[truman]

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.

[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

form_name

[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

[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'.

[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.

[bbil]

Envoyé par truman

Code :

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'.

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

[truman]

Envoyé par bbil

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

Désolé

[truman]

Envoyé par Catbull

Code :

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.

[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.

[truman]

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.

[truman]

Grmbl... Ca commence à me chauffer cette affaire.

[Catbull]

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.

[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.

[Catbull]

Code :

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

[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

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

Sinon, un Select Case.

[bbil]

et voila :

Code :

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

bon le temps que je cherche CatBull à répondu

[truman]

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

[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 ...

[truman]

Envoyé par bhaal76

Code :

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 ?

[bbil]

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 !!