Question Réponse
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:55Bonjour,
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