Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 VBA: Supprimer Doublons de data dans une colonne

  • Initiateur de la discussion Initiateur de la discussion WassimVDP
  • 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 !

WassimVDP

XLDnaute Nouveau
Bonjour,

J'ai une macro permettant de combiner des data provenant de different fichiers excels
JE souhaite combiner ces dans un master file (Colonne B) mais en supprimant les doublons. JE ne trouve pas la solution

Le bout de code est celui ci. J'ai mis en vert la ou je souhaiterais lister les data provenant des documents sources mais en y ajoutant que les valeurs uniques.
Si quelqu un a une idee ou si c ets preferable de mettre le fichier en PJ, dites moi.

Merci par avance

Do While Len(MyFile) > 0
If MyFile <> wbMasterName Then
'here we open the workbook source
Set SPLE_CLEAN = Workbooks.Open(FolderPath & MyFile)

With MASTER_FILE '------------------------------ SPLE_RECORDS
'Loop on MASTER FILE
SPLE_FLOCS = SPLE_CLEAN.Sheets(2).Range("F14", SPLE_CLEAN.Sheets(2).Range("F14").End(xlDown)).Cells.SpecialCells(xlCellTypeConstants).Count '---------BASELINE REPORT, SPLE_FLOCS = SPLE_CLEAN.Sheets(4).Range("A12", SPLE_CLEAN.Sheets(4).Range("A12").End(xlDown)).Cells.SpecialCells(xlCellTypeConstants).Count '---------BASELINE REPORT
n_MASTER_FILE = MASTER_FILE.Range("A1", MASTER_FILE.Range("A1").End(xlDown)).Cells.SpecialCells(xlCellTypeConstants).Count '-------------MASTER FILE

'Loop on SPLE_CLEANS
For j = 1 To SPLE_FLOCS

'***TAG ---MASTER FILE--------------- = SPLE_E
.Cells(n_MASTER_FILE + j, 1).Value = SPLE_CLEAN.Sheets(2).Range("H4").Value

'***FLOCS
.Cells(n_MASTER_FILE + j, 2).Value = SPLE_CLEAN.Sheets(2).Range("F" & (13 + j)).Value
Next j
End With

SPLE_CLEAN.Close savechanges:=False
 
Bonjour Wassim,
1- Utilisez la balise </> pour le code c'est plus lisible. ( icone à droite de GIF )
2- Aucune partie n'est en vert.
3- Bien malin qui comprend votre code hors contexte.

Ceci dit. Si vous mettez la liste dans la colonne A, alors ce bout de code permet de supprimer les doublons :
VB:
Sub SupDoublons()
    DL = Range("A65500").End(xlUp).Row
    ActiveSheet.Range("$A$1:$A$" & DL).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
A vous de l'adapter à votre contexte.
 
Bonjour @WassimVDP ,

C'est très joli tout cela...

Mais absolument inutile.

Le travail d'importation de données, de filtrage et de transformation se fait par PowerQuery...
Plus facile , plus adaptable, compatible sharepoint,...

Je te conseille de voir l'une ou l'autre vidéo sur le sujet.

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

Réponses
68
Affichages
8 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…