Discussion :

[Holir]

Bonjour à tous,

Je viens vers vous car j'ai un petit problème, je m'explique : j'ai un grand tableau avec des doublons que j'aimerai supprimer, pour cela vu la disposition du tableau je ne peux pas utiliser de filtre avancé ni la fonction supprimer les doublons ! J'ai donc eu une autre idée qui consiste en comparant toutes les lignes du tableau deux à deux dans une boucle jusqu'à la fin du tableau et supprimer ligne 2 si jamais la valeur A1 = la valeur A2 puis ensuite comparer valeur A2 et valeur A3, etc etc jusqu'a la fin du tableau (sachant que les valeurs sont du texte). Or je suis encore débutant et malgré mes recherches je ne trouve pas comment faire cela ... C'est pour cela que je m'en remet à vous pour m'éclairer !

Cordialement,
Romain.

[Holir]

Bon je ne trouvais pas après 1h30 de recherches mais dès que je poste je trouve dans la solution (ou presque) dans une des discussions similaires en dessous ! Tant mieux vous me direz :p je poste mon bout de code si cela interesse des gens, il est inspiré de cette discussion https://www.developpez.net/forums/d1...teres-donnees/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Suppression_double()
For i = Range("A65536").End(xlUp).Row To 2 Step -1
     If (Range("A" & i).Value) = (Range("A" & i + 1).Value) Then
            Range("A" & i + 1).EntireRow.Delete
     End If
Next i
End Sub

Maintenant il ne me manque plus qu'a essayer de rajouter une condition pour savoir laquelle des deux ligne supprimer en fonction d'un autre colonne (je souhaite garder seulement la ligne avec la date la plus récente) mais je pense que je peux y arriver.

[riaolle]

Bonjour,

vu la disposition du tableau je ne peux pas utiliser de filtre avancé ni la fonction supprimer les doublons

Qu'est-ce qui t'empêche d'utiliser la suppression de doublons ?
Pour la suite, il suffit de comparer les valeurs des celules avec les dates et de supprimer celle avec la plus petite valeur.

[Holir]

Bonjour,
Je ne peux pas utiliser la suppression des doublons car dans mon grand tableau il y a des lignes d'affichages sans données qui sont là juste pour la compréhension et qui sont totalement identiques et sont considérées comme des doublons or elles sont espacées d'environ 30 lignes c'est pour cela que la solution de comparaison des lignes deux à deux me convenait très bien.

[Holir]

Pour la suite, il suffit de comparer les valeurs des celules avec les dates et de supprimer celle avec la plus petite valeur.

Oui en effet c'est ce que j'ai fais (la date étant dans le colonne E), comme ceci :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If (Range("E" & i).Value) < (Range("E" & i + 1).Value) Then
                Range("A" & i & ":E" & i).Delete
            Else
                Range("A" & i + 1 & ":E" & i + 1).Delete
            End If