Compilation colonnes + supprimer les doublons en VBA

[bloublou]

Bonjour à tous,

J'ai toujours des petits problèmes...dans mon fichier excel 😛

En fait sur la colonne A je voudrais prendre les données des colonnes suivantes, les copier coller les unes à la suite des autres et enfin supprimer les doublons sur le résultat obtenu. 😕

Est-ce que quelqu'un peut m'aider sur ces pb de dernière cellule ?

J'ai mis un petit fichier 🙂

Merci de votre aide,

BlouBlou

 

[Caillou]

Re : Compilation colonnes + supprimer les doublons en VBA

Bonjour,

Essayes avec ce code :

Sub Macro1()
  Dim i As Byte
  Dim fc As Integer
  
  'Copie les colonnes
  For i = 2 To 6
    fc = Cells(1048576, i).End(xlUp).Row
    Range(Cells(2, i), Cells(fc, i)).Copy
    Cells(1048576, 1).End(xlUp).Offset(1).PasteSpecial
  Next
  
  'Supprime les doublons
  ActiveSheet.Range("$A$1:$A$1048576").RemoveDuplicates Columns:=1, Header:=xlYes
  Range("A1").Select
End Sub

Caillou

 

[bloublou]

Re : Compilation colonnes + supprimer les doublons en VBA

Bonjour Caillou,

MErci ca marche nickel 🙂

Bonne fin d'après midi

BlouBlou