Tri Excel + masquer redondance

Version imprimable

12/01/2006, 19h02
Phenx

Tri Excel + masquer redondance

Bonjour,
J'ai un ficher Excel avec dans une colonne des numeros de notes avec leur date de mise à jour dans la colonne suivante.
Or j'aimerai trouver un filtre ou une macro qui me permette de masquer toutes les redondance et d'afficher seulement la ligne avec la derniere mise à jour ?
Avez vous une piste pour m'aider ??? MERCI ! :lol:
13/01/2006, 07h20
calimero91

bonjour,

tu veux masquer les redondance dans excel?les supprimer?ou les affichers dans un textbox?
si tu souhaite rester dans excel pourquoi ne pas utiliser les filtres excel?
13/01/2006, 08h09
AlainTech

Citation:

Envoyé par calimero91

bonjour,

tu veux masquer les redondance dans excel?les supprimer?ou les affichers dans un textbox?
si tu souhaite rester dans excel pourquoi ne pas utiliser les filtres excel?

Il faut bien lire les questions avant de répondre.

Phenx a bien dit qu'il est dans Excel, qu'il veut filtrer pour masquer et qu'il ne veut garder que la dernière occurence des doublons.
13/01/2006, 10h39
ouskel'n'or

Citation:

masquer toutes les redondance et d'afficher seulement la ligne avec la derniere mise à jour ?

Ces redondances sont-elles nécessairement à des dates <> de la dernière mise à jour ?

A+

Edit
Je précise ma question : Ou bien chaque saisie de nouvelles données s'effectue-t-elle sur une nouvelle ligne de la feuille de calcul ?
13/01/2006, 17h32
Phenx

En fait, dans la premiere colonne le numero des notes, dans la colonne les dates d'une mise a jour. Si on saisie une nouvelle mise a jour on réécrit une ligne avec en premiere colonne le numero de la note et dans la deuxiemme colonne une autre date de mise a jour (tout ca pour avoir une base avec un historique complet des misea a jour) sauf que lorsqu'on ouvre ce fichier il faudrait que n'apparaisse que les dernieres mise a jour et que les antérieurs soient des lignes masquées.
J'espère avoir eclairci un peu tout ca (pas sur ...)
13/01/2006, 22h21
ouskel'n'or

Citation:

Si on saisie une nouvelle mise a jour on réécrit une ligne avec en premiere colonne le numero de la note et dans la deuxiemme colonne une autre date de mise a jour

Le point commun d'une note et de sa mise à jour est donc le N° de note ?
Ai-je bien compris ?
Si c'est ça, il faut une macro qui analyse chaque N° de note (la réference), vérifie dans toute la colonne l'existence d'un doublon et si la date du doublon est plus récente, masque la ligne de référence, le doublon devenant la référence.
Avant de te mettre du code, dis déjà si ça peut marcher comme ça...

A+
13/01/2006, 23h06
Phenx

C'est tout a fait ca !!! :D
14/01/2006, 16h16
ouskel'n'or

Tu as besoin de code ou tu te débrouilles avec ça ?

A+
14/01/2006, 23h50
Phenx

J'abuse si je te demande le code ???? Parceque j'arrive pas a le trouver ...
Merci

tiens voila ce code...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub trieNote()
    Dim NbLigne As Integer
    Dim i As Integer
    Dim dMax As Date
    Dim iMax As Integer 'Numero ligne Max
    Dim j As Integer
    Dim F As Worksheet 'Feuille excel contenant la liste
    Set F = ActiveSheet '..défini feuille..à adapter
    F.Activate
    F.Cells.EntireRow.Hidden = False 'Affiche toute les colonnes
    NbLigne = F.Cells(1, 1).CurrentRegion.Rows.Count
    For i = 2 To NbLigne 'parcours les lignes ..
      If F.Cells(i, 1).EntireRow.Hidden = False Then 'Si la cellule n'est pas déjà masquée..
        iMax = i
        dMax = F.Cells(i, 2)
        For j = i + 1 To NbLigne 'Parcours les lignes restante
          If F.Cells(j, 1) = F.Cells(i, 1) And F.Cells(j, 2) >= dMax Then
             F.Rows(iMax).EntireRow.Hidden = True
             'Memorise date Max...et numero ligne contennant
             iMax = j
             dMax = F.Cells(j, 2)
           End If
        Next
      End If
    Next
End Sub

avec 1° colonne Note, 2°colonne Date.., agit sur feuille active... :wink:

15/01/2006, 10h34
AlainTech

Citation:

Envoyé par Phenx

J'abuse si je te demande le code ???? Parceque j'arrive pas a le trouver ...
Merci

Euh, un code, ça s'écrit, ça se trouve pas!!!

Tu savais?
15/01/2006, 18h54
ouskel'n'or

Sam Jan 14, 2006 23:50 Phenx écrit :

Citation:

J'abuse si je te demande le code ???? Parceque j'arrive pas a le trouver ...
Merci

Moi, à 23h50, un samedi soir... oui, je trouve que tu abuses.

A+
15/01/2006, 20h12
Phenx

Oups désolé j'avais oublié que certains ont des vies sociales ... la chance !!
Sinon je test le code ... et ca marche !! Vous etes des chefs .... sinon juste un ti détail :oops: ca dérange pas si le tableau commence en ligne 10 ??
16/01/2006, 09h44
ouskel'n'or
Si tu utilises ça :

Citation:

NbLigne = F.Cells(1, 1).CurrentRegion.Rows.Count

que t'a donné bbil, tu n'auras le nombre de ligne que si les données sont cohérentes (pas de ligne totalement vides)
Si tu risques d'avoir des lignes vides, ou que tu ne sais pas a priori, tu dois tester en partant "d'en bas"

Code:

DernièreLigne = Range("A65535").End(xlUp)

Encore faut-il que ta dernière ligne renseignée soit bien dans la colonne choisie (ici "A")
Ce que je fais pour être sûr de ramener ladernière ligne, c'est un test sur toutes les colonnes
Code:

1 2 3 4 5 For i = 1 To NbCol If DernièreLigne < Cells(65535, 1).End(xlUp).Row Then DernièreLigne = Cells(65535, 1).End(xlUp).Row End If Next
Certains fâcheux diront que tu ne connais pas forcément le Nb de colonnes. A eux, je dirai "Flute !" :wink:

A+
16/01/2006, 13h07
Phenx

Merci pour tout ca marche à merveille !!!
Problème résolu !! :D
01/07/2021, 10h48
MarcJinger

Affichage de la dernière ligne si redondance référence

Citation:

Envoyé par Phenx

Merci pour tout ca marche à merveille !!!
Problème résolu !! :D

Hello PHENX, j'envoie une bouteille à la mer au cas où :

aurais-tu le code final "au propre" , avec les bons tests de lignes vides, car j'ai exactement la même problématique que toi et ce serait dément que je puisse mettre ça en oeuvre !

Merci beaucoup évidemment si tu peux, bonne journée en tout cas !!!