Bonjour à toutes et à tous,
J'ai un problème avec un code concernant la gestion des doublons. Actuellement, ce dernier me permet de trier les données d'une seule colonne puis de supprimer les doublons.
Je n'arrive malheureusement pas à le changer de telle sorte qu'il trie les données de plusieurs colonnes. Ci joint mon code.
Merci d'avance de votre aide
Option Explicit
Sub test()
SupressionDoublonColonne
End Sub
Sub SuppressionDoublonColonne(NumCol As Integer)
Dim cible As Range, suivant As Range
Application.ScreenUpdating = False
With Columns(NumCol)
.Cells(1, 1).Sort Key1:=.Cells(1, 1), Order:=xlAscending
Set cible = .Cells(1, 1)
Do
Set suivant = cible.Offset(1, 0)
If suivant = cible Then cible.Delete xlUp
Set cible = suivant
Loop
End With
Application.ScreenUpdating = True
End Sub
J'ai un problème avec un code concernant la gestion des doublons. Actuellement, ce dernier me permet de trier les données d'une seule colonne puis de supprimer les doublons.
Je n'arrive malheureusement pas à le changer de telle sorte qu'il trie les données de plusieurs colonnes. Ci joint mon code.
Merci d'avance de votre aide
Option Explicit
Sub test()
SupressionDoublonColonne
End Sub
Sub SuppressionDoublonColonne(NumCol As Integer)
Dim cible As Range, suivant As Range
Application.ScreenUpdating = False
With Columns(NumCol)
.Cells(1, 1).Sort Key1:=.Cells(1, 1), Order:=xlAscending
Set cible = .Cells(1, 1)
Do
Set suivant = cible.Offset(1, 0)
If suivant = cible Then cible.Delete xlUp
Set cible = suivant
Loop
End With
Application.ScreenUpdating = True
End Sub