Ouverture sur userform

**alderic76** · 04/04/2017, 11h07

Bonjour à tous,

j'ai créé un userform avec un bouton quitter excel et un autre pour quitter l'userform et revenir vers excel et donc l'éditeur VBA

je souhaite qu'à l'ouverture d'Excel se passe les choses suivantes de façon automatique :
-lancement de l'userform
-possibilité de quitter l'application
-possibilité de revenir vers l'éditeur de vba
-que ma feuille excel soit "invisible"
-pouvoir ouvrir et agir sur un nouveau classeur excel
-pouvoir voir et utiliser un excel ouvert avant le lancement de l'userform
-que lorsque je clic sur le bouton quitter, ca ferme l'userform mais pas les autres fichiers excel

donc, pour l'instant, j'ai essayé plusieurs solution, je n'arrive pas à remplir la totalité de mes critères (notamment sur la possibilité de voir et utiliser d'autres fichiers excel)et je pense que je m'enterre sur une voie sans issue

merci à tous pour le coup de main

**Menhir** · 04/04/2017, 11h20

A mon avis, ce que tu essaye de faire est dangereux.

Tu devais plutôt mettre ça dans un fichier XLAM plutôt que de le lancer à l'ouverture de l'applicatif.
L'avantage d'un XLAM, c'est qu'il ne contient pas de feuille de calcul, ce qui rempli déjà l'un de tes critère.
Tu pourrais faire un raccourci sur ton bureau vers ce fichier, ce qui te donnerait le lancement de ton UserForm au démarrage, tout en gardant un Excel "propre" pouvant être lancé naturellement.

Mais, à ta place, je ne ferais pas un UserForm. Je mettrais des icône dans la barre d'outils à accès rapide.
Vu que toutes les fonctions que tu souhaites sont disponibles en standard dans Excel sous forme d'icones.
Au lieu de te compliquer la vie avec un UserForm, agrémenter la barre d'outils à accès rapide ne prendrait que quelques minutes.

**riaolle** · 04/04/2017, 11h34

Bonjour et bienvenue sur le forum

Tout d'abord, un tuto sur les userform qui répondra certainement à beaucoup de tes questions: http://silkyroad.developpez.com/VBA/UserForm/#LI

-lancement de l'userform

Intéresse-toi aux macros évènementielles et notamment à Workbook_Open.

-possibilité de quitter l'application

Peux-tu être plus précis sur ce que tu veux? Normalement, quand tu créés un Userform, en haut à droite, il y a toujours un bouton rouge avec une croix qui permet de sortir du Userform. Si "quitter l'application" signifie plus que cela, tu peux ajouter tout ce que tu veux en plus dans la méthode UserForm_QueryClose (cf. tuto).

-possibilité de revenir vers l'éditeur de vba

En manuel on utilise le raccourci Alt-F11 pour aller sur l'éditeur VBA. La méthode Sendkeys permet d'utiliser ces raccourcis en VBA. Essaie donc avec

Code :

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

SendKeys("%{F11}")

-que ma feuille excel soit "invisible"

Est-ce que tu pourrais donner plus de précisions sur ce que tu entends par "invisible"? Est-ce que tu veux qu'une certaine feuille ne soit pas vue à l'ouverture du fichier? A ce moment-là, tu peux, par exemple, créer une feuille vierge que tu affichera automatiquement au lancement du fichier --> ici aussi avec l'évènement Workbook_Open.

-pouvoir ouvrir et agir sur un nouveau classeur excel
-pouvoir voir et utiliser un excel ouvert avant le lancement de l'userform

Peux-tu être plus précis?

-que lorsque je clic sur le bouton quitter, ca ferme l'userform mais pas les autres fichiers excel

Quel bouton quitter? Cf. réponse précédente sur le bouton quitter.

Il serait bien que tu nous montres ce que tu as déjà et où conrêtement tu bloques, on pourra mieux t'aider. J'espère que ces premiers éléments de réponses t'aideront.

**alderic76** · 04/04/2017, 11h36

xlam ..... euhhhh

