Ordre d'exécution du script

Version imprimable

Bonjour le forum,

Je m'embrouille avec la définition de l'ordre d'exécution du script:

Code:

1
2
3
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastLig To 2 Step -1
For j = i - 1 To 2 Step -1

C'est censé fonctionner de bas en haut et en tant que codeur très débutant ça me déstabilise un tant soit peu... :?

Voici le script:

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
Sub IF_written()
 
    Dim Cell As Range
    Dim LastLig As Long, i As Long, j As Long
 
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastLig To 2 Step -1
For j = i - 1 To 2 Step -1
 
    For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
 
If Cells(i, 2) = Cells(j, 2) Then
Cells(i, 7) = "keep"
 
If Cells(i, 2) <> Cells(j, 2) Then
Cells(i, 7) = "delete"
 
End If
End If
 
Next
Next
Next
 
End Sub

J'ai besoin de comprendre le sens de:

Code:

1
2
3
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastLig To 2 Step -1
For j = i - 1 To 2 Step -1

Pouvez-vous me traduire cela?

Merci

Bonjour,

Code:

LastLig = Cells(Rows.Count, 1).End(xlUp).Row

Renvoie le numéro de la dernière ligne de la plage (imaginons que le résultat est 100).

Code:

For i = LastLig To 2 Step -1

Exécute une boucle : pour i = 100 jusque 2 (décrémentation de 1 à chaque passage dans la boucle)

Code:

For j = i-1 To 2 Step -1

Même principe que pour la boucle précédente (sauf qu'elle va démarrer à 99).

Mais finalement, si j'ai bien compris, il devrait suffire de :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub IF_written() Dim Cell As Range Dim LastLig As Long, i As Long LastLig = Cells(Rows.Count, 1).End(xlUp).Row For i = LastLig To 2 Step -1 'For j = i - 1 To 2 Step -1 (inutile) 'For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row) (inutile) If Cells(i, 2) = Cells(i - 1, 2) Then Cells(i, 7) = "keep" Else Cells(i, 7) = "delete" End If Next End Sub
Cela en respectant votre principe, mais j'ai un doute sur l'affectation de "keep" ou "delete", suivant l'égalité constatée ou non.

Bonjour jacques_jean,

Merci pour ces explications ainsi que les modifications opérées sur mon script.
J'avais conscience qu'il était envisageable d'utiliser Else au lieu de redéfinir un IF mais comme je pataugeais avec l'ordre d'éxecution j'avais opté pour une répétition (certe plus lourde mais plus claire pour le débutant que je suis).

J'ai finalement juste eu besoin d'intervertir les attributions "keep" et "delete" et tout fonctionne parfaitement voici le résultat:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub IF_written() Dim Cell As Range Dim LastLig As Long, i As Long LastLig = Cells(Rows.Count, 1).End(xlUp).Row For i = LastLig To 2 Step -1 If Cells(i, 2) = Cells(i - 1, 2) Then Cells(i, 7) = "delete" Else Cells(i, 7) = "keep" End If Next End Sub
Encore merci!