Bonjour,
Est-il possible de modifier dynamiquement l'indice d'arrêt d'une boucle For?
J'ai essayé ceci mais ça ne fonctionne pas :
Au départ, j'ai 41 éléments, j'en rajoute 11 et à la fin j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Dim currentSize As Long, index As Long currentSize = data.Rows.Count 'For i = 2 To data.Rows.Count For i = 2 To currentSize If data.Cells(i, 1).Value - data.Cells(i - 1, 1).Value > 1 Then 'Insère le jour suivant la date de la cellule(i-1, 1) data.Cells(i, 1).Select data.Cells(i, 1).Insert (xlShiftDown) data.Cells(i, 1).Value = data.Cells(i - 1, 1).Value + 1 currentSize = currentSize + 1 End If index = i Next i MsgBox "Fin boucle... " & index & " - " & currentSize
Merci d'avance.Fin boucle... 41 - 52
Partager