Avant de me pencher sur cette possibilité (que je ne domine pas du tout), je précise l'utilisation de ce fichier :
-j 'ai une base de données que je dois être le seul à pouvoir voir et modifier
-l'userform est quand à lui utilisé par différents utilisateurs en prenant en compte que certains utilise encore le minitel lol
-que je dois impérativement pouvoir utiliser d'autres fichiers excel

merci

**riaolle** · 04/04/2017, 11h43

Je ne sais pas quelles sont toutes les "fonctionnalités" dont tu as besoin dans ton userform, mais à ta place je procéderai autrement:
Utilise une feuille de ton classeur en tant que formulaire. Tu peux déjà faire beaucoup de chose sur une feuille ! Et tu n'auras pas les pbs d'ouverture de classeurs etc..., car tu pourras utiliser les fonctionnalités basiques d'Excel.
Que veux-tu mettre concrêtement dans ton Userform?
En ce qui concerne la BDD, il te suffit de protéger la feuille qui la contient (avec un mot de passe éventuellement) pour que les autres personnes n'y aient pas accès : pas besoin de VBA !

**Menhir** · 04/04/2017, 11h46

Envoyé par alderic76

xlam ..... euhhhh
Avant de me pencher sur cette possibilité (que je ne domine pas du tout),

Il n'y a rien à "dominer".
Fichier > Enregistrer Sous... > Parcourir > Type = Macro complémentaire Excel (*.xlam).

C'est un fichier Excel qui ne contient que des macro, pas de feuille de calcul.
C'est, en quelque sorte, l'opposé du xlsx.

-j 'ai une base de données que je dois être le seul à pouvoir voir et modifier

Il suffit de la protéger en écriture :
Ruban Révision > Icone Protéger la feuille
ou
Ruban Révision > Icone Protéger le classeur

Protéger le classeur est plus global mais protéger la feuille permet plus de possibilités.

Brider Excel entièrement en limitant son usage aux commande d'un UserForm, juste pour protéger un fichier, ça me semble un peu excessif comme démarche.

**alderic76** · 04/04/2017, 12h39

merci pour vos réponses,

En fait , je ne vois vraiment pas ou est le soucis dans mon intention

pour l instant, mon fichier fonctionne parfaitement et réponds quasi totalement à ma recherche
la seule chose, c est qu'en rendant invisible l'Excel contenant l'userform, les autress excel se trouvent rendus invisibles aussi

**riaolle** · 04/04/2017, 13h13

Peux-tu nous donner le code que tu utilises, stp?

**Menhir** · 04/04/2017, 13h57

Envoyé par alderic76

la seule chose, c est qu'en rendant invisible l'Excel contenant l'userform, les autress excel se trouvent rendus invisibles aussi

C'est bien pour ça que je te conseille de faire un fichier XLAM qui n'a pas de feuille de calcul. Il devient donc inutile de le rendre invisible, ce qui règle ton problème.

**alderic76** · 04/04/2017, 14h04

oui , bien sur , le voici :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
Private Sub CommandButton1_Click()
'Valeur à rechercher
    Dim rcode
    Dim resultat
    Dim feuil As Worksheet
    Dim increment, nbcode As Integer
 
'recuperation du code
    rcode = TextBox1.Value
 
'recherche
    Set feuil = ActiveSheet
 
    nbcode = Application.WorksheetFunction.CountA(feuil.Range("$A:$A"))
    increment = 2
 
'recupération des noms de code
    Do
        valeur = feuil.Cells(increment, 1)
        If valeur = rcode Then
            resultat = feuil.Cells(increment, 3).Value
            resultat1 = feuil.Cells(increment, 5).Value
            resultat2 = feuil.Cells(increment, 6).Value
            resultat3 = feuil.Cells(increment, 7).Value
            resultat4 = feuil.Cells(increment, 8).Value
            resultat5 = feuil.Cells(increment, 2).Value
            resultat6 = feuil.Cells(increment, 4).Value
 
 
 
            'resultat = feuil.Cells(increment, 2).Value.......2étant la 2eme colonne
 
            Exit Do
        Else
            If increment <= nbcode + 1 Then
                increment = increment + 1
            Else
                Exit Do
                End If
            End If
        Loop
 
