[XL-2010] Problème de Next sans For

Problème de Next sans For

Bonjour,

Mon piètre niveau ne me permets pas de me dépatouiller de ce problème normallement simple de Next sans For dans une boucle...
J'ai lu différents posts, j'ai essayé de structurer mes blocs mais rien à faire, cette boucle n'est pas correcte (Pour info, RefAccount est défini en amont de cette partie là du code) :

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
'Passer les données en colonne à des données en ligne
 
    With Sheets("Données d'entrée")
 
    j = 2
 
        For i = 4 To .Range(.Rows.Count, 1).End(xlUp).Row
 
            If IsEmpty(.Cells(i, 1)) = True Then
               Next i
            ElseIf IsEmpty(.Cells(i, 6)) = False And IsEmpty(.Cells(i, 7)) = False Then
               Sheets("Données de sortie").Range("A" & j).Value = RefAccount
               .Cells(i, 3).Copy Sheets("Données de sortie").Range("C" & j)
               .Cells(i, 4).Copy Sheets("Données de sortie").Range("D" & j)
               .Cells(i, 6).Copy Sheets("Données de sortie").Range("B" & j)
               j = j + 1
               .Cells(i, 1).Copy Sheets("Données de sortie").Range("A" & j)
               .Cells(i, 3).Copy Sheets("Données de sortie").Range("C" & j)
               .Cells(i, 4).Copy Sheets("Données de sortie").Range("D" & j)
               .Cells(i, 6).Copy Sheets("Données de sortie").Range("B" & j)
               j = j + 1
               .Cells(i, 1).Copy Sheets("Données de sortie").Range("A" & j)
               .Cells(i, 3).Copy Sheets("Données de sortie").Range("C" & j)
               .Cells(i, 4).Copy Sheets("Données de sortie").Range("D" & j)
               .Cells(i, 7).Copy Sheets("Données de sortie").Range("B" & j)
               j = j + 1
            ElseIf IsEmpty(.Cells(i, 6)) = False And IsEmpty(.Cells(i, 7)) = True Then
               Sheets("Données de sortie").Range("A" & j).Value = RefAccount
               .Cells(i, 3).Copy Sheets("Données de sortie").Range("C" & j)
               .Cells(i, 4).Copy Sheets("Données de sortie").Range("D" & j)
               .Cells(i, 6).Copy Sheets("Données de sortie").Range("B" & j)
               j = j + 1
               .Cells(i, 1).Copy Sheets("Données de sortie").Range("A" & j)
               .Cells(i, 3).Copy Sheets("Données de sortie").Range("C" & j)
               .Cells(i, 4).Copy Sheets("Données de sortie").Range("D" & j)
               .Cells(i, 6).Copy Sheets("Données de sortie").Range("B" & j)
               j = j + 1
            Else
               Sheets("Données de sortie").Range("A" & j).Value = RefAccount
               .Cells(i, 3).Copy Sheets("Données de sortie").Range("C" & j)
               .Cells(i, 4).Copy Sheets("Données de sortie").Range("D" & j)
               .Cells(i, 7).Copy Sheets("Données de sortie").Range("B" & j)
               j = j + 1
               .Cells(i, 1).Copy Sheets("Données de sortie").Range("A" & j)
               .Cells(i, 3).Copy Sheets("Données de sortie").Range("C" & j)
               .Cells(i, 4).Copy Sheets("Données de sortie").Range("D" & j)
               .Cells(i, 7).Copy Sheets("Données de sortie").Range("B" & j)
               j = j + 1
            End If
 
        Next i
 
    End With

Ca bloque sur ce Next là :

Code:

1
2
3
4
For i = 4 To .Range(.Rows.Count, 1).End(xlUp).Row
 
            If IsEmpty(.Cells(i, 1)) = True Then
               Next i

J'ai essayé ça, sans succès non plus...

Code:

1
2
3
4
For i = 4 To .Range(.Rows.Count, 1).End(xlUp).Row
 
            If IsEmpty(.Cells(i, 1)) = True Then
        Next i

Je sèche...

Est-ce qu'une âme charitable et patiente pourrait m'expliquer pourquoi ça coince SVP ???
Je vous remercie grandement d'avance et vous souhaite une bonne soirée, ainsi qu'un excellent WE !

Bonsoir,

il ne faut qu'un seul Next par FOR tu en as 2, supprime et supprime en même temps ton premier IF inutile vu que tu ne fais rien si vrai ...

Code:

1
2
3
4
5
6
7
8
9
       If IsEmpty(.Cells(i, 1)) = True Then
               Next i
            ElseIf IsEmpty(.Cells(i, 6)) = False And IsEmpty(.Cells(i, 7)) = False Then
               Sheets("Données de sortie").Range("A" & j).Value = RefAccount
               .Cells(i, 3).Copy Sheets("Données de sortie").Range("C" & j)
          (..)
        Next i
 
    End With

devient :

Code:

1
2
3
4
5
6
7
       If IsEmpty(.Cells(i, 1)) = False And IsEmpty(.Cells(i, 6)) = False And IsEmpty(.Cells(i, 7)) = False Then
               Sheets("Données de sortie").Range("A" & j).Value = RefAccount
               .Cells(i, 3).Copy Sheets("Données de sortie").Range("C" & j)
          (..)
        Next i
 
    End With

Merci beaucoup pour cette réponse bbil pour cette réponse claire, et qui fonctionne, je n'aurai jamais trouvé. C'est pourtant logique...
Ca bloque sur autre chose mais je vais essayer de trouver tout seul, c'est le meilleur moyen de progresser !
Encore mille mercis en tout cas :)