XL 2010 Gestion des doublons par macro

Profane

XLDnaute Occasionnel
Bonjour
une question sur cette macro, qui fonctionne très bien si le range "a", contient des doublons(en les supprimant) mais me génère une erreur si des lignes "uniques" existent
j'ai beau rajouter la ligne "on resume next", ca foire allégrement...
d avance merci pour vos lumiéres

Sub VAL1()
'sans doublons trié
Dim temp()
Set f = Sheets("Fiches_Incident")
Set mondicoSD = CreateObject("Scripting.Dictionary")
a = Range(f.[A1], f.[A65000].End(xlUp)).Value
For Each c In a
On Error Resume Next
mondicoSD(c) = ""
Next c
Set dest = f.Range("C2")
dest.Resize(mondicoSD.Count, 1) = Application.Transpose(mondicoSD.keys)
dest.Resize(mondicoSD.Count, 1).Sort Key1:=dest, Order1:=xlAscending
Set mondicoSD = Nothing ' libère mondico
f.Range("C1") = "Liste sans doublons"
End Sub
 

pierrejean

XLDnaute Barbatruc
Bonjour Profane

Testée chez moi cette macro fonctionne parfaitement dans tous les cas (j'ai tout de même du l'intituler différemment sinon elle me sélectionnait la cellule VA1)
 

laetitia90

XLDnaute Barbatruc
bonjour profane ,l'ami pierre jean:):):)
apporte rien au post seulement faire un bisou a mon ami :):):):) que j'ai pas "croise" depuis un moment

autrement pas de pb... idem chez moi

la ligne pas "partout"
On Error Resume Next

on la met en debut de macro
de loin préferer un gestionnaire d'erreurs mais il faut bosser un peu:rolleyes:
c'est quoi cette declaration de variable qui existe pas!!!! Dim temp()

par contre on voit pas f =Worksheet :mondicoSD =object :a=a() :c =range ou variant
 

Profane

XLDnaute Occasionnel
Bonjour
désolé pour la réponse tardive,
en fait après vérification l erreur venait du fait que je prenais A1 en référence (titre de la colonne) et
lors d'autres macro que j appelais pour de la mise en forme suivant cette macro
et bien ça générait l erreur sur cette macro...

en corrigeant en A2, plus de soucis
désolé de vous avoir sollicité sur un oubli de ma part...
merci de votre aide
Cordialement
 

Discussions similaires


Haut Bas