[XL-2007] navigation entre userform

navigation entre userform

bonjour,

j'ai crée un userform (frmMenu) qui permet de choisir d'ouvrir d'autre userform
et ce par l'aide de bouton option

j'ai crée ce petit code mais mon frmMenu reste en arrière plan
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub cmdOk_Click() If optPrestation.Value = True Then frmMenu.Hide frmPrestation.Show End If If optRep.Value = True Then frmRep.Show frmMenu.Hide End If End Sub
Une idée Merci

Load
Unload
au lieu de show/ hide

merci

j'ai essayé ceci , et je n'ai plus rien à l'écran

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub cmdOk_Click()
If optPrestation.Value = True Then
 
     Load frmPrestation
     Unload frmMenu
    'frmMenu.Hide
    'frmPrestation.Show
 
End If
If optRep.Value = True Then
    Load frmRep
    Unload frmMenu
    'frmRep.Show
    'frmMenu.Hide
 
End If
End Sub

Essaies cela, hide frmMenu avant le show des autres
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub cmdOk_Click() If Me.optPrestation Then Me.Hide frmPrestation.Show End If If Me.optRep Then Me.Hide frmRep.Show End If End Sub
EDIT: Question: les 2 optButton peuvent être True simultanément?

j'ai essayé comme tu as dit mais ca revient au problème du départ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub cmdOk_Click()
If Me.optPrestation.Value = True Then
 
     'Load frmPrestation
     'Unload frmMenu
    Me.Hide
    frmPrestation.Show
 
End If
If Me.optRep.Value = True Then
    'Load frmRep
    'Unload frmMenu
    Me.Hide
    frmRep.Show
 
End If
End Sub

Ah bon?
Ci joint test

bonjour stargates mercatog le forum
hide tu caches un user mais tu conserves les valeurs ou variables
load tu charges en memoire mais tu affiche pas
userform1.show tu ouvres ton userform
unload userform1 ou unload me tu fermes ton user & le decharge en memoire

exemple

j ouvre userform1 contenant un OptionButton1
userform1.show
clic sur OptionButton1 code:
Code:

1 2 3 4 5 Private Sub OptionButton1_Click() If OptionButton1 = True Then Unload Me: UserForm2.Show End If End Sub
je ferme userform1 j ouvre userform2

code userform2 avec un bouton
Code:

1 2 3 Private Sub CommandButton1_Click() Unload Me: UserForm1.Show End Sub
je ferme userform2 j ouvre userform1

si cela peut t aider

bonjour, merci à tous

mais ca fonctionne toujours pas

une petite chose

l'userform est appelée à l'ouverture de la feuille menu
Code:

1 2 3 4 5 Private Sub Worksheet_Activate() frmMenu.Show End Sub
ca pourrait venir de là

Est tu n'aurais pas fait plus tôt dans la procedure:

Code:

application.screenupdating=false

boujour,

bien vu, j'avais fait ca dans un tri de feuille

voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub cmdOk_Click()
Application.ScreenUpdating = True
If Me.optPrestation Then
    Unload Me:  frmPrestation.Show
End If
If Me.optRep Then
    Unload Me: frmRep.Show
End If
End Sub

un grand merci à tous