Discussion :

[Tharoc]

Bonjour à tous,

Un autre problème survenus dans mon programme me fait revenir vers vous.
Il s'agit d'un problème d'assignation de feuille de calcul :

Je m'explique :
J'ai deux USF (Bilanind et Billancol) et deux feuille de calcul (Individuelle et Collective).

Voici la démarche :

USF Bilanind (Bouton : Tableau) --> Feuille (Individuelle)
(Bouton : Retour) --> USF Bilanind
USF Bilancol (Bouton : Tableau) --> Feuille (Collective)
(Bouton : Retour) --> USF bilancol

En revanche, quand je clique sur "tableau", pour les chaques cas, c'est la feuille "collective" qui s'ouvre.

Voici les codes:

Feuil1(Collective)

Code :

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

1
2
3
4
Private Sub Retour_Click()
Application.Visible = False
Bilancol.Show
End Sub

Feuil2(Individuelle)

Code :

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

1
2
3
4
Private Sub Retour_Click()
Application.Visible = False
Bilanind.Show
End Sub

USF "Bilancol"

Code :

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

1
2
3
4
5
' Afficher la feuille de calcul - Gestion collective'
Private Sub Tableau_Click()
Bilancol.Hide
Application.Visible = True
End Sub

USF "Bilanind"

Code :

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

1
2
3
4
5
' Afficher la feuille de calcul - Gestion collective'
Private Sub Tableau_Click()
Bilanind.Hide
Application.Visible = True
End Sub

Voici mon programme

http://dl.free.fr/h5fPUrS4j

Merci d'avance pour votre aide !!

[DeTraX]

Bonjour,

En fait, le bouton Retour de ta feuille Individuelle s'appelle CommandButton3 et non CommandButton1

Renomme simplement ta fonction en remplaçant CommandButton1 par CommandButton3

Code :

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

1
2
3
4
5
 
Private Sub CommandButton3_Click()
    Application.Visible = False
    Bilanind.Show
End Sub

[Tharoc]

Exact merci pour cette gourde, sauf que le problème est toujours présent.
En faite, la première fois que je clique sur Tableau, il va m’ouvrir la bonne page. Sauf que si je fais retour et refait le calcul avec l’autre Userform, il me remet encore le même tableau.

Donc il doit se lock la première fois ducoup, toutes les autres tentatives sont vaines. Je retomberai tout le temps sur le tableau de la première sélection.
Pour faire un test sur le programme, essayer :
Les deux boucles (collective, individuelle) sans quitter le programme.
Les valeurs :
ks = 0.5
Beta = 5
Eta = 2000
Gamma = 0
Pour les descriptions mettez qu’une lettre.
Faite tableau, retour, menu, refaire l’autre boucle, et le même tableau va s’afficher alors que la j’ai bien régler les noms des boutons : s
C’est épuisant de rester bloquer sur des choses qui ont l’air simple ^^

Mon programme :

http://dl.free.fr/v6zrNuavI

[DeTraX]

Alors si j'ai bien compris, c'est qu'il manque l'activation des feuilles.

Essaie avec ce code. En plus, j'ai masqué le tableau à ne pas afficher

Dans le module BilanCol

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
' Afficher la feuille de calcul - Gestion collective'
Private Sub CommandButton2_Click()
    Bilancol.Hide
    Application.Visible = True
    Sheets("Individuelle").Visible = False
    With Sheets("Collective")
        .Visible = True
        .Activate
    End With
End Sub

... et pareil dans BilanInd

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
'Affichage du tableau - Gestion Individuelle'
Private Sub CommandButton2_Click()
    Bilanind.Hide
    Application.Visible = True
    Sheets("Collective").Visible = False
    With Sheets("Individuelle")
        .Visible = True
        .Activate
    End With
End Sub

En remarque complémentaire : attention quand tu quittes l'application, si tu fais annuler lors de la demande de sauvegarde, tu te retrouves avec un process fantôme car l'application est masquée mais toujours ouverte...

Tu peux modifier la fermeture en

Code :

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

1
2
3
 
ActiveWorkbook.Close False     ' False pour ne pas sauver, True pour sauver
Application.Quit               ' Attention quand même si plusieurs classeurs ouverts...

[Tharoc]

En lisant ton code, c'est sa par logique mais je ne savais pas comment m'y prendre, je te remercie !

Cependant, ducoup il y a un conflit car quand je veux lancer un tableau (que se soit l'un ou l'autre), une erreur survient :

Erreur d'execution 402' :
Vous devez d'abord fermer ou masquer la feuille modale de premier plan.

Le débogage me surligne :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton2_Click()
    Bilanind.Hide
    Application.Visible = True
    Sheets(Collective).Visible = False
    With Sheets(Individuelle)
        .Visible = True
        .Activate
    End With

[DeTraX]

As-tu défini des variables pour Collective et Individuelle ?

Sinon il faut écrire

Code :

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

1
2
3
 
Sheets("Individuelle")
Sheets("Collective")

et non

Code :

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

1
2
3
 
Sheets(Individuelle)
Sheets(Collective)