Discussion :

[FFGUY]

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 :

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
 
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

[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 :

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

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 :

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

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.

[FFGUY]

Merci beaucoup pour votre aide precieuse.

[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 :

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

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 :

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

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