Bonjour à tous,
Je suis debutant en VBA, J’ai écris un programme en VBA (Excel), j’essais de supprimer les lignes qui contiennes des données identiques dans les colonnees B et C). Si cela n'est pas possible alors, j'accepte chaque methode pour supprimer une ligne doublante.

Pouvez-vous m’aider à trouver la solution SVP ???

Merci de votre aide

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
43
44
45
46
47
48
49
50
51
Sub Delete_Double_Linges_3() 
 
Dim Projet1 As Range 
Dim Phase1 As Range 
 
Dim Projet1_line_suivante As Range 
Dim Phase2_line_suivante As Range 
 
Dim lines As Integer 
 
 
' Un tri sur la colonne D3 (Date) 
 
Worksheets("Courant-1").Range("D3").Sort _ 
Key1:=Worksheets("Courant-1").Range("D3"), _ 
Order1:=xlDescending, Header:=xlGuess 
 
Set Projet1 = Sheets("Courant-1").Cells(1, 2) 
Set Phase1 = Sheets("Courant-1").Cells(1, 3) 
 
 
lines = 1 
 
Lines_Suivante: 
 
 
Do While Not IsEmpty(Projet1) 
lines = lines + 1 
 
Set Projet1_line_suivante = Sheets("Courant-1").Cells(lines, 2) 
 
Set Phase1_line_suivante = Sheets("Courant-1").Cells(lines, 3) 
 
 
If Projet1.Value = Projet1_line_suivante.Value And Phase1.Value = Phase1_line_suivante.Value Then 
 
Projet1.EntireRow.Delete 
 
GoTo Lines_Suivante 
 
 
End If 
 
Projet1 = Projet1_line_suivante 
Phase1 = Phase1_line_suivante 
GoTo Lines_Suivante 
 
 
Loop 
 
End Sub