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