'ajoute le resultat à la textbox
TextBox2.Value = resultat
TextBox3 = resultat1
TextBox4 = resultat2
TextBox5 = resultat3
TextBox6 = resultat4
 
TextBox16 = resultat5
TextBox17 = resultat6
    If TextBox16 <> "" Then
    TextBox16.BackColor = RGB(255, 0, 0)
    End If
    If TextBox16 = "" Then
    TextBox16.BackColor = RGB(255, 255, 255)
    End If
 
 
End Sub
 
Private Sub CommandButton4_Click()
'Valeur à rechercher
    Dim rconcept
    Dim resultatconcept
    Dim feuil As Worksheet
    Dim increment, nbconcept As Integer
 
'recuperation du code
    rconcept = TextBox7.Value
 
'recherche
    Set feuil = ActiveSheet
 
    nbconcept = Application.WorksheetFunction.CountA(feuil.Range("$I:$I"))
    increment = 2
 
'recupération des noms de code
    Do
        valeur = feuil.Cells(increment, 9)
        If valeur = rconcept Then
            resultatconcept = feuil.Cells(increment, 10).Value
            resultatconcept1 = feuil.Cells(increment, 11).Value
            resultatconcept2 = feuil.Cells(increment, 12).Value
            resultatconcept3 = feuil.Cells(increment, 13).Value
            resultatconcept4 = feuil.Cells(increment, 14).Value
            resultatconcept5 = feuil.Cells(increment, 15).Value
            resultatconcept6 = feuil.Cells(increment, 16).Value
            resultatconcept7 = feuil.Cells(increment, 17).Value
 
 
 
 
            'resultat = feuil.Cells(increment, 2).Value.......2étant la 2eme colonne
 
            Exit Do
        Else
            If increment <= nbconcept + 1 Then
                increment = increment + 1
            Else
                Exit Do
                End If
            End If
        Loop
 
'ajoute le resultat à la textbox
TextBox8.Value = resultatconcept
TextBox9 = resultatconcept1
TextBox10 = resultatconcept2
TextBox11 = resultatconcept3
TextBox12 = resultatconcept4
TextBox13 = resultatconcept5
TextBox14 = resultatconcept6
TextBox15 = resultatconcept7
 
End Sub
 
 
 
Private Sub TextBox16_Change()
 If TextBox16 = "" Then
    TextBox16.BackColor = RGB(255, 255, 255)
    End If
End Sub
 
Private Sub UserForm_Activate()
 Dim A As Integer, wk As Workbook
 For Each wk In Application.Workbooks
     If wk.Windows(1).Visible = True Then
         A = A + 1
     End If
 Next
 If A = 1 Then
     Application.Visible = False
 Else
     ThisWorkbook.Windows(1).Visible = False
 End If
 End Sub
 '----------------------
 Private Sub UserForm_Terminate()
 If Application.Visible = False Then
     Application.Visible = True
 Else
     ThisWorkbook.Windows(1).Visible = True
 End If
 End Sub
Private Sub CommandButton2_Click()
TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = "": TextBox6 = "": TextBox16 = "": TextBox17 = ""
End Sub
 
Private Sub CommandButton3_Click()
TextBox7 = "": TextBox8 = "": TextBox9 = "": TextBox10 = "": TextBox11 = "": TextBox12 = "": TextBox13 = "": TextBox14 = "": TextBox14 = ""
End Sub
 
Private Sub CommandButton5_Click()
Unload Me
ThisWorkbook.Close True
End Sub
 
Private Sub CommandButton6_Click()
Dim strPw As String
 strPw = "123"
  If InputBox("Veuillez rentrer le mot de passe...", "Mot de passe") <> strPw Then
     MsgBox ("Mot de passe incorrect!")
     Exit Sub
  Else
     ActiveSheet.Unprotect
     MsgBox ("Bien joué Bill Gates, 1ère étape franchie avec succés :-)")
  End If
Unload Me
Application.Visible = True
End Sub
 
Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
End Sub
 
