Discussion :

[Chichinois]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Chichinois]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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

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

[Pierre Fauconnier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Chichinois]

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 )

Merci beaucoup pour ton aide !

[Marc-L]

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, …

[Pierre Fauconnier]

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

[Chichinois]

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

[Marc-L]

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

@ Chichi : reste sur la voie de Pierre.

[RyuAutodidacte]

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 …