Dim d As Integer Dim j As Integer Dim k As Integer Dim etab(23) As Variant For j = 0 To 23 etab(j) = Cells(s.Row + j, s.Column + 4) MsgBox etab(j) Next j
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim d As Integer Dim j As Integer Dim k As Integer Dim etab(23) As Variant For j = 0 To 23 etab(j) = Cells(s.Row + j, s.Column + 4).Value MsgBox etab(j) Next j