Bonjour le forum
J'ai un fichier les doublons se trouvent sur la colonne A et je ne veux conserver que la ligne donc la colonne C contient une valeur
NB: seule une ligne contient une valeur au niveau de la colonne C pour les valeurs identiques à la colonne A
Voici un exemple de code masi qui me conserve uniquement la première ligne.
Merci d'avance pour votre aide
J'ai un fichier les doublons se trouvent sur la colonne A et je ne veux conserver que la ligne donc la colonne C contient une valeur
NB: seule une ligne contient une valeur au niveau de la colonne C pour les valeurs identiques à la colonne A
Voici un exemple de code masi qui me conserve uniquement la première ligne.
Code:
Sub SupDoublonsColA()
Application.ScreenUpdating = False
Set f1 = Sheets("BASE")
a = f1.Range("A1").CurrentRegion.Value
Dim c()
ReDim c(1 To UBound(a, 1), 1 To UBound(a, 2))
ligne = 1
Set mondico = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(a)
If Not mondico.exists(a(i, 1)) Then
mondico.Add a(i, 1), 1
For k = 1 To UBound(a, 2): c(ligne, k) = a(i, k): Next k
ligne = ligne + 1
End If
Next
Sheets("RE").[A1].Resize(mondico.Count, UBound(a, 2)) = c
End Sub