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

[telemarrk]

Bonjour,

Je souhaite afficher/masquer des lignes en fonction du choix fait en L1.

Exemple : si je choisis "Vente" en L1 je veux voir dans mon tableau que les ventes

Peut-on également lorsque l'on quitte le fichier que tous soient affichés ?

Merci

 

[telemarrk]

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

Merci pour votre à aide

 

[telemarrk]

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.

 

[Gégé-45550]

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.

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 :

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,

 

[telemarrk]

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

 

[Gégé-45550]

Comme ça

 

[telemarrk]

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é.

 

[telemarrk]

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

 

[Gégé-45550]

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é"

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,

 

[job75]

Bonsoir à tous,

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

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

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

 

[telemarrk]

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