Discussion :

[Sa Mariam]

Salut je travaille sur une interface et je souhaite à partir de cette dernière donner la main à l'utilisateur pour visualiser les feuilles excel et cacher l'interface.
Est ce que vous pouvez me proposer une formule pour réaliser cela?

Merci d'avance

[BENNASR]

bonjour Cousine SA MARIEM, la forum
la demande n'est pas claire au moins pour moi
mais si tu as un userform affiché plein écran et tu veux cacher cette userform et aller à une feuille excel tu peux faire avec :

Code :

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

1
2
Unload UserForm1
Sheets("BLABLA").Select

si c'est pas ce que tu cherches merci de revenir avec plus de détail

[Sa Mariam]

Salut, j'ai déjà essayé mais ça n'a pas marché, ça cache le userforme mais ça n'affiche pas les feuilles excel

[BENNASR]

ne pas oublier de modifier le nom de ta feuille
Sheets("BLABLA").Select : à adapter

[Sa Mariam]

Oui bien-sur, c'est ce que j'ai fait
Mais ça n'affiche pas l'excel

[BENNASR]

peux tu joindre une copie allégée de ton fichier

[mercatog]

Bonjour

C'est Me.Hide qu'il faut (le cacher). Unload décharge complétement l'userform (le ferme)

Maintenant, il faudrait voir comment est ouvert l'userform et comment le ré-afficher à partir de la feuille en question.

Se demander aussi s'il y a du code dans l'évènement Activate de l'userform.

[Sa Mariam]

Salutn voila un exemple
En fait je souhaite afficher toutes les feuilles du coup il faut pas activer une seule

[BENNASR]

si vous avez des onglets masqués essayez avec :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Me.Hide
Dim Onglets As Worksheet
For Each Onglets In Worksheets
Onglets.Visible = True
Next Onglets
Sheets("Feuil2").Activate
End Sub

[mercatog]

Si tu fais le test à partir de l'éditeur vba, bien sûr que quand tu cache l'userform par me.hide, tu auras l'éditeur vba.
Maintenant, si tu "ouvre" l'userform par un bouton sur ta feuille LaFeuille et quand tu exécute le code me.hide à partir de l'userform, tu auras ta feuille LaFeuille en premier plan et l'userform caché.
Je ne vois pas de problème, question de logique


dans la feuille Feuil1, tu insère un bouton activeX avec ce code

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
 
UserForm1.Show
End Sub

dans l'userform, tu ajoute un autre bouton

Dans le module de ton userform

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
Private Sub UserForm_Initialize()
 
MsgBox "Mariam, l'userform est chargé"
End Sub
 
Private Sub UserForm_Activate()
 
MsgBox "Mariam, l'userform va apparaitre"
End Sub
 
Private Sub CommandButton1_Click()
 
MsgBox "Mariam, la feuille Feuil3 va être activée et l'userform est simplement caché quelque part"
Sheets("Feuil3").Activate
Me.Hide
End Sub
 
Private Sub CommandButton2_Click()
 
MsgBox "A dieu Mariam, je vais mourir, c'est dur de mourir au printemps tu sais"
Unload Me
End Sub

Clique sur les 3 boutons successivement et regarde l'effet

[Sa Mariam]

Merci toujours pour ton aide et tes simplifications, jai compris

D'accord merciii

Dans le même sens, je veux savoir est ce qu'il existe une formule qui permet de laisser apparaître juste l'interface sans les feuilles excel ?
J'ai essayé

Code :

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

ThisWorkbook.Application.Visible = False

mais ça m'affiche pas les feuilles jusqu’à ce que j'ouvre un nouveau fichier excel

Merci d'avance

[BENNASR]

Tu peux afficher l'UserForm en plein écran comme ça tu caches Excel. Si ça te convient :

Code :

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

1
2
3
Private Sub Workbook_Open()
UserForm1.Show
End Sub

et à l'activation de l'Userform :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Activate()
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
End Sub

[BENNASR]

ou bien :
à l'ouverture de Excel :

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
Application.WindowState = xlMinimized
Application.Visible = False
UserForm1.Show 0
End Sub

et dans un bouton de commande pour ré ouvrir Excel

Code :

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

1
2
3
4
5
6
Option Explicit
Private Sub CommandButton1_Click()
Application.Visible = True
Application.WindowState = xlMaximized
Unload Me
End Sub

[Sa Mariam]

Merci Monsieur