Erreur Loop Next for

Version imprimable

Bonjour,

Je ne comprends pas pourquoi, j obtiens le message d erreur "Next without for" lorsque j execute la MACRO suivante. QQun pourrait il m aider.
#Merci d avance.

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
 
Sub Clean_Tiering()
Dim i, j, o, p As Long, n, k, m As Long
n = Range("a1").End(xlDown).Row
k = Range("C1").End(xlDown).Row
m = Range("E1").End(xlDown).Row
 
For i = n To 3 Step -1
    For j = k To 3 Step -1
        For o = m To 3 Step -1
            For p = 2 To 54
                If Cells(i, "A") = Cells(j, "D") Then
                    If Cells(j, "D") = Cells(o, "G") Then
                    Cells(i, "A").Copy
                    Cells(p, "J").Paste
                    Cells(i, "B").Copy
                    Cells(p, "K").Paste
                    Cells(j, "E").Copy
                    Cells(p, "L").Paste
                    Cells(o, "H").Copy
                    Cells(p, "M").Paste
            Next p
        Else: Next o
                    End If
    Else: Next j
                End If
Next i
End Sub

29/01/2013, 17h25
Philippe Tulliez
Bonjour,
D'après moi et à la première lecture (sans avoir testé) le End IF est en dessous du Next P alors que le IF est dans la boucle P et sans doute l'autre End If devra aussi être remonté.
Ton code est bien indenté, c'est assez visible
Code:

1 2 3 4 5 For A = .... If condtion (code) End if Next A
Autre chose qui n'a rien à voir avec ta question. Plutôt que d'utiliser les Copy/Paste, utilise
Code:

1 2 3 4 Cells(i, "A").Copy Cells(p, "J") Cells(i, "B").Copy Cells(p, "K") Cells(j, "E").Copy Cells(p, "L") Cells(o, "H").Copy Cells(p, "M")
c'est plus court et plus rapide.
Il serait aussi plus prudent de précise quel classeur et quelle feuille, ceci pour éviter les catastrophes.
29/01/2013, 18h14
FFGUY

Merci beaucoup pour votre aide precieuse.
29/01/2013, 18h32
jazzybluesy
Petite précisions supplémentaires :

1) Dans la déclaration de vos variable, vous ne donnez le type que de p et de m.

Il faut que vous ecriviez a chaque fois "As Long" sinon vos autres variables seront des "Variant".

Donc il faut ecrire :
Code:

1 2 Dim i as Long, j As Long, o As Long, p As Long ...
2)Vos copy paste sont tres lourds pour Excel inutilement
Ecrivez juste :
Code:

1 2 3 4 Cells(i,1) = Cells(p,10) Cells(i,2) = Cells(p,11) ...
Ca ira beaucoup plus vite vous verrez ;)

3) Mettez juste apres le Sub:
Application.ScreenUpdating = False
et à la fin avant End Sub :
Application.ScreenUpdating = True

La vous aurez enfin quelque chose de correct