Discussion :

[seiryujay]

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 :

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

Au départ, j'ai 41 éléments, j'en rajoute 11 et à la fin j'ai :

Fin boucle... 41 - 52

Merci d'avance.

[bidou]

non, ce n'est évalué qu'une fois.

[seiryujay]

Ok.
Bon ben j'ai fait une bidouille alors.

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
    index = 2
 
    While index <> currentSize
        For i = index 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
    Wend

Comme ça, si l'index de fin est différent de la currentSize qui représente la taille réelle de mon tableau, on relance le traitement en repartant du dernier indice traité.

Ca vous semble bien ou ça fait trop "bidouille" justement?

[seiryujay]

Euh, je suis en train de me dire que je peux aussi utiliser directement un while au lieu du for...
Le boulet

[Le Pharaon]

Euh, je suis en train de me dire que je peux aussi utiliser directement un while au lieu du for...
Le boulet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
While currentSize < x 
..........
wend

[Vld44]

ou alors tu créés une classe ayant un comportement de type collection (for each autorisé) dans laquelle tu puisses ajouter des éléments dynamiquement par clé.

bon je sors ...