Bonjour,
Je cherche à écrire une Macro qui récupère selon une condition des valeurs dans une feuille excel et le met dans un tableau. Mon code s’exécute sans erreur mais mon tableau est vide!!!
Voici mon Code :
Sub TempRep()
Dim DernLigne As Long
Dim tab1(2, 2)
Dim i As Integer
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Worksheets("285077Ibf").Activate
tab1(0, 0) = ""
tab1(0, 1) = "TempReprise"
tab1(0, 2) = "DuréeIntersequence"
tab1(1, 0) = "12"
tab1(2, 0) = "23"
For i = 5 To i = DernLigne
If (Range("A" & i + 1).Value - Range("A" & i).Value = 1) Then
tab1(1, 1) = Range("A" & i).Value
tab1(1, 2) = Cells(i + 1, 17).Value - Cells(i, 18).Value
tab1(2, 1) = Cells(i + 1, 16).Value
tab1(2, 2) = Cells(i + 1, 17).Value - Cells(i, 18).Value
End If
Next
MsgBox tab1(1, 1)
End Sub
Si qqn peut m'aider je suis encore débutante en VBA