XL 2016 Afficher/masquer des lignes en fonction d'un critère

T

telemarrk

XLDnaute Occasionnel

• 8 Mars 2023

• #31

Ok, j'ai vu mon erreur, je suis novice en VBA.

Merci pour votre à aide

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 8 Mars 2023

• #32

Une dernière question promis.

Si ma requête se trouve sur la feuil2 et doit intervenir sur la feuil1 je modifie quoi dans le code.

J'ai essayé en ajoutant sheets ("feuil1")

Mais cela ne fonctionne pas, je débute.

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 8 Mars 2023

• #33

telemarrk à dit:

Une dernière question promis.

Si ma requête se trouve sur la feuil2 et doit intervenir sur la feuil1 je modifie quoi dans le code.

J'ai essayé en ajoutant sheets ("feuil1")

Mais cela ne fonctionne pas, je débute.

Cliquez pour agrandir...

Si c'est juste le tableau qui est sur une autre feuille, par exemple 'Feuil2', a priori il suffit de remplacer ActiveSheet par le nom de la feuille où est situé le tableau :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Filtre$, Colonne%
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [L1]) Is Nothing Then
        Colonne = [Tableau1[Services]].Column - [Tableau1].Column + 1
        ThisWorkBook.Worksheets("Feuil2").ListObjects("Tableau1").Range.AutoFilter Field:=Colonne
        Filtre = [L1]
        If Filtre <> "Admin" Then ThisWorkBook.Worksheets("Feuil2").ListObjects("Tableau1").Range.AutoFilter Field:=Colonne, Criteria1:=Filtre
    End If
End Sub

Même quand on débute, il est important de chercher à comprendre le code pour pouvoir progresser ... et ne pas se contenter de le recopier.
Cordialement,

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 8 Mars 2023

• #34

Je voulais savoir si par exemple je saisais en A1 "magasin" sur la feuille 1 les modifs se fassent sur la feuille facture.

 

Pièces jointes

• test-masque (1).xlsm

  23.3 KB · Affichages: 5

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 8 Mars 2023

• #35

Comme ça

 

Pièces jointes

• test-masque (1.1).xlsm

  29.6 KB · Affichages: 1

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 9 Mars 2023

• #36

Bonjour Gégé-45550,

C'est tout a fait ça.
Le fichier que j'ai joint à chaque fois m'a permis de voir si cela était possible et de comprendre.
Le but est d'appliquer le code VBA sur un autre fichier Excel où sur la première page en devra s'identifier et arriver sur une seconde feuille qui en fonction de l'identifiant affichera les lignes concernées.

Merci à toi mais également autres qui m'ont aidé.

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 9 Mars 2023

• #37

Je sais que j'avais dit une dernière question, mais j'ai modifié le code VBA en voulant qu'il m'affiche que les "Validé" en plus du choix fait en L1.

Cela fonction en y mettant cette ligne :

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:="Validé"

Sauf quand je sélectionne "Admin", je voudrais également voir toutes les lignes et ce n'est pas le cas.


Merci

 

Pièces jointes

• ok-test-masque.xlsm

  23.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 9 Mars 2023

• #38

Je sais que j'avais dit une dernière question, mais j'ai modifié le code VBA en voulant qu'il m'affiche que les "Validé" en plus du choix fait en L1.

Cela fonction en y mettant cette ligne :

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:="Validé"

Sauf quand je sélectionne "Admin", je voudrais également voir toutes les lignes et ce n'est pas le cas.
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:="Validé"

Merci
Bonjour,
N'avez-vous pas remarqué que, en introduisant la ligne

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:="Validé"

Cliquez pour agrandir...

vous introduisez un deuxième filtre sur la colonne "Suivi" (voir les petits entonnoirs à droite des titres) ?
Lorsque vous cliquez sur "Admin", vous supprimez bien le filtre sur la colonne "sg", mais le filtre sur la colonne "Suivi" est toujours actif.
Je vous laisse trouver comment supprimer aussi le filtre sur "Suivi", vous avez tous les éléments en votre possession.
Cordialement,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Mars 2023

• #39

Bonsoir à tous,

Gégé-45550 à dit:

Je vous laisse trouver comment supprimer aussi le filtre sur "Suivi", vous avez tous les éléments en votre possession.

Cliquez pour agrandir...

Il me paraît préférable de tout revoir :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Filtre$, Colonne%
If Intersect(Target, [L1]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
With [Tableau1].ListObject.Range
    .AutoFilter 'affiche tout
    .AutoFilter 'affiche les boutons de filtre
    Filtre = [L1]
    If Filtre = "Admin" Then Exit Sub
    Colonne = [Tableau1[sg]].Column - .Column + 1
    .AutoFilter Field:=Colonne, Criteria1:=Filtre
    .AutoFilter Field:=Colonne + 4, Criteria1:="Validé"
End With
End Sub

 

Pièces jointes

• ok-test-masque.xlsm

  23.9 KB · Affichages: 5

Dernière édition: 9 Mars 2023

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 10 Mars 2023

• #40

Bonjour job75,

C'est parfait.
Comme je l'ai dit ce fichier me permet de faire différent test et j'ai même réussi grace à vous à n'afficher que les "valider" et "refusé" dans la colonne "suivi" en modifiant cette ligne :

.AutoFilter Field:=Colonne + 4, Criteria1:="Validé"

par

.AutoFilter Field:=Colonne + 4, Criteria1:="<>"

Ce qui me permet de ne pas tenir compte des cellules vide.

Merci à vous

 

Vote positif 0 Vote négatif