tri de 4 lignes en 4 lignes

[aeryne]

Bonjour
J'ai un tableau d'aspect particulier et je n'arrive pas à placer un filtre automatique . je veux trier par numéro de dossier mais le numéro de dossier se trouve en colonne B mais toutes les 4 lignes. les 3 lignes du dessus correspondent au même dossier mais il s'agit de renseignements différents.

date		archivé le		nombre		date
Nom		Boite n°		Tiroir n°		congél :
Prénom		Retiré le		Retiré le		Retiré le
N° dossier		Visa		Visa		Visa
date		archivé le		nombre		date
Nom		Boite n°		Tiroir n°		congél :
Prénom		Retiré le		Retiré le		Retiré le
N° dossier		Visa		Visa		Visa
date		archivé le		nombre		date
Nom		Boite n°		Tiroir n°		congél :
Prénom		Retiré le		Retiré le		Retiré le
N° dossier		Visa		Visa		Visa

[tr]


voici mon tableau. les lignes 1 à 4 correspondent à un seul dossier.
pouvez vous m'aider?

 

[tbft]

Re : tri de 4 lignes en 4 lignes

un petit (tout petit) fichier serait bien venue!!!
avec des données bidons!!!

 

[aeryne]

Re : tri de 4 lignes en 4 lignes

voici le fichier

 

[aeryne]

Re : tri de 4 lignes en 4 lignes

ça y est j'ai trouvé une solution toute bête merci et dsl du dérangement

 

[BOISGONTIER]

Re : tri de 4 lignes en 4 lignes

Bonjour,

Cf PJ

JB

 

[aeryne]

Re : tri de 4 lignes en 4 lignes

merci de ton aide

 

[job75]

Re : tri de 4 lignes en 4 lignes

Bonjour aeryne, tbft, JB,

Pour le filtrage on peut utiliser le filtre élaboré (avancé).

Voyez le fichier joint et cette macro dans le code de la 1ère feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
Me.ShowAllData 'affiche tout
On Error GoTo 0
If [B1] = "" Then Exit Sub
[K6] = "=OR(B6=B$1,B7=B$1,B8=B$1,B9=B$1)" 'critère de filtrage
Range("A5:J" & [A65536].End(xlUp).Row + 3).AdvancedFilter xlFilterInPlace, [K5:K6]
[K6] = ""
Target.Select
End Sub

A+