Probleme en VBA Excel : supprimer une ligne doublante

Version imprimable

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:cry: :cry: SVP ???

Merci de votre aide

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

Bonjour
je n'ai pas essayé le rpogramme, maistu peux essayer ce programme là:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
'on va commencer par compter le nombre de ligne en supposant que ta liste commence à la ligne 2 et qu'il  n'y a pas de valeur manquante dans la colonne A
ligne=2
while worksheets("Courant-1").cells(ligne,1)<>"" 
ligne=ligne+1
wend
 
'on compare ligen  à ligne et on supprime s'il y a doublon
for i=3 to ligne
if worksheets("courant-1").cells(i,2)=worksheets("Courant-1").cells(i-1,2) or worksheets("Courant-1").cells(i,3) =worksheets("courant-1").cells(i-1,3) then
worksheets("Courant-1").range(i).select
selection.delete
end if
next i

:roll:

Une autre solution couplant les formules et le vba

dans une colonne inserer la formule

Code:

=CONCATENER(B2;C2)

Dans la colonne de droite a celle contenant la formule ci dessus

Code:

=NB.SI($D$2:D2;$D2)

Puis dans une sub de la feuille
Ce code supprimera les doublons
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim i As Double i = 2 Do While Not Range("B" & i).Value = "" If Range("E" & i).Value > 1 Then Me.Rows(i).Delete i = i - 1 End If i = i + 1 Loop