Poblème avec macro Fermé

Question

Bonjour, 
J'ai une macro qui fait des copier coller d'un tableau 1 à un autre (tableau 2) et elle supprime les doublons.
Je suis pas trop calé niveau Macro du coup j'ai fais avec mes moyens.
Je copie le tableau 1 une première fois selon un critère pour sélectionner les lignes voulues  et je colle dans le tableau2  , ensuite je recopie encore une fois le tableau 1 j'insère une ligne vide et je colle dedans puis je supprime les doublons comme ça je garde les valeurs en un seul exemplaire.

Voici mon code.


///

Sub Macro()
    Sheets("Feuil2").Activate
    [A65536].End(xlUp).Select    'selection de la derniere céllule non vide
   ' ActiveCell.Offset(1, 0).Select  ' insertion d'une ligne en bas
    Sheets("CS").Activate
    ActiveSheet.ListObjects("Tableau_Lancer_la_requête_à_partir_de_CS").Range. _
    AutoFilter Field:=23, Criteria1:="Cloturé"
    Range("Tableau_Lancer_la_requête_à_partir_de_CS").Select
    Selection.Copy
    Sheets("Feuil2").Select
    ActiveSheet.Paste

Sheets("Feuil2").Activate
    [A65536].End(xlUp).Select    'selection de la derniere céllule non vide
    ActiveCell.Offset(1, 0).Select  ' insertion d'une ligne en bas
    Sheets("CS").Activate
    ActiveSheet.ListObjects("Tableau_Lancer_la_requête_à_partir_de_CS").Range. _
    AutoFilter Field:=23, Criteria1:="Cloturé"
    Range("Tableau_Lancer_la_requête_à_partir_de_CS").Select
    Selection.Copy
    Sheets("Feuil2").Select
    ActiveSheet.Paste

Range("Tableau2").Select
    ActiveSheet.Range("Tableau2").RemoveDuplicates Columns:=Array(1, 2, 3, 4, _
        5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23), Header:=xlYes

end sub

Merci pour votre aide

Configuration: Windows 7 / Firefox 30.0

Le Pingou · Answer

Bonjour,
Avec votre fichier comme exemple ce serait mieux pour comprendre, le mettre sur https://www.cjoint.com/  et poster le lien !

Le Pingou · Answer

Bonjour,
Merci pour le fichier.
Ce que vous avez réalisé est une chose, mais que voulez-vous avoir comme résultat.... ? 
En plus votre code ne si trouve pas...ou est-il ?

Le Pingou · Answer

Bonjour,
Vous avez sur le tableau 1 toutes les données et lorsqu'un enregistrement est clôturée vous voulez le supprimer du tableau 1 et le mettre dans l'archive [Tableau 2] ....est-ce bien cela que vous  désirez ?

Le Pingou · Answer

Bonjour,
Merci pour l'information.
Patience la réponse va suivre...!

Le Pingou · Answer

Bonjour,
Votre code ne fonctionne pas avec le fichier exemple mis à disposition qui à 8 colonnes et sur la feuille 2 il recopie  sur 16384 colonnes ce qui est faux.
Dans la boucle de suppression vous faite référence à : Like UCase("*ordinateur*") qui n'existe pas dans l'exemple.... !
Je ne sais pas quoi faire   !

massimo888 · Answer

En fait j'ai changé le fichier. (j'ai fais trop de macros dessus)
Je vous le transmet.


http://cjoint.com/data/0GknQMDgn4E.htm

Le Pingou · Answer

Bonjour,
Mais le nombre de macros n'a pas d'influence sur le fichier.... !
Il suffit que ce soit le bon... !
Dans votre code. La boucle pour supprimer les lignes vous ne devez pas supprimer la ligne des titres. Donc vos données commences en ligne 2 de ce fait  remplacer le 1 par 2 dans [For,...] et profitiez de modifier votre code comme suit :

For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1Note : [Cells(Rows.Count, 2).] tient compte automatiquement du nombre de ligne maximum de la feuille selon la version Excel utilisée.

Poblème avec macro

7 réponses

Discussions similaires

Newsletters