Set xlSheets = ActiveWorkbook.Worksheets ("Body") i = 1 While xlSheets.Range("c" & i).Value <> "" instruction = xlSheets.Range("c" & i).Value MsgBox (instruction) i = i + 1 Wend
While Not IsEmpty(xlSheets.Range("c" & i))
Set cellule = ActiveWorkbook.Worksheets("Body").Range("C1") While Not IsEmpty(cellule) instruction = cellule.Value MsgBox (instruction) Set cellule = cellule.Offset(1,0) Wend
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question