XL 2010 Supprimer les doublons sur plusieurs colonne

Biloute · 16 Août 2016

Bonjour à tous,
Je suis nouvelle dans les macros et j'aimerais répéter la suppression de doublons sur 1 200 colonnes...j'ai enregistré la macro et voici le code que ça a donné :

Sub Macro1()
'
' Macro1 Macro
'

'
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range("B2:B1048356").Select
Range(Selection, Selection.End(xlUp)).Select
Range("B2:B31").Select
ActiveWindow.SmallScroll Down:=-36
ActiveSheet.Range("$B$2:$B$31").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Je dois répéter cette formule de la colonne "B" jusqu'à la colonne "ASA"

Merci beaucoup pour votre aide c'est grandement apprécié

gosselien · 16 Août 2016

Bonjour,

un fichier de 50-100 lignes pourrait aider à t'aider

P.

Biloute · 16 Août 2016

Bonjour,

Évidemment merci beaucoup. Afin de garder la confidentialité, j'ai changé le nom des personnes par nom,1 etc. elle ont le format Nom, Prénom.

DoubleZero · 16 Août 2016

Bonjour à toutes et à tous,

Bienvenue sur XLD, Biloute.

Des solutions, peut-être, ici.

A bientôt

mapomme · 17 Août 2016

Bonjour à tous,

Essayer ce code:

VB:

Sub sans_doublon()
Dim xcell

  Application.ScreenUpdating = False
  With Feuil1
    On Error Resume Next
    For Each xcell In .Range("b2:asa2")
      .Range(xcell, .Cells(.Rows.Count, xcell.Column).End(xlUp)).RemoveDuplicates 1, xlNo
    Next xcell
  End With
End Sub

Biloute · 17 Août 2016

mapomme à dit:

Bonjour à tous,

Essayer ce code:

VB:

Sub sans_doublon()
Dim xcell

  Application.ScreenUpdating = False
  With Feuil1
    On Error Resume Next
    For Each xcell In .Range("b2:asa2")
      .Range(xcell, .Cells(.Rows.Count, xcell.Column).End(xlUp)).RemoveDuplicates 1, xlNo
    Next xcell
  End With
End Sub

Wow Merci beaucoup mapomme, c'est super et ça fonctionne bien. Bonne journée et merci beaucoup pour votre aide !

Biloute · 17 Août 2016

Rebonjour,

Est-ce qu'à la suite de ce code, il est possible d'ajouter une fonction qui permettrait aux résultats de se consolider ?

Exemple en c2 et c3, il y a deux résultats et j'aimerais que les deux résultats soient dans la même cellule et séparé disons par un point-virgule ou un tiret ?

Je rejoint mon fichier à titre de référence

Merci encore beaucoup

mapomme · 17 Août 2016

Bonsoir,

En espérant avoir bien compris la demande, voir l'essai dans le fichier joint.

Biloute · 22 Août 2016

Bonjour mapomme,

Merci beaucoup c'est exactement ce que je cherchait !

XL 2010 Supprimer les doublons sur plusieurs colonne

Biloute

XLDnaute Nouveau

gosselien

XLDnaute Barbatruc

Biloute

XLDnaute Nouveau

Pièces jointes

DoubleZero

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Biloute

XLDnaute Nouveau

Biloute

XLDnaute Nouveau

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Biloute

XLDnaute Nouveau

Discussions similaires