Macro: suppression de doublons et copier/coller à la suite Résolu/Fermé

Question

Bonjour, 

J'utilise Excel 2010 et je souhaite intégrer dans un fichier une macro permettant de:
_supprimer les doublons d'une liste de la feuille blabla1 
_puis de sélectionner cette liste 
_et la copier dans la feuille blabla2 à partir de la cellule C4 
_puis de recopier à la suite en colonne toujours cette même liste (sans les doublons du coup) 
_et cela un certain nombre défini de fois (26 pour être précis).

J'aurai aimé ne pas arriver les mains vides, mais les quelques exemples partiels de ce que je veux faire et trouvés sur internet me font apparaître le message d'erreur Sub or Function not defined quand je lance la macro. 
En cherchant ce que ca voulait dire sur internet j'ai cru comprendre que c'était à cause d'une fonction mal définie ou mal écrite. C'est un peu trop vague pour mes compétences basiques en VBA. 

Est-ce que quelqu'un peut m'aider à ce sujet? Et si oui, est-ce que je peux avoir une explication des différentes étapes pour apprendre à manier ce fameux langague VBA?

Voilà, je suis entièrement à votre disposition pour toutes questions et pour apprendre.

Je continue mes recherches entre temps.

Merci :)

Koalacid


Configuration: Windows 7 / Mozilla 11.0

Pierre1310 · Answer

Bonjour,

tape langage vba sur google et tu aura tout ...

JYM42009 · Answer

Bonjour,

Tu trouveras de nombreuses procédures VBA  toutes prêtes sur le site de boisgontier j. (http://boisgontierjacques.free.fr/ Dommage qu'elles ne soient pas commentées, ça aiderai pour les adapter à son besoin.
En voici une qui supprime les doublons de la colonne A et met le résultat dans le colonne C ligne2

Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("a2", [a65000].End(xlUp))
   mondico(c.Value) = ""
Next c
[c2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)

si tu remplace la dernière ligne par:

Worksheets("blabla2").[c4].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)

tu auras le résultat dans la feuille blabla2 à partir de la cellule C4.

Si tu veux le répéter 26 fois, tu le mets dans une boucle  =for/next

for i = 1 to 26
     ta procédure
     .....
next i

évidemment, comme ça, cela n'a aucun intérêt de le répéter 26 fois. Je suppose que soit la liste de départ est différente ou alors c'est la cible qui est modifié.

bon courage

Koalacid · Answer

Hello JYM42009,

Merci beaucoup pour ton aide, cela fonctionne à la perfection. 

Pour la boucle: oui en effet il n'y a pas d'intérêt à la faire répéter plusieurs sur toute la même plage de cellule, il faut juste que je rajoute dans cette boucle une partie de code qui va rechercher la dernière cellule remplie et à partir d'elle fait le copier/coller sur la cellule juste en dessous et cela 26 fois. 

C'est ce que je suis entrain de faire, mon premier problème était les doublons et là j'ai ma réponse. 

Donc encore une fois merci beaucoup pour votre aide!


Sincèrement,



Koalacid

Koalacid · Answer

Re-bonjour,


J'ai un problème que j'imagine assez bête mais quand m^me trop compliqué pour que je trouve la solution tout seul. 

Basé sur le code que JMY42009 m'a donné, voici le code de ma macro:

Sub Doublons_essais_longeur_liste_infinie()For i = 1 To 25    Sheets("blabla").Select    Set mondico = CreateObject("Scripting.Dictionary")    For Each c In Range("a2", [a65000].End(xlUp))    mondico(c.Value) = ""    Next c    Worksheets("blabla2").[B2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)    Sheets("blabla2").Range("b2", [b65535].End(xlUp)).Select    Selection.Copy Sheets("blabla2").Cells(65535, 2).End(xlUp)(2)Next iSheets("blabla2").SelectEnd Sub

Le problème vient de cette ligne (surlignée en jaune par le debugueur) :

Sheets("blabla2").Range("b2", [b65535].End(xlUp)).Select

Ce que je voulais faire, c'est faire mon copier/coller en boucle à partir de la dernière cellule non-vide de la colonne. Du coup dans ma tête j'ai demandé à VBA d'aller sur la dernière ligne non-vide et de se décaler d'un cran pour copier la sélection. Apparemment j'ai tort mais je ne comprend pas pourquoi. 

Ou alors, en réfléchissant un peu, je me demande si l'utilisation des deux End(xlUp)  ne crée pas une sorte de boucle infinie que VBA ne peut gérer (dîtes-moi si je suis incompréhensible). Dans ce cas, comment modifier ce code et pourquoi?

michel_m · Answer

Bonjour,

Il faut qu'il y ait quelque chose en C3 de blabla2 (un espace suffit) 
Option Explicit'---------------------Sub copier_uniques_26_fois()Dim Derlig As Integer, T_in, Cptr As Integer, D_uniq As ObjectDim T_out, Nbre As Integer, Ligvid As Integer'----------------------initialisation    Application.ScreenUpdating = False ' fige l'écran: confort et rapîdité    With Sheets("blabla1")        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row        T_in = Application.Transpose(.Range("A2:A" & Derlig)) 'mise en mémoire RAM des données:rapidité        Set D_uniq = CreateObject("scripting.dictionary")    End With '-------------------------Traitement    For Cptr = 1 To UBound(T_in)            'si la valeur en cours n'existe pas dans le dico elle est ajoutée au dico            If Not D_uniq.exists(T_in(Cptr)) Then D_uniq.Add T_in(Cptr), ""        Next' --------------------restitution    With Sheets("blabla2")        'nettoyage        Range("C4:C" & 30000).ClearContents        'caractéristiques des blocs à restituer        T_out = Application.Transpose(D_uniq.keys)        Nbre = D_uniq.Count        '26 restitutions des blocs        For Cptr = 1 To 26            Ligvid = .Columns("C").Find("", .Range("C3"), xlValues).Row            .Cells(Ligvid, "C").Resize(Nbre, 1) = T_out        Next        .Activate    End WithEnd Sub
 
 Michel

Koalacid · Answer

Hello Michel,

Ton code fonctionne à la perfection. Il est génial au défaut près que je n'y comprend rien. :)

Pourrais-tu me donner quelques explications sur les étapes et la syntaxe utilisée?

Je comprendrais parfaitement que tu refuses et je ne veux pas abuser de ton temps. Il s'agit surtout pour moi de comprendre le code parce que je sais que ce ne sera pas la dernière macro que j'aurais à faire. 


Cordialement et un grand merci,

Koalacid

Macro: suppression de doublons et copier/coller à la suite

6 réponses

Newsletters