Supprimer une combinaison de doublons

-1

Bonjour,

Je cherche à supprimer une combinaison de doublons ou suite de doublons.
Dans mon exemple, sur 2 colonnes :

A     B    C    D
12    4    25   12
27    17        27
42              42
18              18

Je souhaite supprimer les 4 lignes de doublons correspondant à D car je les ai déjà en A.
L'info de lettres me permet simplement de regrouper mes suites de chiffres mais n'ont pas d'importance pour la suite.

Merci d'avance pour votre aide.
Caroline

Posté le 3 mai 2016, 08:55
par Caro62
Répondre
0

Bonjour,

En code, il est possible d'extraire dans une colonne, les valeurs sans doublon :

Sub LISTE_UNIQUE()
Dim X As Variant
Dim Plage As Variant
Plage = Range("A2:D5")
Compteur = 1
For Each X In Plage
  If X > 0 Then
  If WorksheetFunction.CountIf(ActiveSheet().Range("F1:F" & Compteur), X) = 0 Then
  ActiveSheet().Range("F" & Compteur) = X
  Compteur = Compteur + 1
  End If
   
  End If
  Next
End Sub

Posté le 3 mai 2016, 16:23
par ouisansdoute

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :