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

**truman** · 03/05/2006, 14h45

Bonjour

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

Code :

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

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** · 03/05/2006, 14h49

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** · 03/05/2006, 14h50

il faut que tu fasse un parcourt des forms de tonprojet en regardant si le nom est bien form_name.

ça doit ressembler à :

Code :

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

1
2
3
4
dim formquejecherche as form
for each formquejecherche in monprojet
   if formquejecherche=form_name then formquejecherche.show
next

**truman** · 03/05/2006, 15h02

Code :

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

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** · 03/05/2006, 15h02

Code :

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

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.

**SfJ5Rpw8** · 03/05/2006, 15h03

Envoyé par truman

Code :

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

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

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

**truman** · 03/05/2006, 15h05

Envoyé par bbil

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

Désolé

**truman** · 03/05/2006, 15h14

Envoyé par Catbull

Code :

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

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.

**Catbull** · 03/05/2006, 15h32

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** · 03/05/2006, 15h52

Code :

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

UserForms(nom).Show

Ne marche pas non plus.

J'ai trouvé ce morceau de code :

Code :

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

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** · 03/05/2006, 16h51

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

**Catbull** · 03/05/2006, 17h10

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

Code :

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

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** · 03/05/2006, 17h34

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** · 03/05/2006, 17h43

Code :

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

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

**AlainTech** · 03/05/2006, 17h46

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.

**SfJ5Rpw8** · 03/05/2006, 17h49

et voila :

Code :

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

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

bon le temps que je cherche CatBull à répondu

**truman** · 03/05/2006, 17h50

Les créer dynamiquement

Impossible...

Je vais devoir revoir toute la structure de base du programme ! Achevez-moi. Pitié

**bhaal76** · 03/05/2006, 17h57

Code :

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

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** · 03/05/2006, 18h00

Envoyé par bhaal76

Code :

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

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