supprimer doublons suivant valeur de 4 cellules

[jad73]

bonjour le forum

je voudrais supprimer les doublons des lignes des colonnes B a G mais seulement celles qui ont les meme valeurs en colonne C,D,E F.
çi-joint un bout fichier peut- etre plus explicite
merci

 

[pierrejean]

Re : supprimer doublons suivant valeur de 4 cellules

Bonjour jad73

Vois si cela te convient

 

[jad73]

code vba qui ferme excel lorsque je l'écécute

bonjour pierrejean,le forum
c'est parfait,cela me convient trés bien.
j'en profite,j'ai un code vba qui lorsque je l'éxécute ferme excel,de quoi cela peut-il venir
voici le code
merci

Sub Combinaison()
Dim I As Long, K As Long, M As Long, N As Long, O As Long
Dim NbMax As Long
Dim Tablo(1 To 70, 1 To 70, 1 To 70, 1 To 70, 1 To 70) As Long
Dim J As Long
Dim Resultat(1 To 1, 1 To 6)
Dim Tbl1
Dim Nombre As Long

Application.ScreenUpdating = False
Tbl1 = Range("BdD")
NbMax = UBound(Tbl1, 2)

For J = 1 To UBound(Tbl1)
For I = 1 To NbMax - 4
For K = I + 1 To NbMax - 3
For M = K + 1 To NbMax - 2
For N = M + 1 To NbMax - 1
For O = N + 1 To NbMax
Tablo(Tbl1(J, I), Tbl1(J, K), Tbl1(J, M), Tbl1(J, N), Tbl1(J, O)) = Tablo(Tbl1(J, I), Tbl1(J, K), Tbl1(J, M), Tbl1(J, N), Tbl1(J, O)) + 1
Next O
Next N
Next M
Next K
Next I
Next J

For Nombre = 1 To 70
Resultat(1, 6) = 0
For I = 1 To 70
For K = 1 To 70
For M = 1 To 70
For N = 1 To 70
For O = 1 To 70
If I = Nombre Or K = Nombre Or M = Nombre Or N = Nombre Or O = Nombre Then
If Tablo(I, K, M, N, O) > Resultat(1, 6) Then
Resultat(1, 1) = I
Resultat(1, 2) = K
Resultat(1, 3) = M
Resultat(1, 4) = N
Resultat(1, 5) = O
Resultat(1, 6) = Tablo(I, K, M, N, O)
End If
End If
Next O
Next N
Next M
Next K
Next I
Cells(1 + Nombre, "X").Resize(1, 6) = Resultat
Next Nombre
End Sub