Discussion :

[Phenx]

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 !

[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?

[AlainTech]

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.

[ouskel'n'or]

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 ?

[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 ...)

[ouskel'n'or]

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+

[Phenx]

C'est tout a fait ca !!!

[ouskel'n'or]

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

A+

[Phenx]

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

[SfJ5Rpw8]

tiens voila ce code...

Code :

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

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...

[AlainTech]

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?

[ouskel'n'or]

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

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+

[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 ca dérange pas si le tableau commence en ligne 10 ??

[ouskel'n'or]

Si tu utilises ça :

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 :

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

        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 :

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

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 !"

A+

[Phenx]

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

[MarcJinger]

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

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 !!!