Discussion :

[eric4459]

Bonjour,
Je souhaites ouvrir un Userform sous condition depuis un premier UserForm.
Dans mon premier UserForm j'ai un ComboBox avec une liste de choix et un bouton"Ok" qui va déclencher la suite du code.
Je souhaite que en sélectionnant l'un des choix proposé, un second UserForm s'affiche.
J'ai 4 choix et donc 4 UserForm différents
Je dois préciser que j'ai renommé ces Userform :"Pre_OPD", "Eval_Select"; "Def" et "Exec".
Voici le code que j'ai écrit dans le premier UserForm, celui qui me permet de choisir.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub UserForm_Initialize()
    ComboBox1.List = Worksheets("WBS").Range("N1:N31").Value
    ComboBox2.List = Worksheets("WBS").Range("O1:O12").Value
    ComboBox3.List = Worksheets("WBS").Range("P1:P36").Value
    ComboBox4.List = Worksheets("WBS").Range("A2:A7").Value
 End Sub
Private Sub BtOk1_Click()
Dim Main As Worksheet
Dim WBS As Worksheet
Set Main = ThisWorkbook.Sheets("Main")
Set WBS = ThisWorkbook.Sheets("WBS")
 
         Main.Range("C2") = TextBox1
         Main.Range("C3") = ComboBox1 + " " + ComboBox2 + " " + ComboBox3
         If Main.Range("C3").Value = "  " Then
         Me.Hide
         MsgBox ("Enter Project Date")
         Selection.Show
         Else
         Main.Range("C3") = CDate(Main.Range("C3").Value)
         End If
 
         If ComboBox4.Value = "Pre-OPD" Then
            Pre_OPD.Show
         ElseIf ComboBox4.Value = "Concept Evaluation & Selection" Then
            Eval_Select.Show
         ElseIf ComboBox4.Value = "Concept Definition" Then
            Def.Show
         ElseIf ComboBox4.Value = "Execution" Or ComboBox4.Value = "Operation" Or ComboBox4.Value = "Decommissioning & Abandonment" Then
            Exec.Show
         End If
 
         WBS.Range("M1") = ComboBox4
 
         Unload Me ' empty data
 
End Sub

Mon problème est que lorsque, en pas à pas, j'arrive sur la ligne 24, 26, 28 ou 30 (demande d'affichage des UserForm) j'ai un message d'erreur "Objet Requis"
Est-ce parce-ce que je suis dans l'UserForm?
J'avais déjà utilisé ce type d'appel mais depuis un module.
Si c'est la cause de l'erreur, comment faire pour la contourner en gardant la commande dans l'UserForm?

Merci pour votre aide et vos conseils

Eric

[Pierre Fauconnier]

Salut.

Es-tu sûr des noms de tes userforms? Car tu peux appeler sans problème un usf à partir d'un autre... Tente une compilation pour voir si ça passe (Débogage/Compiler VBAProject)

De plus, privilégie Select Case... End Select plutôt que des If imbriqués, vu qu'ils portent sur la même variable.

As-tu la ligne Option Explicit en début de module. Si non, mets vite cette ligne en début de module et va cocher l'option "Déclaration des variables obligatoires" dans Outils/options/Editeur

[eric4459]

Salut Pierre,

J'ai bien vérifié le nom des mes Userform, je les ai renommé sans le _ pour vérifier que ce n'était pas du à cela et j'ai bien mis Option Explicit en début de module.
Voici ce que j'ai maintenant dans le code de mon UserForm "Selection", mon bouton s'appelle BtOk1
J'ai modifié l'appel des UserForm en les activant par des procédures situées sur mon module.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub UserForm_Initialize()
    ComboBox1.List = Worksheets("WBS").Range("N1:N31").Value
    ComboBox2.List = Worksheets("WBS").Range("O1:O12").Value
    ComboBox3.List = Worksheets("WBS").Range("P1:P36").Value
    ComboBox4.List = Worksheets("WBS").Range("A2:A7").Value
 End Sub
Private Sub BtOk1_Click()
Dim Main As Worksheet
Dim WBS As Worksheet
Dim Phase(0) As String
Set Main = ThisWorkbook.Sheets("Main")
Set WBS = ThisWorkbook.Sheets("WBS")
 
         Main.Range("C2") = TextBox1
         Main.Range("C3") = ComboBox1 + " " + ComboBox2 + " " + ComboBox3
         If Main.Range("C3").Value = "  " Then
         Me.Hide
         MsgBox ("Enter Project Date")
         Selection.Show
         Else
         Main.Range("C3") = CDate(Main.Range("C3").Value)
         End If
         WBS.Range("M1") = ComboBox4
 
           Phase(0) = WBS.Range("M1")
 
         If Phase(0) = "Pre-OPD" Then
            Phase_Pre_DPD
         ElseIf Phase(0) = "Concept Evaluation & Selection" Then
            Phase_Evaluation
         ElseIf Phase(0) = "Concept Definition" Then
            Phase_Definition
         ElseIf Phase(0) = "Execution" Or Phase(0) = "Operation" Or Phase(0) = "Decommissioning & Abandonment" Then
            Phase_Execution
         End If
 
         Unload Me ' empty data
 
