Problème assignation Feuille VBA

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:

---

1 2 3 4

Private Sub Retour_Click() Application.Visible = False Bilancol.Show End Sub

---

Feuil2(Individuelle)

Code:

---

1 2 3 4

Private Sub Retour_Click() Application.Visible = False Bilanind.Show End Sub

---

USF "Bilancol"

Code:

---

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:

---

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 !!

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:

---

1 2 3 4 5

Private Sub CommandButton3_Click() Application.Visible = False Bilanind.Show End Sub

---

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

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:

---

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:

---

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:

---

1 2 3

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

---

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:

---

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

---

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

Sinon il faut écrire

Code:

---

1 2 3

Sheets("Individuelle") Sheets("Collective")

---

et non

Code:

---

1 2 3

Sheets(Individuelle) Sheets(Collective)

---

Ok sa marche, j'avais fait encore une gourde.
Je te remercie pour ta patience, t'es génial, encore merci !