Variable dynamique dans une boucle for i to variable

Version imprimable

24/09/2018, 10h46
thibeau67

Variable dynamique dans une boucle for i to variable

Bonjour à tous,

J'ai déjà cherché pas mal mais ma requête sort un peu de l'ordinaire.

J'ai une colonne représentant une liste d'agents (Colonne A) :

Initialement la longueur de la liste peut varier donc je recherche via VBA la dernière ligne non vide et je l'affecte à une variable "fin".

Puis pour le traitement de chaque liste je passe par la fonction For i = 2 to fin.

Jusque là tout va bien, cependant dans l'exécution de ma macro, celle-ci ajoute des lignes donc modifie le résultat de la variable "fin" dans la fenêtre variable locale mais pas dans la boucle de la macro.

Ex :

Si fin = 30 au début après l'exécution des tâches de la macro, fin sera égale à 35.

Cependant ma boucle n'ira que jusqu'à la ligne 30 car la boucle for i to variable ne prend pas en compte que la variable de fin puisse changer.

Je pose déjà le sujet comme cela en espérant avoir été assez claire et je pourrai mettre à disposition le code utilisé ainsi que le fichier si besoin.

Je vous remercie d'avance car à ce point je n'arrive plus à trouver de solution à mon problème.

En vous souhaitant une bonne journée.
24/09/2018, 10h54
BENNASR

Bonjour
j'arrive pas à comprendre ta demande surtout que tu montre pas ton code !!! (entre balise)
si tu as une boucle qui vas mettre à jour la dernière ligne non vide tu peux mettre un nouveau variable de type LONG qui se calcul après le boucle
et tu continue à travailler avec cette nouvelle variable
24/09/2018, 11h12
Menhir

Citation:

Envoyé par thibeau67

Initialement la longueur de la liste peut varier donc je recherche via VBA la dernière ligne non vide et je l'affecte à une variable "fin".

Puis pour le traitement de chaque liste je passe par la fonction For i = 2 to fin.

Il serait plus simple de montrer le code.

Citation:

Jusque là tout va bien, cependant dans l'exécution de ma macro, celle-ci ajoute des lignes donc modifie le résultat de la variable "fin" dans la fenêtre variable locale mais pas dans la boucle de la macro.

Si ta macro consiste à insérer des lignes, il est FORTEMENT conseillé de faire la scrutation de ligne en allant de la fin au début (en remontant).
En terme VBA, c'est faire un For To avec un Step -1.
Ca simplifie beaucoup l'algorithme.

Bonjour,

Voilà le code utilisé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Sub Macro1()
 
Dim i, r, a As Variant
Dim fin2 As Long
 
Application.ScreenUpdating = False
 
'Récupération des taches pour les agents présents
 
Sheets("Test").Select
 
fin2 = Range("A" & Rows.Count).End(xlUp).Row
 
For i = 5 To fin2
 
Cells(i, 8).FormulaR1C1 = "=COUNTIF('ONT009'!C[13],""*" & Cells(i, 1).Value & "*"")"
    Cells(i, 9).FormulaR1C1 = "=COUNTIF('ONT009'!C[13],""*" & Cells(i, 1).Value & "*"")"
 
     r = Cells(i, 8).Value
     a = Cells(i, 9).Value
 
        If r > 0 And a > 0 Then
                Rows(i).Select
                Selection.Copy
            If r > 1 And a > 1 Then
                Rows("" & (i + 1) & ":" & (i + r + a - 2) & "").Select
            ElseIf r = 1 And a > 1 Then
                Rows("" & (i + 1) & ":" & (i + r + a - 1) & "").Select
            ElseIf r > 1 And a = 1 Then
                Rows("" & (i + 1) & ":" & (i + r + a - 1) & "").Select
            ElseIf r = 1 And a = 1 Then
                Rows("" & (i + 1) & ":" & (i + r + a) & "").Select
            End If
                Selection.Insert Shift:=xlDown
                Application.CutCopyMode = False
 
        ElseIf r > 0 Then
                Rows(i).Select
                Selection.Copy
            If r > 1 Then
                Rows("" & (i + 1) & ":" & (i + r - 1) & "").Select
            ElseIf r = 1 Then
                Rows("" & (i + 1) & ":" & (i + r) & "").Select
            End If
                Selection.Insert Shift:=xlDown
                Application.CutCopyMode = False
 
        ElseIf a > 0 Then
                Rows(i).Select
                Selection.Copy
            If a > 1 Then
                Rows("" & (i + 1) & ":" & (i + a - 1) & "").Select
            ElseIf a = 1 Then
                Rows("" & (i + 1) & ":" & (i + a) & "").Select
            End If
                Selection.Insert Shift:=xlDown
                Application.CutCopyMode = False
 
        Else: GoTo Top
        End If
 
Top:
    If r > 1 And a > 1 Then
    i = i + r + a - 2
    ElseIf r > 1 And a = 0 Then
    i = i + r - 1
    ElseIf r > 1 And a = 1 Then
    i = i + r - 1 + a
    ElseIf r = 0 And a > 1 Then
    i = i + a - 1
    ElseIf r = 0 And a = 1 Then
    i = i + a
    ElseIf r = 1 And a = 0 Then
    i = i + r
    ElseIf r = 1 And a = 1 Then
    i = i + a + r
    ElseIf r = 1 And a > 1 Then
    i = i + r + a - 1
    End If
 
 
 
fin2 = Range("A" & Rows.Count).End(xlUp).Row
 
    Next i
 
Application.ScreenUpdating = True
 
End Sub

Dans le code je vais compter le nombre de fois à l'agent est présent en tant que responsable et puis en tant qu'agents dans 2 colonnes différentes.

Après je vais créer autant de ligne que l'agent à de tâches à réaliser.

D'où le fait que la liste de départ des agents est de 30 et cette liste à la fin peut finir à 40. Or avec la boucle utilisé celle-ci s'arrête à la ligne 30. Et j'ai besoin de la valeur i pour faire passer à l'agent suivant si j'insère plusieurs lignes pour l'agent précédent.

J'espère être claire c'est assez difficile à expliquer, merci en tout cas pour le temps de vous m'accordez.

24/09/2018, 11h46
halaster08

Bonjour,

Utilise les balises code (bouton #) quand tu poste du code c'est beaucoup plus lisible.

Citation:

Jusque là tout va bien, cependant dans l'exécution de ma macro, celle-ci ajoute des lignes donc modifie le résultat de la variable "fin" dans la fenêtre variable locale mais pas dans la boucle de la macro.

C'est impossible de modifier la valeur de fin d'une boucle après le début de celle-ci.
Je rejoins Menhir il vaut mieux boucler "a l'envers" (step -1)
24/09/2018, 11h57
pijaku

Bonjour,

Dans ce cas, il convient de boucler avec une boucle Do ... Loop.
A lire...
24/09/2018, 13h09
thibeau67

Citation:

Envoyé par halaster08

Bonjour,

Utilise les balises code (bouton #) quand tu poste du code c'est beaucoup plus lisible.

C'est impossible de modifier la valeur de fin d'une boucle après le début de celle-ci.
Je rejoins Menhir il vaut mieux boucler "a l'envers" (step -1)

Bonjour,

J'y penserai merci pour le conseil.

Je vais tester votre solution et voir ce que cela peut donner.

Je vous remercie et vous tiens au courant.
26/09/2018, 10h15
thibeau67

Bonjour,

Je tenais à vous remercier, grâce à vos conseils j'ai réussi à faire ce que je recherchai via Step -1.

Bonne journée à vous.