XL 2010 Supprimer les doublons sur plusieurs colonne

[Biloute]

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]

Bonjour,

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

P.

 

[Biloute]

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]

Bonjour à toutes et à tous,

Bienvenue sur XLD, Biloute.

Des solutions, peut-être, ici.

A bientôt

 

[mapomme]

Bonjour à tous,

Essayer ce code:

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]

Bonjour à tous,

Essayer ce code:

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]

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]

Bonsoir,

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

 

[Biloute]

Bonjour mapomme,

Merci beaucoup c'est exactement ce que je cherchait !