XL 2016 Afficher des données quand je clique sur une cellule

soan à dit:

Bonsoir @nath45, JHA, le fil,

le titre de ton sujet est « Afficher des données quand je clique sur une cellule »,
et dans ton énoncé, tu as parlé de filtres ; aussi, je t'ai proposé la solution de
mon post #5 ; peux-tu l'essayer, et me donner ton avis dessus ?

---

dans ton énoncé, tu as aussi écrit : « Ce fichier est censé être mis à la disposition
de personnes n'ayant que très peu d'aisance sur excel. Je ne peux donc pas leur
demander d'aller utiliser les filtres elles-même. »

pourtant, il existe de nombreuses aides de l'État pour des formations, dont Excel.

---

si tes utilisateurs n'arrivent pas à utiliser ma solution car ils ne savent pas comment
cliquer sur une cellule, ou comment cliquer sur un bouton affiché sur la feuille de
calcul, je te rassure : il existe des formations qui commencent par expliquer ce qu'est
une souris et un écran ; la preuve ICI (et c'est bien sur Terre, pas dans la 4ème dimension).

soan

Cliquez pour agrandir...

soan à dit:

Bonjour @nath45, JHA,

ton fichier en retour joint ci-dessous (en fin de post).

* tu es sur la 1ère feuille "Base de données"
* ne clique pas encore sur le nouveau bouton "Tout montrer"
* note juste que toutes les lignes du tableau sont visibles

* va sur la 2ème feuille "Indicateurs"
* sélectionne la cellule orange G4 ➯ filtre en colonne C, "retard"
* tu pourrais cliquer sur "Tout montrer" pour désactiver le filtre
et afficher toutes les données, mais ne le fais pas encore.

* retourne sur la 2ème feuille "Indicateurs"
* sélectionne la cellule orange G15 ➯ filtre en colonne D, "retard"
* clique sur "Tout montrer" ➯ ça affiche toutes les lignes

---

fais Alt F11 pour voir le code VBA.

* module de Feuil2, sub Worksheet_SelectionChange()

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    Dim col As Byte
    col = -3 * (.Address = "$G$4") - 4 * (.Address = "$G$15")
    If col = 0 Then Exit Sub
    With Worksheets("Base de données")
      Application.ScreenUpdating = 0
      If .FilterMode Then .ShowAllData
      .[A1].AutoFilter Field:=col, Criteria1:="retard"
      .Select
    End With
  End With
End Sub

* Module1, sub ShowAll() (macro appelée par le bouton "Tout montrer")

VB:

Sub ShowAll()
  Application.ScreenUpdating = 0
  With ActiveSheet
    If .AutoFilterMode Then .AutoFilterMode = False
  End With
End Sub

Alt F11 ➯ retour sur Excel.

---

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

Cliquez pour agrandir...