Discussion :

[Phifou]

Bonjour à tous,

Voilà que je me retrouve avec des tas de données dans un classeur excel, pour chaque colonne j'ai plein de données fournisseurs sous le nom du fournisseur. J'aimerais pouvoir filtrer mes différents fournisseurs selon les données que j'ai, avez-vous une idée pour filtrer dans le sens inverse de l'habituel ?

Je vous remercie,


Philippe

[illight]

J'ai rien compris un ptit exemple ?

[Phifou]

Eh bien, en prenant le tableau en PJ :

La première colonne correspond à mes légendes, les suivantes sont toutes remplies d'information correspondant à chaque fournisseur : comment filtrer par lignes les colonnes : par exemple, je ne veux afficher que les fournisseurs qui ont un mode de transport direct...

Merci d'avance,


Philippe

[illight]

Je sais pas s'il est possible de faire un filtre à "l'horizontal".

bêtement, je te dirais : pourquoi tu fais pas un copier/coller de ton tableau en transposé, pour avoir les titres en haut, et du coup faire un filtre simple ?

[Phifou]

En fait, mon format est figé par des instances supérieurs, mais si je peux filtrer à l'horizontal, ça donnera un plus au produit final.
Dans la pratique je ne devrais pas avoir trop de colonnes, pour des cas où exceptionnellement j'ai 30 colonnes, ça suffit pour devenir un peu compliqué à lire.

Je n'ai vu aucune solution sur internet, mais peut-être qu'il y a un génie sur ce forum qui aura trouver une solution. (ça ne doit pas y être dans 2013 non plus d'ailleurs ?)


Philippe

[AlainTech]

Bonjour,

Le challenge me plaisait.
Voir le classeur joint.
Cliquer sur une des cellules de la colonne A et voir le résultat.
C'est, bien sûr, imparfait. Il n'est pas possible de combiner 2 critères dans cette version mais ça peut être une piste de réflexion.

Voici les codes utilisés.
Dans un module

Code :

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

1
2
3
Option Explicit
 
Public iLastCol As Integer ' Comme le nombre de colonnes visibles peut varier, on doit stocker la dernière à l'ouverture du classeur

Dans ThisWorkbook

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private Sub Workbook_Open()
  Dim wks As Worksheet
  Set wks = ThisWorkbook.Sheets("Feuil1") ' A adapter
  With wks
    iLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column ' Stockage de la dernière colonne renseignée
    ' Attention, le classeur doit être fermé avec toutes les colonnes visibles
    ' Autrement dit, sans aucun filtre
    '  J'ai prévenu que ce code était imparfait. Il sert juste de piste de réflexion
  End With
End Sub

Dans Feuil1

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range
  Dim iLastRow As Long
  Dim rRange As Range
  With ActiveSheet ' Comme on travaille sur clic dans la feuille, on peut travailler avec ActiveSheet
    If Not Intersect(.Columns(1), Target) Is Nothing Then ' Si on a modifié une cellule de la colonne A
      Set rRange = Range(.Cells(Target.Row, 3), .Cells(Target.Row, iLastCol)) ' On définit un range des cellules renseignées de la ligne modifiée
      If Target.Value = vbNullString Then
        ' Si la cellule modifiée à été mise à "vide"
        For Each c In rRange
          ' On montre toutes les colonnes
          Columns(c.Column).Hidden = False
        Next c
      Else
        ' On a mis une valeur de filtrage dans une cellule
        For Each c In rRange
          ' Pour chaque cellule (c) de la ligne concernée
          If c.Value = Target.Value Then
            ' Si la valeur de la cellule modifiée (Target) = la valeur de la cellule c
            ' On montre la colonne
            Columns(c.Column).Hidden = False
          Else
            ' Si valeurs différentes, on cache la colonne
            Columns(c.Column).Hidden = True
          End If
        Next c
      End If
    End If
    ' La suite sert à effacer toutes les cellules de la colonne A sauf celle qui vient d'être modifiée
    iLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
    Set rRange = Range(.Cells(1, 1), .Cells(iLastRow, 1))
    Application.EnableEvents = False ' Indispensable pour éviter de retomber dans l'Event Worksheet_Change
    For Each c In rRange
      If Not c.Row = Target.Row Then
        c.Value = vbNullString
      End If
    Next c
    Application.EnableEvents = True
  End With
End Sub