Discussion :

[Daniela_]

Bonjour,

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

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

[Invité]

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

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

[EngueEngue]

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

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

[Invité]

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

[Daniela_]

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

Pourquoi c'est n'importe quoi ?

[EngueEngue]

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