XL 2010 Gestion des doublons par macro

  • Initiateur de la discussion Initiateur de la discussion Profane
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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🙄
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
Réponses
2
Affichages
1 K
A
Retour