Discussion :

[stargates]

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 :

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

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

[mercatog]

Load
Unload
au lieu de show/ hide

[stargates]

merci


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

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

[mercatog]

Essaies cela, hide frmMenu avant le show des autres

Code :

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

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?

[stargates]

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

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

[mercatog]

Ah bon?
Ci joint test

[laetitia]

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 :

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

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 :

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

1
2
3
Private Sub CommandButton1_Click()
Unload Me: UserForm1.Show
End Sub

je ferme userform2 j ouvre userform1

si cela peut t aider

[stargates]

bonjour, merci à tous


mais ca fonctionne toujours pas



une petite chose

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

Code :

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

1
2
3
4
5
 
Private Sub Worksheet_Activate()
frmMenu.Show
 
End Sub

ca pourrait venir de là

[diude54]

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

Code :

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

application.screenupdating=false

[stargates]

boujour,


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


voici le code

Code :

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

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