Bonjour,
Je débute en VBA et je suis confronté à une erreur : l'indice n'appartient pas à la sélection.
Merci d'avance pour votre aide.
Le code:
Sub Parc()
Dim ass As Date
Dim ctr As Date
Dim code As Variant
Dim i, j As Integer
ReDim asstableau(1 To n, 1)
ReDim ctrtableau(1 To n, 1)
ReDim code(1 To n, 1)
n = 26
For i = 1 To n
asstableau(i, 1) = Worksheets("Parc auto").Cells(4 + i, 14 + j).Value
Next i
For i = 1 To n
ctrtableau(i, 1) = Worksheets("Parc auto").Cells(4 + i, 16 + j).Value
Next i
For i = 1 To n
code(i, 1) = Worksheets("Parc auto").Cells(4 + i, 3 + j).Value
Next i
For i = 1 To n
If asstableau(i, 1) < Date + 31 Then Range("a" & i + 2).Value = Worksheets("Parc auto").code(i, 1)
If asstableau(i, 1) < Date + 60 Then Range("b" & i + 2).Value = Worksheets("Parc auto").code(i, 1)
Next i
For i = 1 To n
If ctrtableau(i, 1) < Date + 31 Then Range("d" & i + 2).Value = Worksheets("Parc auto").code(i, 1)
If ctrtableau(i, 1) < Date + 60 Then Range("e" & i + 2).Value = Worksheets("Parc auto").code(i, 1)
Next i
End Sub
Je débute en VBA et je suis confronté à une erreur : l'indice n'appartient pas à la sélection.
Merci d'avance pour votre aide.
Le code:
Sub Parc()
Dim ass As Date
Dim ctr As Date
Dim code As Variant
Dim i, j As Integer
ReDim asstableau(1 To n, 1)
ReDim ctrtableau(1 To n, 1)
ReDim code(1 To n, 1)
n = 26
For i = 1 To n
asstableau(i, 1) = Worksheets("Parc auto").Cells(4 + i, 14 + j).Value
Next i
For i = 1 To n
ctrtableau(i, 1) = Worksheets("Parc auto").Cells(4 + i, 16 + j).Value
Next i
For i = 1 To n
code(i, 1) = Worksheets("Parc auto").Cells(4 + i, 3 + j).Value
Next i
For i = 1 To n
If asstableau(i, 1) < Date + 31 Then Range("a" & i + 2).Value = Worksheets("Parc auto").code(i, 1)
If asstableau(i, 1) < Date + 60 Then Range("b" & i + 2).Value = Worksheets("Parc auto").code(i, 1)
Next i
For i = 1 To n
If ctrtableau(i, 1) < Date + 31 Then Range("d" & i + 2).Value = Worksheets("Parc auto").code(i, 1)
If ctrtableau(i, 1) < Date + 60 Then Range("e" & i + 2).Value = Worksheets("Parc auto").code(i, 1)
Next i
End Sub