嘿，别慌！Error 424（对象必需）本质上就是代码里找不着你要引用的对象——要么是名字写错了，要么是对象根本不存在。咱们对着你的代码一步步排查：

1. 先解决触发错误的源头：UserForm1.Show #

你说错误定位到Bouton2_Cliquer的UserForm1.Show这一行，那大概率是VBA找不到名为UserForm1的用户窗体。

• 打开VBA编辑器，找到你的用户窗体，按F4调出属性窗口，查看它的(名称)属性（注意是括号里的名称，不是Caption标题）。
• 如果窗体实际名称不是UserForm1，把代码里的UserForm1.Show改成对应的名称，比如你的窗体叫FormCalculateur，就改成FormCalculateur.Show。

2. 控件名称严重不匹配（最容易踩的坑） #

看一下你的初始化代码和按钮点击代码，控件名称完全对不上：

• 初始化里用的是ComboBox_Vitesse和ComboBox_orientation，但按钮代码里找的是ComboBoxV&i（也就是ComboBoxV1、ComboBoxV2）和ComboBoxO&i（ComboBoxO1、ComboBoxO2）。
• 立刻去检查窗体上所有控件的(名称)属性：
  • 用于选择速度的两个ComboBox，是不是真的叫ComboBoxV1和ComboBoxV2？
  • 用于选择方向的两个ComboBox，是不是叫ComboBoxO1和ComboBoxO2？
• 要么修改代码里的控件名称，要么修改控件的实际名称，必须保证两者完全一致，差一个下划线或者字母都不行！

3. 补上Option Explicit，消灭隐性错误 #

你的代码里所有的i变量都没声明，虽然VBA允许隐式声明，但这会导致各种莫名其妙的对象错误。

• 在每个模块和窗体代码的最顶部加上：

  Option Explicit
  

• 然后点击Debug -> Compile VBAProject，VBA会帮你找出所有未声明的变量，把它们都补上声明（比如Dim i As Integer），这能解决很多潜在问题。

4. 给Cells指定工作表，避免读取错误 #

你直接用Cells(4,1)这种写法，默认是读取当前激活的工作表，但如果激活的不是你存数据的表，不仅会读错数据，还可能间接触发对象错误。

• 明确指定数据所在的工作表，比如你的数据在名为"参数表"的工作表里：

  ' 在按钮点击代码开头加上
  Dim ws As Worksheet
  Set ws = ThisWorkbook.Worksheets("参数表")
  ' 然后把所有Cells替换成ws.Cells
  roh = ws.Cells(4, 1)
  R = ws.Cells(6, 1)
  ' 初始化代码里也一样修改
  For i = 4 To 20
      ComboBoxV1.AddItem ws.Cells(i, 2) ' 这里要对应你的控件名称
      ComboBoxV2.AddItem ws.Cells(i, 2)
  Next
  

修正后的初始化代码示例（假设控件是ComboBoxV1、ComboBoxV2、ComboBoxO1、ComboBoxO2） #

Option Explicit

Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("参数表") ' 替换成你的工作表名
    
    ' 给两个速度ComboBox添加选项
    For i = 4 To 20
        ComboBoxV1.AddItem ws.Cells(i, 2)
        ComboBoxV2.AddItem ws.Cells(i, 2)
    Next
    
    ' 给两个方向ComboBox添加选项
    For i = 4 To 22
        ComboBoxO1.AddItem ws.Cells(i, 8)
        ComboBoxO2.AddItem ws.Cells(i, 8)
    Next
End Sub

按照这个思路一步步排查，应该能快速解决你的Error 424问题！

内容的提问来源于stack exchange，提问作者martin genot