problème de boucles for next imbriquées en vba
Bonjour,
je suis en train de tenter de comparer deux fichiers Excel sur l'égalité de deux colonnes. Quand on trouve la même valeur de ces deux colonnes dans une ligne de la feuille A et de la feuille B, on copie ces deux lignes à la suite dans une feuille doublon, sinon, on ne copie que la ligne de la feuille A dans une feuille importable. Ensuite, on travaillera à la main sur la feuille doublon et on complètera la feuille "importable", mais cela est une autre histoire. Pour le moment, j'ai écrit le code suivant mais je reçois une erreur "il manque un for avant le next". Pourtant, il me semble avoir précisé la variable pour chaque boucle. Où est l'erreur? Merci.
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
| Sub Remplissage_doublons_simples()
'définition des variables
Dim li As String
li = 1
Dim ld As String
Dim ln As String
Dim la As String
Dim cola As String
Dim cold As String
'nombre de lignes de "nouveau"
ln = 1
While Worksheets("Nouveau").Cells(ln, 1) <> ""
ln = ln + 1
Wend
' nombre de ligne de "actuel"
la = 1
While Worksheets("Actuel").Cells(la, 1) <> ""
la = la + 1
Wend
'Recherche dans les lignes de "nouveau"
For lign_var = 2 To ln
For lign_varr = 2 To la
If Worksheets("Nouveau").Cells(lign_var, 5) = Worksheets("Actuel").Cells(lign_varr, 7) And Worksheets("Nouveau").Cells(lign_var, 2) = Worksheets("Actuel").Cells(lign_varr, 2) Then
For coli = 1 To 10
Worksheets("Importable").Cells(li, coli) = Worksheets("Nouveau").Cells(lign_var, coli)
Next coli
li = li + 1
Else
For coln = 1 To 10
Worksheets("Doublons").Cells(ld, coln) = Worksheets("Actuel").Cells(lign_var, coln)
Worksheets("Doublons").Cells(ld + 1, coln) = Worksheets("Actuel").Cells(lign_var, coln)
Next coln
ld = ld + 2
Next lign_varr
Next lign_var
End Sub |
