未定义vba的子或函数

我有一个vba编译错误，但我不明白问题出在哪里： 这是我的密码：

Sub etat()
Dim i As Single
Set plage = Range("D2:A24")
Dim etat As String

For i = 2 To 23 'début de la boucle
    If (Sheet("Voitures").Cell(i, D).Value < 2002) Then
        Sheet("Voitures").Cell(i, H).Value = "TRY"
    End If
Next i

End Sub

Sub-etat（）
我是单身吗
设置档位=范围（“D2:A24”）
以字符串的形式显示
对于i=2至23’dé，但不适用于boucle
如果（表（“Voitures”）.单元格（i，D）.值<2002），则
表（“Voitures”）.Cell（i，H）.Value=“TRY”
如果结束
接下来我
端接头

错误为Sub或函数未定义If（Sheet）。应为If（Sheets。复数

单元格

应为

单元格

。复数

变量D需要用一个值声明和初始化

变量H需要声明并用值初始化

这是您修改过的代码 下面使用

Sub etat()
Dim i As Single
Set plage = Range("D2:A24")
Dim etat As String

' d and h are columns
Dim d As Integer
Dim h As Integer
d = 4
h = 6

For i = 2 To 23 'début de la boucle
    If (Sheets("Voitures").Cells(i, d).Value < 2002) Then
        Sheets("Voitures").Cells(i, h).Value = "TRY"
    End If
Next i

End Sub

Sub-etat（）
我是单身吗
设置档位=范围（“D2:A24”）
以字符串的形式显示
'd和h是列
作为整数的Dim d
作为整数的Dim h
d=4
h=6
对于i=2至23’dé，但不适用于boucle
如果（表（“Voitures”）.单元格（i，d）.值<2002），则
表（“Voitures”）.单元格（i，h）.Value=“TRY”
如果结束
接下来我
端接头

工作表

和

单元格

，而不是

工作表

和

单元格

。D和H被假定为列，我以前从未使用过vba，因此我不确定如何声明列您使用Dim、变量名称和数据类型声明变量，例如Dim H，只要在新行H=2上-就像您对变量所做的那样我能。非常感谢你。很抱歉问了这个愚蠢的问题。