Trier un tableau

Re : Trier un tableau

Bonjour à tous,

un début de piste avec un filtre élaboré

JHA

Re : Trier un tableau

OK Merci,

Sauf que je ne veux pas utiliser les filtres élaborés car la personne qui va se servir du tableau ne connait pas Excel !

Y at-il une autre solution ?

Merci,

Re : Trier un tableau

Bonjour le Forum,
Bonjour Vario29, JHA, UJAP;

Pour m'auto former et surtout pour faire rire les VBAistes (les vrais j'entend ) un essai par un bricolage VBA


Voir fichier joint

Jocelyn

Re : Trier un tableau

Le code fonctionne,

Peux-tu me l'explique rpour le modifier ?

Merci,

Re : Trier un tableau

re,

Alors les explications (une nouvelle couche de rigolade

cette partie sert a ne pas voir ce qui se passe mais seulement le résultat :

Application.ScreenUpdating = False

ensuite la macro ne se déclenche que si l'on intervient sur la cellule B1 :

If Not Application.Intersect(Target, Range("B1")) Is Nothing Then

ensuite pour les ligne de 4 a 20

For L = 4 To 20

pour chaque cellule plage For Each cel In Range("A" & L) défini par colonne A et L ligne sur laquelle on se trouve et qui commence ligne 4

si la valeur de la cellule est différente de B1 et que la cellule n'est pas vide If Range("A" & L).Value <> Range("B1").Value And Range("A" & L).Value <> "" alors on cache la ligne Then Rows(L).EntireRow.Hidden = True

pour le cas ou une vligne aurait été cachée avant et que l'on change la valeur de B1 pour réafficher les lignes cacher correspondant a la nouvelle valeur de B1 si la valeur de la cellule en A est egale a B If Range("A" & L).Value = Range("B1").Value alors les lignes ne sont pas cachées Then Rows(L).EntireRow.Hidden = False

et si B1 est vide f Range("B1").Value = "" And Range("A" & L).Value <> "" alors on réaffiche toutes les lignes dont les cellules de la A ne sont pas vide Then Rows(L).EntireRow.Hidden = False

voila j'espère que c'est clair

Jocelyn

Re : Trier un tableau

Merci, c'est sympa,