Discussion :

[antfo]

bonjour, ma macro contient une forme de bug
celle ci est assez simple, elle copie une ligne i et la colle 9 fois en dessous de la ligne i (puis applique des modifs à l'une des cases)
afin de faire cela dans l'ordre, le programme va toujours chercher la meme ligne de facon redondante. hors de facon récurente le programme insert une ligne placé 4 ou 5 ligne plus haut (en passant par la partie en rouge.)
auriez vous une explication


macro :

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
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
Sub duplicate()

Dim i As Integer

For i = [470] To [2] Step -1

    If Cells(i, 4) <> Cells(i - 1, 4) Then
        If Right(Left(Cells(i, 4), 3), 1) = "1" And Right(Cells(i, 4), 1) = "2" Then
    
            Rows(i - 1).Select
            Selection.Copy
            Selection.Insert
            Cells(i, 5).Select
            Selection = Left(Cells(i, 4), 3) & "C09"
    
            Rows(i).Select
            Selection.Copy
            Selection.Insert
            Cells(i, 5).Select
            Selection = Left(Cells(i, 4), 3) & "C09"
    
            Rows(i + 1).Select
            Selection.Copy
            Selection.Insert
            Cells(i, 5).Select
            Selection = Left(Cells(i, 4), 3) & "C09"
    
        End If
    
        Rows(i - 1).Select
        Selection.Copy
        Selection.EntireRow.Insert
        Cells(i, 5).Select
        Selection = Left(Cells(i, 5), 6) & "A03"
    
        Rows(i - 1).Select
        Selection.Copy
        Selection.EntireRow.Insert
        Cells(i, 5).Select
        Selection = Left(Cells(i, 5), 6) & "A03"
        
        Rows(i - 1).Select
        Selection.Copy
        Selection.Insert
        Cells(i, 5).Select
        Selection = Left(Cells(i, 5), 6) & "A03"
        
        Rows(i - 1).Select
        Selection.Copy
        Selection.Insert
        Cells(i, 5).Select
        Selection = Left(Cells(i, 5), 6) & "A02"
        
        Rows(i - 1).Select
        Selection.Copy
        Selection.Insert
        Cells(i, 5).Select
        Selection = Left(Cells(i, 5), 6) & "A02"
        
        Rows(i - 1).Select
        Selection.Copy
        Selection.Insert
        Cells(i, 5).Select
        Selection = Left(Cells(i, 5), 6) & "A02"
        
        Rows(i - 1).Select
        Selection.Copy
        Selection.Insert
        Cells(i, 5).Select
        Selection = Left(Cells(i, 5), 6) & "A01"
        
        Rows(i - 1).Select
        Selection.Copy
        Selection.Insert
        Cells(i, 5).Select
        Selection = Left(Cells(i, 5), 6) & "A01"
        
        Rows(i - 1).Select
        Selection.Copy
        Selection.Insert
        Cells(i, 5).Select
        Selection = Left(Cells(i, 5), 6) & "A01"        
    End If

Next i

End Sub

[ucfoutu]

Bonjour,

C'est tout simplement parce-que tu te fais des croche-pieds avec la boucle For... to
Utilise plutot une boucle While en remontant du bas vers le haut et décale vers le haut, lorsque tu insères, du nombre le lignes insérées.
Ta boucle do while doit donc démarrer à la ligne 470 et continuer tant que le n+ de ligne est inférieur à 3 (2 + 1)
Simulacre en français, en mécanisme simplifié...
.
- je pars de la ligne 422 et boucle tant que pas sur ligne < 3

- Boucle, donc, jusqu'à arriver à la ligne 3
- je lis la ligne en cours et la compare à celle du dessus
- si j'insère n lignes, je fais un offset de -n lignes
- fin boucle

Ceci étant dit : il me semple que tu aurais plutôt intérêt à t'intéresser, par ailleurs à la méthode :

Code :

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

expression.Insert(Décalage, CopierOrigine)

ou expression représente un range

(vois ce que c'est dans ton aide en ligne...)

EDIT :
Tu comprendras mieux maintenant pourquoi je te posais hier une question (restée sans réponse) ici :

http://www.developpez.net/forums/d84...gne-condition/

2) soit très précis

Citation:
"est differente de la meme cellule de la ligne superieur, de copier et d'inserer cette ligne 8 fois en dessous "
Fin de citation

"en dessous" de quoi, très exactement ? de la ligne en cours ? de la ligne au-dessus ? tout en bas de tout ?

Je voyais venir le coup des croches-pieds ....