Pb suppression des doublons VBA Programe casi fait

[amauryde]

Bonjour le forum,

Voila j'ai créé un programme me permettant de supprimer les doublons, jusqu'ici tout va bien 🙂

Le problème est que je n'arrive pas à faire en sorte qu'il prenne en compte les réponse de la deuxième colonne, je m'explique.

Dans cette exemple:
- ligne 6 et 7 identiques => suppression= parfait 🙂
- ligne 6 et 8 non identiques par la colonne B qui diffère=> suppression= problème 🙁

Sachant que mon fichier aura X colonnes et que le programme devra les prendre en compte pour ne pas supprimer des lignes qui ne sont pas exactement identiques, J'ai eu beau chercher sur les autres discussions...

Merci à vous

 

[francedemo]

Re : Pb suppression des doublons VBA Programe casi fait

bonjour,
tiens, j'étais juste en train de regarder comment il fallait faire :

Formation Excel VBA JB

tu vas dans "doublon" et tu y trouveras pleins de solutions ...

à +

 

[amauryde]

Re : Pb suppression des doublons VBA Programe casi fait

merci j'ai touver un programme qui convient... mais en l'exécutant j'obtiens "erreur 400" ???

Si quelqu'un peut regarder 🙂

 

[ERIC S]

Re : Pb suppression des doublons VBA Programe casi fait

Bonjour

c'est parce que tu as 1 ligne vide entre tes titres et les données

modif : en fait j'ai dit une bêtise, sous tes intitulés de colonne, tu as des cellules fusionnées...

 

[amauryde]

Re : Pb suppression des doublons VBA Programe casi fait

merci de t'y intéresser mais cette ligne (si on parle de la même) n'est pas vide 🙂, il y a une écriture de couleur blanche donc que l'on ne voit pas qui me sert pour un autre programme.
Ce que j'essaye donc de faire est de commencer mon programme en A4 mais rien à faire...

modif: en défusionnant même pb

 

[amauryde]

Re : Pb suppression des doublons VBA Programe casi fait

Peut être une erreur de ma part mais: je me base sur le deuxième fichier que j'ai envoyé (qui porte certes le même nom que le premier mais qui a un code différent: il prend en compte les deux première colonne et non seulement la première)

En espérant que vous réfléchissez sur le deuxième :S

 

[ERIC S]

Re : Pb suppression des doublons VBA Programe casi fait

re

à essayer

Sub supDoublonsTradi()
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
   derligne = Range("a" & Rows.Count).End(xlUp).Row
   Range("A4:B" & derligne).Select
    Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Key2:=Range("B4") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
   For i = Range("A65535").End(xlUp).Row To 2 Step -1
     If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2) Then Rows(i).Delete
   Next i
   Application.Calculation = xlCalculationAutomatic
End Sub

j'ai aussi modifié la ligne delete pour effacer si les données sont identiques en A et B

 

[amauryde]

Re : Pb suppression des doublons VBA Programe casi fait

merci je teste 🙂

 

[amauryde]

Re : Pb suppression des doublons VBA Programe casi fait

ça marche merci à vous deux je vous dois une fière chandelle 🙂

 

[laetitia90]

Re : Pb suppression des doublons VBA Programe casi fait

bonjour tous 🙂🙂🙂🙂

une facon de l'ecrire

Sub es()
 Dim m As Object, i As Long, z As Variant
  Application.ScreenUpdating = False
  Set m = CreateObject("Scripting.Dictionary")
  For i = Cells(Rows.Count, 1).End(xlUp).Row To 4 Step -1
  z = Cells(i, 1) & Cells(i, 2)
  If Not m.Exists(z) Then m.Add z, z Else Rows(i).Delete
  Next i
End Sub

suffisant sur une petite plage ??? autrement il faut ecrire differament🙂

 

[amauryde]

Re : Pb suppression des doublons VBA Programe casi fait

MERCI a toi aussi 😎