Private Sub TextBox7_Change()
TextBox7.Value = UCase(TextBox7.Value)
End Sub
'desactiver la croix de fermeture de l'userform
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
If CloseMode = vbFormControlMenu Then
MsgBox "Vous ne pouvez pas utiliser ce bouton de fermeture." & Chr(10) _
& "Pour fermer cette boîte de dialogue, veuillez utiliser le bouton Quitter"
Cancel = True
End If
 
End Sub

si besoin, je peux l'épurer pour ne laisser que l'essentiel

**riaolle** · 04/04/2017, 14h50

Tout d'abord, je te conseille de lire ceci : http://silkyroad.developpez.com/VBA/UserForm/#LIII-A

Ensuite, ici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Activate()
     Dim A As Integer, wk As Workbook
     For Each wk In Application.Workbooks
         If wk.Windows(1).Visible = True Then
             A = A + 1
         End If
     Next
     If A = 1 Then
         Application.Visible = False
     Else
         ThisWorkbook.Windows(1).Visible = False
     End If
 End Sub

je ne comprends pas bien ce que tu veux faire.
Ce que tu peux faire, c'est protéger la feuille qui ne doit pas être visible afin que seulement toi puisses y avoir accès. Tu peux créer une autre feuille vierge en "arrière plan" de ton userform.
D'autre part : es-tu sûr que tu n'as pas confondu UserForm_Activate et UserForm_Intialize ?

**alderic76** · 04/04/2017, 15h53

pffff dur a expliquer lol , je recapitule :

-un fichier excel avec une base de données
-un userform qui utilise cette base de données

admettons :
-divers fichier excel ouverts
-ouverture du fichier avec l'userform
==> affichage direct de l'userform
==>feuille excel rendue invisible (celle du fichier contenant l'userform)
==> les autres excel reste affichés et utilisables..

donc, ca , c est ce que je souhaite

mon code rempli quasiment ma demande sauf que 2 cas se présentent :
1er cas, aucun fichier excel n'est ouvert
1-ouverture du fichier userform (fonctionnement correct)
2-ouverture d un autre excel impossible

2eme cas, ouverture d'un excel avant l userform :
1-l'userform s'affiche mais ne fonctionne plus
2-les autres fichiers excel sont bien visibles mais pas accessibles

Pas facile à explique, veux tu que je te fournisse mon fichier ?

dans tout les cas, la fermeture de l'userform via un bouton "quitter", ne ferme pas l'Excel grrrrrr

**riaolle** · 04/04/2017, 15h58

1er cas, aucun fichier excel n'est ouvert
1-ouverture du fichier userform (fonctionnement correct)
2-ouverture d un autre excel impossible

2eme cas, ouverture d'un excel avant l userform :
1-l'userform s'affiche mais ne fonctionne plus
2-les autres fichiers excel sont bien visibles mais pas accessibles

La réponse se trouve ici : http://silkyroad.developpez.com/VBA/UserForm/#LIII-A-2

dans tout les cas, la fermeture de l'userform via un bouton "quitter", ne ferme pas l'Excel grrrrrr

Essaie de regarder du côté de :

Code :

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

Workbooks("Toto.xls").Close

**Menhir** · 04/04/2017, 17h22

Envoyé par alderic76

dans tout les cas, la fermeture de l'userform via un bouton "quitter", ne ferme pas l'Excel grrrrrr

Voir ça : https://msdn.microsoft.com/fr-fr/lib.../ff839269.aspx
Mais je te déconseille très fortement de l'utiliser.

Invité · 04/04/2017, 18h46

Bonsoir,
Déjà wb.close arrête la macro ce qui n'est pas dommageable si il y a Plusieurs classeurs d'ouvert.

En revanche si ton classeur est seule, il se ferme et laisse une fenêtre excel vide il faut vérifier le nombre de classeur.

Code :

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

1
2
3
4
5
 if workbooks.count=1 then
Application.quit
Else
Thisworkbook.close
End if

Ouverture sur userform

Macros et VBA Excel

Discussions similaires

Partager

Partager