Microsoft 365 ( résolut ) afficher les données selon le crêter de la liste déroulante

bahnini mohamed · 18 Septembre 2022

bonjour les amis
j'ai un tableau ou il y a trois colonnes ( opérateur, chef d'équipe et chef d'atelier )
j'ai crié une liste déroulante (cellule jaune) contenant ces trois éléments et je veux afficher les lignes et les colonnes contentant (x) pour chaque critère
c'est à dire si je choisi operateur le tableau affiche seulement les lignes et les colonnes contenant (x) pour l'opérateur
j'espère que la question est claire
merci d'avance pour votre coopération

mapomme · 18 Septembre 2022

Bonjour bahnini mohamed,

Un essai via VBA.
Si on efface la valeur de B2 (touche Suppr) alors on affiche toutes les lignes.
Le code est dans le module de la feuille "Feuil1".

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim derlig&, idx&, i&
   Application.ScreenUpdating = False
   If Target.Address(0, 0) <> "B2" Then Exit Sub
   If Target = "" Then Me.UsedRange.Rows.EntireRow.Hidden = False: Exit Sub
   derlig = Me.UsedRange.Row + Me.UsedRange.Rows.Count - 1
   idx = 3 + Application.Match(Target, Range("d4:f4"), 0)
   For i = derlig To 5 Step -1: Cells(i, 1).EntireRow.Hidden = Cells(i, idx) <> "x": Next i
End Sub

bahnini mohamed · 18 Septembre 2022

mapomme à dit:
Bonjour bahnini mohamed,

Un essai via VBA.
Si on efface la valeur de B2 (touche Suppr) alors on affiche toutes les lignes.
Le code est dans le module de la feuille "Feuil1".

VB:

Private Sub Worksheet_Change(ByVal Target As Range) Dim derlig&, idx&, i& Application.ScreenUpdating = False If Target.Address(0, 0) <> "B2" Then Exit Sub If Target = "" Then Me.UsedRange.Rows.EntireRow.Hidden = False: Exit Sub derlig = Me.UsedRange.Row + Me.UsedRange.Rows.Count - 1 idx = 3 + Application.Match(Target, Range("d4:f4"), 0) For i = derlig To 5 Step -1: Cells(i, 1).EntireRow.Hidden = Cells(i, idx) <> "x": Next i End Sub merci infinimen( [/QUOTE]

mapomme à dit:
Bonjour bahnini mohamed,

Un essai via VBA.
Si on efface la valeur de B2 (touche Suppr) alors on affiche toutes les lignes.
Le code est dans le module de la feuille "Feuil1".

VB:

Private Sub Worksheet_Change(ByVal Target As Range) Dim derlig&, idx&, i& Application.ScreenUpdating = False If Target.Address(0, 0) <> "B2" Then Exit Sub If Target = "" Then Me.UsedRange.Rows.EntireRow.Hidden = False: Exit Sub derlig = Me.UsedRange.Row + Me.UsedRange.Rows.Count - 1 idx = 3 + Application.Match(Target, Range("d4:f4"), 0) For i = derlig To 5 Step -1: Cells(i, 1).EntireRow.Hidden = Cells(i, idx) <> "x": Next i End Sub

merci infiniment monsieur
vraiment incroyable
problème résolut

Microsoft 365 ( résolut ) afficher les données selon le crêter de la liste déroulante

bahnini mohamed

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

bahnini mohamed

XLDnaute Occasionnel

Discussions similaires