UserForm / Focus

Version imprimable

05/10/2007, 15h50
viscere

UserForm / Focus

Bonjour,

J'ai une application excel sous la forme d'un UserForm qui me génere des classeurs excel en sortie. Je souhaiterais que quand je génere un nouveau classeur et que je le selectionne, mon userform disparaisse. (Une histoire de Focus?) et que quand je selectionne mon classeur contenant le userform il me le réaffiche.

Merci.

Laurent
05/10/2007, 16h48
ouskel'n'or

Non ! Une histoire de Hide -> :f1:
Si tu as un problème avec ton clavier, tu dis, on t'indiquera la voie à suivre ;)

Edit
Bon, pour être tout à fait honnête, c'est un tout petit peu plus compliqué "après", pour le ré-afficher... Là il te faut un moyen. Je suggère le bouton dans une barre d'outils, que tu places à l'ouverture de ton fichier dans une barre d'outils d'Excel, et que tu supprimes à la fermeture de ton fichier.
Ensuite, ton userform doit avoir la propriété ShowModal = False, sinon tu ne pourras pas accéder à ta feuille de calculs.
Bref, tu vois et tu nous tiens au courant ;)
05/10/2007, 21h14
fred65200
bonsoir, comme le dit ouskel'n'or, tu "hide" ton userform

Dans le classeur d'origine, tu insères
Code:

1 2 3 4 Sub AfficherUF userform1.show End Sub
et dans le classeur généré, tu codes dans ThisWorkbook
Code:

1 2 3 4 Private Sub Workbook_Activate() Run "ClasseurOrigine.xls" & "!AfficherUF" End Sub
@+
08/10/2007, 09h14
viscere

Bonjour,

Merci pour les infos.

Donc premièrement, mon classeur résultat peut être généré à partir de différents formulaires (4). Donc existe-t-il une variable qui pointe sur le formulaire actif ou ouvert en dernier...

Deuxiemement, comment créer la fonction WorkbookActivate du classeur généré à partir du classeur d'origine???

Merci,

Laurent

Comment génères-tu ce classeur ?

Tiens, un exemple pour écrire du code dans un module (ici ThisWorkbook)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub EcrireDuCodeDansUnModule()
Dim i, nomFich, x As Long
nomFich = ThisWorkbook.Name 'Nom du classeur concerné à adapter
    For i = 1 To Application.VBE.VBProjects.Count
        'vérifie le nom du classeur
        If InStr(Application.VBE.VBProjects(i).Filename, nomFich) <> 0 Then
            'vérifie le nom du module
            For Each LeModule In Application.VBE.VBProjects(i).VBComponents
                If LeModule.Name = "Module1" Then
                    x = LeModule.CodeModule.CountOfLines
                    LeModule.CodeModule.InsertLines x + 1, "Private Sub LaMacroInseree()"
                    LeModule.CodeModule.InsertLines x + 2, "    Msgbox ""Bienvenue sur le forum !"""
                    LeModule.CodeModule.InsertLines x + 3, "End sub"
                End If
            Next
        End If
    Next i
End Sub

Le mieux serait de faire un tableau des ligne à insérer puis d'insérer les éléments du tableau dans une boucle for i = x + 1 to NbLignes.
Cela éviterait d'avoir à incrémenter manuellement le N° de ligne ;)
A+

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub EcrireDuCodeDansUnModule(FinalWorkbook As Workbook)
Dim i, nomFich, x As Long
nomFich = FinalWorkbook.Name 'Nom du classeur concerné à adapter
    For i = 1 To Application.VBE.VBProjects.Count
        'vérifie le nom du classeur
        If InStr(Application.VBE.VBProjects(i).Filename, nomFich) <> 0 Then
            'vérifie le nom du module
            For Each LeModule In Application.VBE.VBProjects(i).VBComponents
                If LeModule.Name = "ThisWorkBook" Then
                    x = LeModule.CodeModule.CountOfLines
                    LeModule.CodeModule.InsertLines x + 1, "Private Sub Workbook_Activate()"
                    LeModule.CodeModule.InsertLines x + 2, "    Run /"ClasseurOrigine.xls/" & /"!AfficherUF/""
                    LeModule.CodeModule.InsertLines x + 3, "End sub"
                End If
            Next
        End If
    Next i
End Sub

