Userform pilotant un autre Userform

Version imprimable

07/03/2008, 09h55
ML0808

Userform pilotant un autre Userform

Bonjour tous,

J'ai recherché et pas trouvé de solution.
J'ai deux classeur ouvert chacun contenant un Userform. Admettons :
Classeur 1 contient Userform1
Classeur 2 contient Userform2

Je voudrais que les données que je mets dans les TextBox de Userform1 soit reportées dans les TextBox de Userform2.
du style :

Code:

Userform2.Textbox1.Value = Userform1.Textbox1.Value

Mais ça ne marche pas (objet requis)... Comment faire?
Merci d'avance,
Marc
07/03/2008, 10h19
fring

Bonjour,

Il ne trouve pas le 2ème UserForm parce qu'il le cherche dans le même classeur si tu ne précise rien

Code:

Workbooks("NomClasseur.xls").Userform2.Textbox1.Value = Userform1.Textbox1.Value
07/03/2008, 10h20
ouskel'n'or

Comment appelles-tu Usf2 et comment décharges-tu Usf1 ?
Pour aller dans usf2, tu dois mettre "Usf1.hide" et non pas "unload Usf1"
Enfin, ta ligne de code doit se trouver dans Usf2
07/03/2008, 10h37
ML0808

Re

Merci de vos réponses

fring : j'avais déjà essayé mais ça marchait pas

ousk : ok, je vois le truc, je vais essayer!

Je une vraiment une tanche avec les Userforms... Voilà mon code dans le Classeur 2 (qui se lance quand je clique sur un bouton de l'Usf1):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Workbook_Open()
 
' Associe le classeur de recherche au nom RECH
Dim RECH As Workbook
Set RECH = ActiveWorkbook
RECH.Sheets("CR").Activate
 
    ' Mémorise le chemin du fichier
    Dim ProjectPath$
    ProjectPath = ActiveWorkbook.Path
 
' Lance le Userform
 
RECH.Sheets("Résultats").Activate
INDEX.Show False
UserForm1.Hide
' Report des données
        INDEX.Mot.Value = UserForm1.MotT.Value
 
    If UserForm1.MotEx.Value = True Then
        INDEX.MotEx.Value = True
    End If
 
    If UserForm1.Casse.Value = True Then
        INDEX.Casse.Value = True
    End If
 
    If UserForm1.Casse2.Value = True Then
        INDEX.Casse2.Value = True
    End If
 
    If UserForm1.BtEx.Value = True Then
        INDEX.BtEx.Value = True
        INDEX.Mot2.Value = UserForm1.Mot2.Value
    End If
 
 
End Sub

à UserForm1.Hide, il me dit "objet requis"
si je mais pas la ligen même erreur à INDEX.Mot.Value = UserForm1.MotT.Value
en gros il reconnait pas mon Usf1 si le l'évoque dans le Classeur2?

PS : INDEX est le nom de mon Usf2

07/03/2008, 11h07
fring

Citation:

Envoyé par ML0808

Merci de vos réponses

fring : j'avais déjà essayé mais ça marchait pas

Oui tu as raison, sorry j'avais balancé le code sans tester, c'est pourtant bien là qu'est l'os...il ne trouve pas l'objet requis puisqu'il est dans un autre classeur
07/03/2008, 11h17
ouskel'n'or

A moins que INDEX.Show ouvre Userform1, si Userform1 n'est pas chargé, et donc tu ne peux pas lire ce qu'il y a dedans. Tu dois d'abord l'ouvrir, le renseigner et, une fois renseigné, le masquer avec Hide, puis, dans Userform2 chargé, alors seulement tu peux lire ce qu'il y a dans Userform1.
Tu dis ce que fait INDEX.Show ?

A+

Edit
Je viens de relire ta question : Tu ne peux pas ainsi lire depuis l'userform d'un classeur ce qu'il y a dans l'userform d'un autre classeur : Tu dois passer par une variable.
Je regarde plus précisément
07/03/2008, 11h33
ouskel'n'or

Les idées qui me viennent (pour lire dans l'usf d'un autre classeur)
J'essaierais en créant une instance du ficher2, celui contenant userform1 (pas INDEX)
Avec Application.run, tu pourras ouvrir userform1.
Comme je n'ai jamais fait ça, j'ignore si une instance d'userform1 arrangerait les choses. Par contre, en passant par une variable déclarée dans le classeur2...
J'en suis là. Après il faut rester...
Bon courage.
Comme la question est intéressante, je regarde de mon côté.
A+
07/03/2008, 11h44
ML0808

lol, je suis complétement largué!

j'ai une idée de solution très moche qui me satisfait pas des masses :

- les donénes sont rentrée dans le Usf1
- on clique sur le bouton Valider
- ca lance une copie des données de l'Usf1 dans une feuille de classeur 1
- ca lance le classeur 2 et l'Usf 2 (INDEX)
- là il faudrait décharger l'Usf1 (je sais pas si le Usf1.Hide marcherait s'il est dans le classeur 2)
- il trouve les données inscrites dans la feuille du classeur 1 (pas évident car je dois déclarer le classeur 1 dans le classeur 2 et que dans mon cas à partir du ProjectPath, il faudrait que je recule d'un dossier, encore qu'avec un Left(ProjectPath, nbCaracDuDossier) ça doit marcher)
- il reprend les données dans les champs de l'Usf2...

Bon d'un ça m'a pas l'air simple cette idée (aussi tordue que moi j'ai l'impression) et de deux c'est particulièrement sale puisque ça me pourrie une feuille de mon classeur 1 pour y mettre des données et ça j'aimerais bien éviter...
Néanmoins ton idée d'instances d'userform a l'air séduisante mais dépasse de loin mes capacités je crains...

Bon je vais pleurer dehors, je reviens plus tard!

A+
07/03/2008, 11h46
fring
pour ma part, je n'ai pas trouvé d'alternative hormis un petit bricolage...

pour le userform1 du classeur 1
Code:

1 2 3 4 Private Sub CommandButton1_Click() Workbooks("Classeur2").Sheets(1).Range("IV1") = Me.TextBox1.Value Unload Me End Sub
et pour le userform2 du classeur 2
Code:

1 2 3 4 Private Sub UserForm_Initialize() Me.TextBox1.Value = Sheets(1).Range("IV1") Sheets(1).Range("IV1").ClearContents End Sub
c'est pas très pro mais pas mieux :(
Ousk va sûrement te sortir un lapin de son chapeau et te trouver LA solution ;)

@+
07/03/2008, 13h05
ouskel'n'or

Citation:

Envoyé par fring

Ousk va sûrement te sortir un lapin de son chapeau et te trouver LA solution ;)

Pas brillant le lapin. Je n'ai pas mieux que toi.
@ML0808
Je te joins deux fichiers "INDEX.xls" & "USERFORM1.xls"
Tu les places dans le même répertoire et tu ouvres INDEX.
Dans un textbox de Userform1, j'ai placé un texte
Pour le retrouver dans TextBox1 de l'userform INDEX, tu fais un clic sur le bouton.
Juste pour le principe ;)

Pièce jointe 26701

Edit
Le problème qui se pose est que si tu crées une instance d'un fichier et que tu t'y places (ici, par l'intermédiaire de l'userform1) la macro qui ouvre ce fichier s'interrompt. Donc, depuis la macro d'INDEX, tu ne peux pas lire ce qu'il y a dans Userform1.
Sans instance, je te laisse essayer.
12/03/2008, 16h57
ML0808

je vous remercie de votre aide!
j'ai préféré passer par un système un peu plus lourd en lignes de codes mais n'employant qu'un seul userform... moins joli mais plus basique ;)