Syntax error IF AND IF THEN AND AND

Version imprimable

Bonjour,

Je rencontre le message d'erreur "syntax error" pour le code suivant :

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
Sub Macro1()
Dim i, j As Integer
 
For i = 2 To 5295
For j = 2 To 359
 
If Sheets("SCL").Cells(i, 2).Value = Sheets("Feuil1).Cells(j, 2).Value And
Sheets("SCL").Cells(i, 64).Value = Sheets("Feuil1").Cells(j, 18).Value Then
Sheets("SCL").Cells(i, 70).Value = Sheets("Feuil1").Cells(i, 20).Value And
Sheets("SCL").Cells(i, 35).Value = Sheets("Feuil1").Cells(i, 24).Value And
Sheets("SCL").Cells(i, 36).Value = Sheets("Feuil1").Cells(i, 25).Value And
Sheets("SCL").Cells(i, 37).Value = Sheets("Feuil1").Cells(i, 26).Value And
 
Sheets("SCL").Cells(i, 40).Value = Sheets("Feuil1").Cells(i, 27).Value And
Sheets("SCL").Cells(i, 41).Value = Sheets("Feuil1").Cells(i, 28).Value And
Sheets("SCL").Cells(i, 42).Value = Sheets("Feuil1").Cells(i, 29).Value And
 
Sheets("SCL").Cells(i, 44).Value = Sheets("Feuil1").Cells(i, 30).Value And
Sheets("SCL").Cells(i, 45).Value = Sheets("Feuil1").Cells(i, 31).Value And
Sheets("SCL").Cells(i, 46).Value = Sheets("Feuil1").Cells(i, 32).Value And
 
Sheets("SCL").Cells(i, 47).Value = Sheets("Feuil1").Cells(i, 33).Value And
Sheets("SCL").Cells(i, 48).Value = Sheets("Feuil1").Cells(i, 34).Value And
Sheets("SCL").Cells(i, 49).Value = Sheets("Feuil1").Cells(i, 35).Value And
 
Sheets("SCL").Cells(i, 58).Value = Sheets("Feuil1").Cells(i, 36).Value And
Sheets("SCL").Cells(i, 59).Value = Sheets("Feuil1").Cells(i, 37).Value And
Sheets("SCL").Cells(i, 60).Value = Sheets("Feuil1").Cells(i, 38).Value And
 
Rows("i:i").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
 
Next j
Next i
End Sub

Pouvez-vous m'aider sur la syntaxe svp ?

Merci bien,

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
Sub Macro1()
Dim i, j As Integer
 
For i = 2 To 5295
For j = 2 To 359
 
If Sheets("SCL").Cells(i, 2).Value = Sheets("Feuil1").Cells(j, 2).Value And _
Sheets("SCL").Cells(i, 64).Value = Sheets("Feuil1").Cells(j, 18).Value And _
Sheets("SCL").Cells(i, 70).Value = Sheets("Feuil1").Cells(i, 20).Value And _
Sheets("SCL").Cells(i, 35).Value = Sheets("Feuil1").Cells(i, 24).Value And _
Sheets("SCL").Cells(i, 36).Value = Sheets("Feuil1").Cells(i, 25).Value And _
Sheets("SCL").Cells(i, 37).Value = Sheets("Feuil1").Cells(i, 26).Value And _
Sheets("SCL").Cells(i, 40).Value = Sheets("Feuil1").Cells(i, 27).Value And _
Sheets("SCL").Cells(i, 41).Value = Sheets("Feuil1").Cells(i, 28).Value And _
Sheets("SCL").Cells(i, 42).Value = Sheets("Feuil1").Cells(i, 29).Value And _
Sheets("SCL").Cells(i, 44).Value = Sheets("Feuil1").Cells(i, 30).Value And _
Sheets("SCL").Cells(i, 45).Value = Sheets("Feuil1").Cells(i, 31).Value And _
Sheets("SCL").Cells(i, 46).Value = Sheets("Feuil1").Cells(i, 32).Value And _
Sheets("SCL").Cells(i, 47).Value = Sheets("Feuil1").Cells(i, 33).Value And _
Sheets("SCL").Cells(i, 48).Value = Sheets("Feuil1").Cells(i, 34).Value And _
Sheets("SCL").Cells(i, 49).Value = Sheets("Feuil1").Cells(i, 35).Value And _
Sheets("SCL").Cells(i, 58).Value = Sheets("Feuil1").Cells(i, 36).Value And _
Sheets("SCL").Cells(i, 59).Value = Sheets("Feuil1").Cells(i, 37).Value And _
Sheets("SCL").Cells(i, 60).Value = Sheets("Feuil1").Cells(i, 38).Value Then
 
Rows("i:i").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
 
Next j
Next i
End If
End Sub

20/09/2013, 14h35
Daniela_

rdurupt,

Tu as changé ce que je voulais faire :

Je veux remplacer les valeurs de 16 colonnes et ensuite les surligner en rouge pour voir les colonnes dont les valeurs ont changé.

Il faut mettre le Then après les deux premières conditions If.

Ton code c'est n'importe quoi....

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 Macro1()
Dim i, j As Integer
 
For i = 2 To 5295
For j = 2 To 359
 
If Sheets("SCL").Cells(i, 2).Value = Sheets("Feuil1").Cells(j, 2).Value And Sheets("SCL").Cells(i, 64).Value = Sheets("Feuil1").Cells(j, 18).Value Then
    Sheets("SCL").Cells(i, 70).Value = Sheets("Feuil1").Cells(i, 20).Value
    Sheets("SCL").Cells(i, 35).Value = Sheets("Feuil1").Cells(i, 24).Value
    Sheets("SCL").Cells(i, 36).Value = Sheets("Feuil1").Cells(i, 25).Value
    Sheets("SCL").Cells(i, 37).Value = Sheets("Feuil1").Cells(i, 26).Value
    Sheets("SCL").Cells(i, 40).Value = Sheets("Feuil1").Cells(i, 27).Value
    Sheets("SCL").Cells(i, 41).Value = Sheets("Feuil1").Cells(i, 28).Value
    Sheets("SCL").Cells(i, 42).Value = Sheets("Feuil1").Cells(i, 29).Value
    Sheets("SCL").Cells(i, 44).Value = Sheets("Feuil1").Cells(i, 30).Value
    Sheets("SCL").Cells(i, 45).Value = Sheets("Feuil1").Cells(i, 31).Value
    Sheets("SCL").Cells(i, 46).Value = Sheets("Feuil1").Cells(i, 32).Value
    Sheets("SCL").Cells(i, 47).Value = Sheets("Feuil1").Cells(i, 33).Value
    Sheets("SCL").Cells(i, 48).Value = Sheets("Feuil1").Cells(i, 34).Value
    Sheets("SCL").Cells(i, 49).Value = Sheets("Feuil1").Cells(i, 35).Value
    Sheets("SCL").Cells(i, 58).Value = Sheets("Feuil1").Cells(i, 36).Value
    Sheets("SCL").Cells(i, 59).Value = Sheets("Feuil1").Cells(i, 37).Value
    Sheets("SCL").Cells(i, 60).Value = Sheets("Feuil1").Cells(i, 38).Value
 
    Rows("i:i").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
 
Next j
Next i
End Sub

20/09/2013, 14h41
Invité

Citation:

Envoyé par Daniela_

rdurupt,

Tu as changé ce que je voulais faire :

Je veux remplacer les valeurs de 16 colonnes et ensuite les surligner en rouge pour voir les colonnes dont les valeurs ont changé.

Il faut mettre le Then après les deux premières conditions If.

ce n'est pas improbable:massacre:
20/09/2013, 14h47
Daniela_

En fait j'avais oublié le " sur la première ligne...:cry:

Pourquoi c'est n'importe quoi ?
20/09/2013, 15h03
EngueEngue

parce que tu mets des and à la fin de chaque ligne