Sub или функция не определена VBA

Question

У меня есть компиляция ошибки с 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 или функция не определяет

Answer 1

здесь ваш модифицированный используйте код ниже

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 

Answer 2

If (Sheet .. должен быть If (Sheets .. множественным

Cell должен быть Cells .. множественным

переменной потребности D декларирование и с Выполняется инициализация значения

переменная H нуждается в объявлении и инициализации со значением