End Sub

Voici le code de mon module

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
Option Explicit
 
Sub BtSelection_Click()
Selection.Show
End Sub
Sub Phase_Pre_DPD()
PreSelection.Show
End Sub
Sub Phase_Evaluation()
Evaluation.Show
End Sub
Sub Phase_Definition()
Definition.Show
End Sub
Sub Phase_Execution()
Execution.Show
End Sub

A noter que lorsque j'appui sur le bouton situé sur une feuille du classeur et à qui j'ai affecté la macro " BtSelection_Click", mon UserForm "Selection" S'ouvre correctement.

Enfin voici le code que j'ai dans l'un des UserForm que je souhaite ouvrir, je ne met qu'un seul code car ils sont bâtis de la même façon.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub UserForm_Initialize()
    ComboBox1.List = Worksheets("WBS").Range("A2:A7").Value
    ComboBox2.List = Worksheets("WBS").Range("C2:C50").Value
    ComboBox3.List = Worksheets("WBS").Range("E2:E50").Value
    ComboBox4.List = Worksheets("WBS").Range("G2:G50").Value
    ComboBox5.List = Worksheets("WBS").Range("I2:I50").Value
End Sub
Private Sub AddItem1_Click()
Dim Main As Worksheet
Dim WBS As Worksheet
Dim Level As Range
Dim i As Integer
Set Main = ThisWorkbook.Sheets("Main")
Set WBS = ThisWorkbook.Sheets("WBS")
Set Level = Main.Range("B6")
Level = Level.Offset(0)
    i = 1
 
    ' Select the first Empty line
    While Main.Range("B6").Cells(i, 1) <> "" ' If the line is not empty select the next line ( i = i + 1 )
        i = i + 1
    Wend
 
    Level.Offset(i, 0) = WBS.Range("M1")
    Level.Offset(i, 1) = ComboBox2.Text ' Copy level 2 Text from the list.
    Level.Offset(i, 2) = ComboBox3.Text ' Copy level 3 Text from the list.
    Level.Offset(i, 3) = ComboBox4.Text ' Copy level 4 Text from the list.
    Level.Offset(i, 4) = ComboBox5.Text ' Copy level 5 Text from the list.
 
End Sub
 
Private Sub Quit1_Click()
 
    Me.Hide  ' Ferme la fenêtre.
 
End Sub

Il y a surement une erreur "toute simple" qui m'échappe mais je ne la vois pas ...

Eric

PS : Comment utiliser Select Case avec du texte, j'ai essayé au début mais n'y suis pas parvenu, voilà ce que j'avais

Code :

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

1
2
Case = "Pre-OPD"
Pre_OPD.Show

[Pierre Fauconnier]

Voici un classeur d'exemple

[eric4459]

Pierre, je viens de trouver, honte à moi
Dans chacun des UserForm que j'ai , j'avais une Private Sub qui s'intitulais à chaque fois

Code :

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

Private Sub UserForm_Initialize()

En modifiant pour

Code :

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

1
2
3
4
Private Sub UserForm1_Initialize()
Private Sub UserForm2_Initialize()
Private Sub UserForm3_Initialize()
etc...

Tout est rentré dans l'ordre

Pour ce qui est de Select Case , je vais essayer de la façon suivante

Code :

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

1
2
3
4
Dim Phs as string
Select Case(Phs)
Case is Pre-OPD
Pre_OPD.Show

Est-ce comme cela qu'il faut faire?

Eric

[Pierre Fauconnier]

C'est souvent sur ce genre de bêtise que l'on s'arrache le plus souvent...

[joe.levrai]

Bonjour à tous,

Eric, n'oublie pas les parenthèses pour les String

déquote le premier Case et quote le dernier ... ou inversement

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
Sub LesChaines()
Dim Chaine As String
 
Chaine = Cells(1, 1)
 
Select Case Chaine
    'Case ""
    '    MsgBox "la cellule est vide"
    Case "TOTO"
        MsgBox "quelqu'un a écrit une connerie dans la cellule"
    Case TOTO
        MsgBox "la cellule ne contient pas TOTO ... moi j'ai oublié mes parenthèses !"
End Select
 
End Sub

[eric4459]

Salut Joe,
Voici ce que j'ai fais, cela fonctionne farpaitement

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
Dim Phs As String
Select Case (Phs)
                Case "Pre-OPD"
                 PreSelection.Show
                Case "Concept Evaluation & Selection"
                 Evaluation.Show
                Case "Concept Definition"
                 Definition.Show
                Case "Execution"
                 Execution.Show
                Case "Operation"
                 Execution.Show
                Case "Decommissioning & Abandonment"
                 Execution.Show
 
           End Select

Par contre pour Execution.Show, j'ai testé

Code :

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

1
2
Case "Execution" Or Case "Operation"
Execution.Show

Mais ça n'a pas fonctionné.
Eric

[joe.levrai]

Bonjour,

si tu veux plusieurs chaines dans un même Case, il faut les séparer d'une virgule

Code :

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

1
2
Case "Execution", "Operation"
Execution.Show

[Pierre Fauconnier]

Code :

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

Case "Execution",  "Operation"

[eric4459]

Merci à vous deux
Eric