Discussion :

[truman]

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]

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 :

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]

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

[SfJ5Rpw8]

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]

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

Désolé

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

[truman]

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]

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 :

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.