Visualiser les pages excel à partir de l'interface VBA

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

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:

---

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

---

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

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

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

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

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

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.

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

si vous avez des onglets masqués essayez avec :

Code:

---

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

---

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:

---

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:

---

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

Citation:

---

Envoyé par mercatog

---

Merci toujours pour ton aide et tes simplifications, jai compris

Citation:

---

Envoyé par BENNASR

---

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:

---

ThisWorkbook.Application.Visible = False

---

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

Merci d'avance

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

Code:

---

1 2 3

Private Sub Workbook_Open() UserForm1.Show End Sub

---

et à l'activation de l'Userform :

Code:

---

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

---

ou bien :
à l'ouverture de Excel :

Code:

---

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:

---

1 2 3 4 5 6

Option Explicit Private Sub CommandButton1_Click() Application.Visible = True Application.WindowState = xlMaximized Unload Me End Sub

---

Merci Monsieur