Discussion :

[Papillon34]

Bonjourtout le monde,

j'ai un petit soucis!! J'ai réalisé un bouton de commande qui ferme mes deux formulaires et fait apparaître la feuille Excel. Au premier clique il fonctionne correctement, ma feuille Excel apparaît!
Puis de ma feuille Excel j'ai réalisé un bouton de commande qui lui me raméne
sur mon formulaire de saisie.
Mais le problème survient lorsque je rappuie sur le bouton de commande pour une deuxième fois, mon formulaire de saisie se cache mais pas mon formulaire de présentation! et derrière mon formulaire de présentation je vois ma feuille Excel!

Comment puis-je faire afin que mon formulaire de présentation disparaîsse??

Voici les algo du bouton de commande du formulaire de saisie :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Pers_CDD_Click()
Application.Visible = True
'Activer feuille 3
Worksheets(3).Activate
'fermer la fenêtre principale des indicateurs foyer
Indicateurs_foyer.Hide
Presentation.Hide
End Sub

Voici les algo du bouton de commande de ma feuille excel :

Code :

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

1
2
3
4
5
6
7
Private Sub Retour_formulaire_saisie_Click()
   'Cache la feuille Excel
    Application.Visible = False
    'Affiche le formulaire de Présentation
    Indicateurs_foyer.Show
    Presentation.Show
End Sub

[grrimag]

Salut,

juste une petite précision stp: quand tu dis que tu veux qu'ils disparaissent, tu veux les fermer (et vider la mémoire associée) ou tu veux juste les cacher (et garder les données et la mémoire)?
En d'autres termes, quand tu relances tes formulaires, tu veux que ce soit des formulaires vides ou qu'ils puissent contenir déjà des données?

[Papillon34]

En faite je veux juste cacher mes formulaires afin d'accéder à ma feuille Excel.
Sur mon formulaire de saisie normalement les données seront mais pour sécurité les données devraient rester sur le formulaire!!

[getule]

bonjour
dis nous! le bouton qui cache les formulaires est dans quel formulaire?

[Papillon34]

J'ai deux formulaire :
- formulaire de présentation
- formulaire de saisie

Le bouton de commande est dans le formulaire de saisie.
On accéde au formulaire de saisie par le formulaire de présentation.

[grrimag]

Hello,
c'est parfaitement normal.

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
 
Private Sub Pers_CDD_Click()
1 Application.Visible = True
'Activer feuille 3
2 Worksheets(3).Activate
'fermer la fenêtre principale des indicateurs foyer
3 Indicateurs_foyer.Hide
4 Presentation.Hide
End Sub
 
Private Sub Retour_formulaire_saisie_Click()
'Cache la feuille Excel
5 Application.Visible = False
'Affiche le formulaire de Présentation
6 Indicateurs_foyer.Show
7 Presentation.Show

Regarde le code ci-dessus, j'ai numéroté les lignes intéressantes (de 1 à 7).
Quand tu cliques sur le bouton de ta feuille excel, tu lances la ligne 5 puis 6. A ce moment là, Excel lance le formulaire de saisie et le code passe sur le formulaire de saisie.
Tu fais des trucs et tu cliques sur ton bouton pour tout fermer, tu lances donc les lignes 1, 2, 3 puis 4. Mais la ligne 4 ne sert à rien puisque le formulaire de présentation n'a jamais été lancé (le code est jamais passé par la ligne 7). nsuite la procédure se termine et rend la main à la première qui reprend à la ligne 7 et affiche ton formulaire de présentation.

Donc, ce n'est pas que le formulaire de présentation n'a pas été fermé, c'est qu'il vient juste d'être ouvert.

Pour résoudre ton problème, je te propose ça mais sans garantie (j'ai pas testé):

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
 
'bouton de commande de ma feuille excel :
Private Sub Retour_formulaire_saisie_Click()
Application.Visible = False
Presentation.Show
End Sub 
 
'code dans ton userform presentation, le nom de la sub est TRES important
Private Sub userForm_initialize()
Indicateurs_foyer.Show
Me.Hide
end sub
 
Private Sub Pers_CDD_Click()
Application.Visible = True
Worksheets(3).Activate
Me.Hide
End Sub

Voilà, si tu rencontres d'autres problèmes, hesite pas