Limite de caractères avec Scripting.Dictionary

Bonjour à tous,

J'utilise le code suivant pour éliminer les doublons d'une liste et copier le résultat dans une nouvelle colonne en triant les valeurs par ordre alphabetique

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Sub test_dico()   Dim MonDico4 As Object Dim c4 As Variant   Set MonDico4 = CreateObject("Scripting.Dictionary") With Worksheets("Sheet1") For Each c4 In .Range("A2:A" & .Cells(.Rows.count, 1).End(xlUp).Row) If Not MonDico4.exists(Trim(c4.Value)) Then MonDico4.Add Trim(c4.Value), Trim(c4.Value) Next c4 With Worksheets("Sheet1").Range("D2").Resize(MonDico4.count, 1) .Value = Application.Transpose(MonDico4.keys) .Sort Key1:=Worksheets("Sheet1").Range("D2"), Order1:=xlAscending, Header:=xlNo End With End With Set MonDico4 = Nothing End Sub

---

Le problème est le suivant :

Si une cellule contient plus de 256 caraères, la macro ne s'execute plus et le message d'erreur suivant apparait :

Run-time Error' '13:
Type mismatch

Est-ce que quelqu'un aurait déjà rencontré ce problème et comment puis-je y remédier ?
Je bloque dessus depuis bientôt 2 jours :(

Merci d'avance

Salut.

Perso, je réaliserais une copie de la plage puis une suppression des doublons. Ca éviterait la boucle, souvent pénalisante en termes de performances, et le code serait bien plus simple.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Test() Dim Source As Range Dim Target As Range   Set Source = Range("a1:a10") Set Target = Range("c1")   Source.Copy Destination:=Target Set Target = Target.Resize(Source.Rows.Count) Target.RemoveDuplicates Columns:=1, Header:=xlNo Target.Sort Target End Sub

---

PS: je sais que cela ne répond pas à ta question concernant l'utilisation d'un dico. Je pense toutefois que l'erreur Type Mismatch n'est pas due à une longueur trop importante, mais probablement à un type de donnée qui n'est pas accepté. Il faudrait vérifier les valeurs de la clé et de la valeur passée pour voir si des petites crasses ne sont pas logées dans tes cellules.

Merci pour ta réponse rapide, simple et efficace !

Effectivement cela ne répond pas à ma question mais l'objectif est d'avoir une solution au problème ;) et cette solution s'affranchie de la limite de caractères du dico.

Ma colonne étant de taille variable j'ai apporté la modification suivante à ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Test() Dim Source As Range Dim Target As Range Dim last_row As Long   last_row = Range("A" & Rows.count).End(xlUp).Row   Set Source = Range("A2:A" & last_row) Set Target = Range("c1")   Source.Copy destination:=Target Set Target = Target.Resize(Source.Rows.count) Target.RemoveDuplicates Columns:=1, Header:=xlNo End Sub

---

Dernier petit soucis

Par rapport à la solution avec le dico je perds le tri par ordre alphabétique dans la nouvelle liste sans doublon.
Je souhaiterais également obtenir uniquement les valeurs (pas la mise en forme) de la colonne de destination.

Si jamais tu as une idée :), en attendant je vais continué de chercher.

Merci encore

J'ai édité mon message pour ajouter la ligne de tri pendant que tu rédigeais ta réponse, à mon avis...

target.sort target devrait faire l'affaire (par rapport au code que j'ai proposé...)

Citation:

---

Envoyé par Chichinois

Merci pour ta réponse rapide, simple et efficace ![...]

---

Le principe de cette simplicité/Efficacité réside dans ma signature: Quand on fait du VBA pour Excel, on pense d'abord Excel... ;)

Voilà un code qui ne copie que les valeurs, supprime les doublons puis trie par ordre croissant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Test() Dim Source As Range Dim Target As Range   Set Source = Range("a1:a10") Set Target = Range("c1")   Source.Copy Target.PasteSpecial xlPasteValues Set Target = Target.Resize(Source.Rows.Count) Target.RemoveDuplicates Columns:=1, Header:=xlNo Target.Sort Target End Sub

---

NB: Certaines syntaxes méconnues peuvent être retrouvées grâce à l'enregistreur de macro qui singe les actions de l'utilisateur

J'étais en train de te répondre quand avant de posté j'ai vérifié si tu ne m'avais pas déjà répondu pour ne pas me faire avoir 2 fois et j'ai bien fait !

Le code marche parfaitement en plus d'être plus rapide que ma solution initiale avec des réponses dans un temps record (meme plus le temps de poster entre 2 réponses :mouarf:)

Merci beaucoup pour ton aide ! :ave:

Bonjour,

ou encore via un filtre avancé pour directement effectuer la copie sans doublon
et une deuxième ligne de code pour le tri …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Citation:

---

Envoyé par Marc-L

[...]
ou encore via un filtre avancé pour directement effectuer la copie sans doublon
[...]

---

Judicieux, mais je pense que ça recopie le format, or la demande précisait un copier-coller valeurs...

J'ai fait un essai avec le filtre avancé.

Le problème c'est que certaine ligne sont vides dans les colonnes de mon tableau et la taille des listes variables, du coup je ne suis pas parvenue à quelque chose de robuste avec les filtres.
Le problème exposé dans ce post n'expose pas toutes les contraintes du fichier excel sur lequel je travaille.

Après je ne connais que les fonctions "basique" du filtre avancé mais il est peut-être possible de faire ce que je souhaitais avec cet outil.

Merci pour la suggestion en tout cas

@ Pierre : oui effectivement indiqué en bas du post #3, solution restant valable pour la "présentation" initiale …

@ Chichi : reste sur la voie de Pierre.

Re,

Je suppose que dans le cas d'un filtre avancé (étant déjà très rapide), un ClearFormats pourrait faire l'affaire en fin de code …