Trier un tableau

[Vario29]

Salut,

Une question à laquelle je ne sais pas répondre :

Peut-on trier un tableau par rapport à une valeur dans une cellule ?

Exemple : Si je sélectionne Quimper par l’intermédiaire de la liste déroulante il filtre la colonne A du tableau ?

Merci ;

 

[JHA]

Re : Trier un tableau

Bonjour à tous,

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

JHA

 

[UJAP]

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,

 

[Jocelyn]

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

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
   For L = 4 To 20
 
    For Each cel In Range("A" & L)
        If Range("A" & L).Value <> Range("B1").Value And Range("A" & L).Value <> "" Then Rows(L).EntireRow.Hidden = True
       
        If Range("A" & L).Value = Range("B1").Value Then Rows(L).EntireRow.Hidden = False
        
        If Range("B1").Value = "" And Range("A" & L).Value <> "" Then Rows(L).EntireRow.Hidden = False
        
        Next cel

   Next L
 End If
 
Application.ScreenUpdating = True

End Sub

Voir fichier joint

Jocelyn

 

[Vario29]

Re : Trier un tableau

Le code fonctionne,

Peux-tu me l'explique rpour le modifier ?

Merci,

 

[Jocelyn]

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

 

[UJAP]

Re : Trier un tableau

Merci, c'est sympa,