Discussion :

[derouteu]

Bonjour le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

[derouteu]

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 :

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