Ca marche pour thisWorkbook?

08/10/2007, 10h24
viscere

j'ai une erreur du style : Chemin d'accés introuvable sur la ligne :

Code:

Application.VBE.VBProjects(i).Filename = nomFich

Je pense que c'est du au fait que le classeur est crée mais pas encore enregistré ce que je ne veux pas faire...

Bon j'ai fait ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub EcrireDuCodeDansUnModule()
Dim i, nomFich, x As Long, NomWorkbook
nomFich = ActiveWorkbook.Name 'Nom du classeur résultat
NomWorkbook = ThisWorkbook.Name    'Nom du classeur origine
 
 
 
            For Each LeModule In ActiveWorkbook.VBProject.VBComponents
            MsgBox LeModule.Name
                If LeModule.Name = "ThisWorkbook" Then
                    x = LeModule.CodeModule.CountOfLines
                    LeModule.CodeModule.InsertLines x + 1, "Private Sub Workbook_Activate()"
                    LeModule.CodeModule.InsertLines x + 2, "    Run """ & NomWorkbook & """ & ""!CacherUserForm"""
                    LeModule.CodeModule.InsertLines x + 3, "End sub"
                End If
            Next
 
 
End Sub

Ca me cache bien mes userform. Par contre je n'arrive pas à les réafficher quand on reclick sur le classeur d'origine.

J'ai essayé ca :

Code:

1
2
3
4
5
'Affiche les formulaires
Sub AfficherUserForm()
    Acceuil.Show
    ListeQualiteForm.Show
End Sub

Au début ca a geulé parceque j'avais pas mis les formulaire en mode modale à False.

Maintenant ca geule plus mais il ne rentre meme pas dans mon Workbook_Activate...
MAintenant mon formulaire Acceuil est accessible alors que je ne le souhaite pas.

08/10/2007, 11h18
viscere

Bon apparement ca marche je sais pas ce que j'ai changé...

PAr contre je voudrais empecher l'acces à Acceuil quand un autre formulaire est activé...
08/10/2007, 13h13
ouskel'n'or

Qu'est qui affiche Accueil ? Si c'est un bouton, masque le tant que tu ne veux pas l'afficher... Précise les conditions.
A+
08/10/2007, 14h18
viscere

En fait quand je démarre mon programme ca lance le formulaire acceuil. Celui-ci propose 4 boutons qui chacun lance un autre formulaire qui génere des feuilles en fonctions des parametres renseignés dans ce dernier. Si un de ces formulaires est lancé il ne faut pas qu on puisse re appuyer sur un bouton de Acceuil ou le fermer.
08/10/2007, 14h43
viscere

J'ai aussi toujours mon problème d'identification du formulaire. J'ai 4 formulaires différents ou je fais FormulaireX.Hide. Vu que mon classeur résultat appelle la fonction CacherFormulaire de mon classeur d'origine, pour identifier mon formulaire d'origine j'ai mis un code dans une variable globale (0, 1, ...3) Mais lorsque je lance la fonction à partir du classeur résultat, la variable globale semble perdre sa valeur et reste dans tous les cas à 0....
08/10/2007, 15h06
ouskel'n'or

Citation:

Envoyé par viscere

Si un de ces formulaires est lancé il ne faut pas qu on puisse re appuyer sur un bouton de Acceuil ou le fermer.

Si c'est un bouton qui active le formulaire, masque le bouton en fin de clic, et tu l'affiches de nouveau quand tu fermes le formulaire appelé.

Citation:

Envoyé par viscere

j'ai mis un code dans une variable globale (0, 1, ...3) Mais lorsque je lance la fonction à partir du classeur résultat, la variable globale semble perdre sa valeur et reste dans tous les cas à 0....

Où as-tu placé cette variable ? Elle doit se trouver en tête du module standard qui ouvre l'userform pour être reconnue partout dans le code.
Attention de ne pas l'utiliser à autre chose ailleurs. Méfie-toi des homonymes que tu pourrais placer dans les autres procédures.
@+
08/10/2007, 15h28
viscere

Bon c'est un sacré mic mac mais j'ai reussi. J'ai des variables globale un peu de partout mais ca passe. Pour mon problème de variable à 0 c'est que je n'avais pas précisé le conteneur de cette derniere (ThisWorkbook.Mavariable) Merci beaucoup Ousk!