Pb suppression des doublons VBA Programe casi fait

francedemo

XLDnaute Occasionnel

• 30 Mai 2012

• #2

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

à +

 

Vote positif 0 Vote négatif

A

amauryde

XLDnaute Occasionnel

• 30 Mai 2012

• #3

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 🙂

 

Pièces jointes

• Test doublon.xlsm

  17.1 KB · Affichages: 174
• Test doublon.xlsm

  17.1 KB · Affichages: 195
• Test doublon.xlsm

  17.1 KB · Affichages: 213

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 30 Mai 2012

• #4

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

 

Dernière édition: 30 Mai 2012

Vote positif 0 Vote négatif

A

amauryde

XLDnaute Occasionnel

• 30 Mai 2012

• #5

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

 

Dernière édition: 30 Mai 2012

Vote positif 0 Vote négatif

A

amauryde

XLDnaute Occasionnel

• 30 Mai 2012

• #6

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 30 Mai 2012

• #7

Re : Pb suppression des doublons VBA Programe casi fait

re

à essayer

Code:

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

 

Vote positif 0 Vote négatif

A

amauryde

XLDnaute Occasionnel

• 30 Mai 2012

• #8

Re : Pb suppression des doublons VBA Programe casi fait

merci je teste 🙂

 

Vote positif 0 Vote négatif

A

amauryde

XLDnaute Occasionnel

• 30 Mai 2012

• #9

Re : Pb suppression des doublons VBA Programe casi fait

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 30 Mai 2012

• #10

Re : Pb suppression des doublons VBA Programe casi fait

bonjour tous 🙂🙂🙂🙂

une facon de l'ecrire

Code:

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🙂

 

Dernière édition: 30 Mai 2012

Vote positif 0 Vote négatif

A

amauryde

XLDnaute Occasionnel

• 30 Mai 2012

• #11

Re : Pb suppression des doublons VBA Programe casi fait

MERCI a toi aussi 😎

 

Vote positif 0 Vote négatif