[VBA] Tri décroissant d'un tableau + doublons

Fermé
Signaler
Messages postés
79
Date d'inscription
lundi 2 mai 2005
Statut
Membre
Dernière intervention
22 octobre 2011
-
 Jojo -
Bonjour,

Je souhaite supprimer automatiqument quelques lignes d'un tableau Excel.
J'ai 2 solutions en tête mais je n'arrive pas à les tester.

1/ Trier le tableau par ordre décroissant en fonction de la date le tableau et ensuite supprimer les lignes en doubles.
Je sais faire la suppression dans ce cas, mais je ne sais pas faire le tri décroissant.

2/ Garder le tableau tel qu'il est, et supprimer les lignes en doubles mais garder la première lignes.
Je ne sais pas faire la comparaison d'une ligne n avec la ligne n-1 et supprimer la ligne n et faire la comparaison sur 2000 lignes...

Ci joint le bout de programme que j'ai fait : pas de tri, comparaison de la ligne n avec la ligne n+1 et supprssion de la ligne n.

' Supprimer les doublons
Set currentsyst_eqt = Worksheets("Models").Range("F6")
Set currentstandard = Worksheets("Models").Range("I6")

Do While Not IsEmpty(currentsyst_eqt)
    Set nextsyst_eqt = currentsyst_eqt.Offset(1, 0)
    Set nextstandard = currentstandard.Offset(1, 0)
    
    If (nextsyst_eqt.Value = currentsyst_eqt.Value) Then
        If (nextstandard.Value = currentstandard.Value)  Then
            currentsyst_eqt.EntireRow.Delete
        Else
        End If
    Else
    End If

    Set currentsyst_eqt = nextsyst_eqt
    Set currentstandard = nextstandard
Loop


Merci de votre aide

2 réponses

il existe sous excel une fonction "sort". tu regles les parametres pour trier de maniere croissante decroissante une colonne ou une ligne.

pour l obtenir avec ces parametres, je te suggere de generer une macro excel puis d aller l onglet donnees, de selecionner trier : croissant ou decroissant en colonne ou en ligne. puis d arreter l enregistrement de ta macro puis d aller voir le code genere.

tu peus aussi la rechercher dans l aide.

ciao
coin
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Bonjour à tous,


J'ai un tableau excel de ce type:

Num contact Num commande Nom contact
1 lulu asso
2 lola club
3 zouzuo autres
3 zouzuo autres
4 alpha piscine
5 beta salle
6 tango foret
7 charly camping
7 domi plage
8 nico bureau


Je voudrais supprimer les lignes ou il y'a des doublons comme (3 zouzuo autres), ainsi que les lignes ou il y'a des doublons comme (7 charly camping et 7 domi plage).

Je voudrais effectuer un comptage et ces doublons me posent problème.

Auriez vous une formule pour m'aider. si possible la plus simple possible.

d'avance merci